Вычислить значение суммы членов бесконечного ряда с заданной точностью - Turbo Pascal (29190)

Узнай цену своей работы

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

Вычислить значение суммы членов бесконечного ряда с заданной точностью.Определить число членов ряда, вошедших в сумму.

Решение задачи: «Вычислить значение суммы членов бесконечного ряда с заданной точностью»

textual
Листинг программы
uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('Введите |x|<=1 x=');
readln(x);
until abs(x)<=1;
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
n:=1;
t:=x*x*x/3;
s:=t;
while abs(t/(4*n*n-1))>e do
 begin
  n:=n+1;
  t:=-t*x*x;
  s:=s+t/(4*n*n-1);
 end;
writeln('S=',s:0:5);
write('x^3/3=',x*x*x/3:0:5);
readln
end.

Объяснение кода листинга программы

  1. В первой строке кода используется библиотека crt, которая предоставляет функции для работы с консолью.
  2. Переменные x, e и s объявлены как real, что позволяет работать с числами с плавающей точкой.
  3. Переменная n объявлена как integer, что позволяет работать с целыми числами.
  4. Строка repeat...until используется для цикла, который продолжается до тех пор, пока условие выполняется.
  5. В строке readln(x) считывается значение переменной x с клавиатуры.
  6. В строке readln(e) считывается значение переменной e с клавиатуры.
  7. В строке n:=1; задается начальное значение переменной n.
  8. В строке t:=xxx/3 вычисляется значение выражения x^3/3.
  9. В строке s:=t; присваивается значение переменной s, равное значению переменной t.
  10. В строке while abs(t/(4nn-1))>e do используется цикл while, который продолжается до тех пор, пока условие выполняется.
  11. Внутри цикла вычисляется новое значение переменной n как n+1.
  12. Внутри цикла вычисляется новое значение переменной t как -txx.
  13. Внутри цикла вычисляется новое значение переменной s как s+t/(4nn-1).
  14. В строке writeln('S=',s:0:5) выводится значение переменной s с точностью до 5 знаков после запятой.
  15. В строке writeln('x^3/3=',xxx/3:0:5) выводится значение выражения x^3/3 с точностью до 5 знаков после запятой.
  16. В строке readln читается новое значение с клавиатуры.
  17. Конец программы.

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

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