Первая программа
var x,y: real;
begin
read(x);
y := x-Power(x,3)/3+Power(x,5)/5;
write('y = ', y );
end.
Вторая
var x,y: real;
begin
read(x);
y := Power(2, -x)-cos(x)+sin(2*x*y);
write('y = ', y );
end.
Третья
var x,y: real;
begin
read(x);
y := (Power(x,2)-7*x+10)/(Power(x,2)-8*x+12);
write('y = ', y );
end.
Четвертая
var x,y: real;
begin
read(x);
y := x-10*sin(x)+abs(power(x,4)-power(x,5));
write('y = ', y );
end.
Мы взяли функцию f(x) = sin(x)-2*cos(x).
В процедуру-функцию function можно вставлять любые функции
program func;
uses Crt;
var a, b, x, y:real;
function f(var x:real):real;
begin
f:=sin(x)-2*cos(x);
end;
begin
ClrScr; {Очистка экрана}
Write (' a= '); ReadLn(a);
Write (' b= '); ReadLn(b);
WriteLn;
x:=a;
while x<=b do
begin
y:=f(x);
WriteLn ('y(', x:1:0, ')= ', y:4:2);
x:=x+1;
end;
ReadLn;
end.
1) y:=2*sin(x)*sqrt(x+sqrt(abs(x)))
2sinx+корень(х+корень(|x|))
2) y:=sqrt(sin(x)+sin(sqrt(x)))
корень(sinx+sin(кореньх))
<span>3) y:=sqrt(abs(x-1)+sqrt(sin(x)))
</span>корень(|x-1|+кореньsinx)
1 байт - 8 бит - 2^3 бит
тогда 2^25/2^3 = 2^22
1 мбайт - 2^20 байт
2^22/2^20 = 2^2 = 4 Мбайт