1) Program graph1; uses graph; var gd,gm,error,a,b: integer; x,y:real; begin gd:=detect; initgraph(gd,gm,''); error:=graphresult; if error <> grOk then begin write ('Ошибка: ', grapherrormsg(error)); readln; halt; end; while(x<=100) do begin y:=cos(x*x); a:=round(x*100); b:=round(y*100); PutPixel(a,b+300,15); x:=x+0.001; end;
readln; closegraph; end.
closegraph; end. 2) Program graph1; uses graph; var gd,gm,error,a,b: integer; x,y:real; begin gd:=detect; initgraph(gd,gm,''); error:=graphresult; if error <> grOk then begin write ('Ошибка: ', grapherrormsg(error)); readln; halt; end; while(x<=100) do begin y:=1/(x*x+1); a:=round(x*100); b:=round(y*100); PutPixel(a,b+300,15); x:=x+0.001; end;
Высчитаем необходимый размер памяти для хранения 1 символа. В используемом алфавите имеется 256 символов. 256 символов (состояний) можно закодировать таким числом бит, которых достаточно для отображения этого числа состояний. В данном случае это 8 бит (т.к. 1111 1111 = 255, да плюс нулевое состояние, итого 256 возможных состояний). Т.е. для хранения 1 символа требуется 8 бит = 1 байт. Посчитаем количество символов в документе. 30*70*5 = 2100 * 5 = 10500 символов. Для хранения которых потребуется 10500 * 1 = 10500 байт. (Он же, если нужно, 10500/1024 = 10,25390625 Кбайт. )
x: real;
begin
readln(x);
if x = 0 then writeln(2 * x + 10)
else if x < 0 then writeln(x * x + 2 * x);
end.