Вычислить сумму бесконечного ряда с точность 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д