Вычислить сумму бесконечного ряда с точность 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.6 из 5
Похожие ответы