Код: Выделить всё
var x: real;
function f(x: real): real;
begin
f:=sin(x); {тут вместо синуса вставляется ваша функция, указанная в задании}
end;
begin
x:=a;
while x<=b do
begin
writeln('x=',x,', F(x)=',F(x));
x:=x+dx;
end;
end.
Код: Выделить всё
var x: real;
function f(x: real): real;
begin
f:=sin(x); {тут вместо синуса вставляется ваша функция, указанная в задании}
end;
begin
x:=a;
while x<=b do
begin
writeln('x=',x,', F(x)=',F(x));
x:=x+dx;
end;
end.