Вычислить сумму ряда путем цикла с предусловием (while) - Turbo Pascal

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

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

Программа определила количество слагаемых 16. А ведь задано в программе 6 слагаемых (число определилось Eps = 0.007). Что – то здесь не так. А что?

Решение задачи: «Вычислить сумму ряда путем цикла с предусловием (while)»

textual
Листинг программы
var n,i:integer;
    e,t,s:real;
begin
write('e=');
readln(e);
write('n=');
readln(n);
s:=0;
for i:=1 to n do
 begin
  t:=1/sqr(2*i-1);
  writeln('i=',i,' t=',t:10:6);
  s:=s+t;
 end;
writeln('Summa=',s:0:6);
n:=1;
t:=1;
 writeln('n=',n,' t=',t:10:6);
s:=t;
while t>e do
 begin
  n:=n+1;
  t:=1/sqr(2*n-1);
  writeln('n=',n,' t=',t:10:6);
  s:=s+t;
 end;
writeln('Summa=',s:0:6);
end.

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

  1. Создаются переменные n, i, e, t, s, которые будут использоваться в коде.
  2. Вводится значение переменной e и n с помощью функции readln().
  3. Создается переменная s и присваивается ей значение 0.
  4. Запускается цикл for, который будет выполняться от 1 до n.
  5. Внутри цикла вычисляется значение переменной t как 1/sqrt(2*(i-1)).
  6. Выводится значение переменной i, t на экран.
  7. Переменная s увеличивается на значение t.
  8. После завершения внутреннего цикла выводится значение переменной s.
  9. Запускается внешний цикл while.
  10. Внутри внешнего цикла увеличивается значение переменной n на 1.
  11. Вычисляется значение переменной t как 1/sqrt(2*(n-1)).
  12. Выводится значение переменной n, t на экран.
  13. Переменная s увеличивается на значение t.
  14. Цикл while продолжается до тех пор, пока значение переменной t больше значения переменной e.
  15. После завершения внешнего цикла выводится значение переменной s.
  16. Код завершается.

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


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

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

13   голосов , оценка 4.154 из 5