var e, sum, slag, x, a, b, h:real;
k, i, n:integer;
begin
e:=0,01;
write('a='); readln(a);
write('b='); readln(b);
write('n='); readln(n);
h:=(b-a)\n;
x:=a;
for i:=0 to n do
begin
x:=a+i*h;
k:=1;
slag:=-1;
sum:=-1;
while abs(slag)>e do
begin
slag:=slag*(-x\k);
sum:=sum+slag;
k:=k+1;
end;
writeln('x=',x',';','f(x)=',sum);
end;
end.
Помогите пожалуйста восстановить условие задачи!!
|
|
|
|
|
|
|
|
