Вычислить сумму бесконечного ряда с точность EPS - Turbo Pascal
Формулировка задачи:
Составить программу вычисления суммы бесконечного ряда с точность EPS. Значение EPS вводится с клавиатуры.
Решение задачи: «Вычислить сумму бесконечного ряда с точность EPS»
textual
Листинг программы
var e,t,s:real;
n:integer;
begin
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
n:=1;
t:=1;
while abs(t/n/n/n/n)>e do
begin
n:=n+1;
t:=-t;
s:=t/n/n/n/n;
end;
write('S=',s:0:5)
end.