Const e=0.00001; var x,x0,xk,h,a,s,y:real; n,i,k:integer; begin write('x0=');readln(x0); write('xk=');readln(xk); h:=0.1; x:=x0-h; n:=round((xk-x0)/h)+1; writeln('№ x S(x) y(x)'); for i:=1 to n do begin x:=x+h; a:=1; s:=a; k:=0; while abs(a)>e do begin a:=-a*2*x/(2*k+1)/(2*k+2); s:=s+a; inc(k); end; writeln(i:2,' ',x:3:1,' ',s:8:5,' ',cos(sqrt(2*x)):8:5); end; end.
Для хранения цвета одной точки изображения с 32 <span>градациями серого цвета требуется log(2)32 = 5 бит. Объем файла = 800*600*5 бит = 800*600*5/8 байт = 100*600*5/1024 Кбайт </span>≈ 293 Кбайт