Const D = 2.54;
var i: integer;
rez: real;
begin
for i := 1 to 10 do begin
rez := i * D;
writeln( i, ' см = ', rez, ' дюйм' );
end;
<span>end.</span>
Здесь небольшая проблемка: при больших R некоторых частей функций не будет видно...
Но тем не менее;
uses Crt;
var x, y, R: real;
begin
ClrScr;
Write(' X = '); ReadLn(X);
Write(' R = '); ReadLn(R);
if x<=-R then y:=-3 else
if (x>=-R) and (x<=R) then y:=-sqrt(R*R-x*x) else
if (x>R) and (x<6) then y:=3+6*(x-6)/(R-6) else
if (x>=6) then y:=(x-9);
ReadLn;
end.
Единственное, что осталось - распечатать значения Y...
Но по условию распечатка Y вроде не требуется... Или я чего-то не понимаю...
Объем видеопамяти<span> рассчитывается по формуле: </span>V=I*X*Y, где I<span> – глубина цвета отдельной точки, </span>X, Y –<span>размеры экрана по горизонтали и по вертикали (произведение х на у – разрешающая способность экрана).
</span>1.Всего точек на экране (разрешающая способность): 1280 * 800 = 1024000
<span>2. Необходимый объем видеопамяти V= 64 бит * 1024000 = 65536000 бит = 8192000 байт = </span>8000 Кбайт<span>.</span>
<span>157(10) = 10011101(2)
со знаком, это представим в прмом коде
1,10011101
обратном
1,01100010
и дополнительном
1,01100011</span>