Сумма ряда - Free Pascal (137)

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

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

1)Задача : "По данному числу n вычислите сумму 1+1/22+1/32+...+1/n2." 2)Мой код :
Program Erica;
var n ,i : longint;
sum: double;
Begin
    Readln(n);
   sum:=1;
   for I:=2 to n do
   Begin 
   sum:=sum+1/sqr(i);
   end;
Writeln(sum)
   End.
3)Ccылка на задачу http://informatics.mccme.ru/mod/stat...hapterid=320#1 4)Усиленно говорит,что надо брать еще "более длинный тип данных". Куда длинее? Или программа написано криво?

Решение задачи: «Сумма ряда»

textual
Листинг программы
sum:=sum+1/i/i;

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

Код представлен одним выражением, которое вычисляет сумму ряда.

  1. Создается переменная sum типа real, которая инициализируется нулем.
  2. В цикле for перебираются числа от 1 до 100.
  3. Внутри цикла к переменной sum прибавляется результат выражения 1/i/i, где i - это текущее значение переменной цикла.
  4. После выполнения цикла, значение переменной sum будет содержать сумму ряда.

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

8   голосов , оценка 3.75 из 5