Определить f(y) с точностью ε - Turbo Pascal

Формулировка задачи:

Даны │y│≤ 1; ε. Определить f(y) с точностью ε

Код к задаче: «Определить f(y) с точностью ε - Turbo Pascal»

textual
var y,e,f,t:real;
begin
repeat
write('Введите |y|<1 y=');
readln(y);
until abs(y)<1;
repeat
write('e>0 e=');
readln(e);
until e>0;
t:=1;
f:=t;
while abs(t)>e do
 begin
  t:=-t*y*y*y*y/2;
  f:=f+t;
 end;
write('f=',f:0:4)
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.083 из 5


СДЕЛАЙТЕ РЕПОСТ