Вычислить сумму ряда - Turbo Pascal (29840)

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

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

1-1/3+1/5-1/7+...+- 1/2n-1 (ответ: п/4) все это написано в виде дроби.

Решение задачи: «Вычислить сумму ряда»

textual
Листинг программы
uses crt;
var n,k:integer;
    p,t,e:real;
begin
clrscr;
e:=0.0001;
p:=0;
n:=0;
t:=1;
k:=-1;
while abs(t)>e do
 begin
  n:=n+1;
  k:=-k;
  t:=k/(2*n-1);
  p:=p+t;
 end;
writeln('Значение числа pi/4 с точностью ',e:0:4,'=',p:0:5);
writeln('Точное значение=',pi/4:0:5);
readln
end.

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

  1. В начале кода подключается библиотека crt, которая используется для работы с консолью.
  2. Затем объявляются переменные n, k, p и t типа integer и одна переменная e типа real.
  3. Строка clrscr очищает экран перед началом вывода.
  4. Значение переменной e устанавливается равным 0.0001.
  5. Переменные p, t и e инициализируются значениями 0.
  6. Переменная n инициализируется значением 0.
  7. Переменная t инициализируется значением 1.
  8. Переменная k инициализируется значением -1.
  9. Запускается цикл while, который выполняется до тех пор, пока значение переменной t не станет больше значения переменной e.
  10. Внутри цикла переменная n увеличивается на 1.
  11. Переменная k сбрасывается на -k.
  12. Переменная t вычисляется как k/(2*n-1).
  13. Значение переменной p увеличивается на значение переменной t.
  14. Цикл while завершается, если значение переменной t становится больше значения переменной e.
  15. Выводится значение переменной p с точностью до 4 знаков после запятой.
  16. Выводится точное значение числа pi/4.
  17. Выводится команда readln, которая ожидает ввода пользователя.

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


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

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

15   голосов , оценка 3.867 из 5