Распечатать таблицу значений функции F для x, изменяющегося в интервале от x0 до xk с шагом h. Значения x0, xk, h вводятся пользователем.

Распечатать таблицу
значений функции F для x,
изменяющегося в интервале от x0
до xk с шагом h.
Значения x0, xk,
h вводятся пользователем.

var x,f,h,x0,xk,a:real;

const b=3;

BEGIN

WRITELN(AAAAEOA X0,x, Xk,h);

READLN(X0,x, Xk,a);

x:=x0;

while xlt;3 do

begin

F:=a*x+cos(x)+sqrt(ln(abs(x-3)));

end;

write(f:4:3);

write( );

while x=3 do

begin

f:=(x*x-b*b)+cos (pi)*x;

end;

write(f:4:3);

write( );

while xlt;3 do

begin

F:=(x-b)*sin(2*pi)*x;

end;

write(f:4:3);

end.