Найти сумму бесконечного числового ряда с заданной точностью ε - Turbo Pascal

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

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

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

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

textual
Листинг программы
  1. uses crt;
  2. var n,z:longint;
  3.     e,t,s:real;
  4. begin
  5. clrscr;
  6. repeat
  7. write('Введите точность 0,e<1 e=');
  8. readln(e);
  9. until(e>0)and(e<1);
  10. n:=1;
  11. t:=1;
  12. z:=1;
  13. s:=1;
  14. while abs(t)>e do
  15.  begin
  16.   n:=n+1;
  17.   z:=-z;
  18.   t:=z/sqr(n);
  19.   s:=s+t;
  20.  end;
  21. writeln('S=',s:0:5);
  22. writeln('pi^2/12=',pi*pi/12:0:5);
  23. readln
  24. end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

  1. Ввод точности с клавиатуры.
  2. Инициализация переменных n, z, e, t, s.
  3. Запуск цикла while, который выполняется до тех пор, пока abs(t) больше или равен e и меньше единицы.
  4. Внутри цикла переменная n увеличивается на единицу, переменная z меняется на -z, переменная t вычисляется как z/sqr(n), а переменная s увеличивается на t.
  5. По завершении цикла выводится значение переменной s.
  6. Выводится значение pi^2/12.
  7. Программа завершается и ожидает ввода пользователя.

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


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

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

7   голосов , оценка 3.857 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы