Сумма ряда - Free Pascal (137)
Формулировка задачи:
1)Задача : "По данному числу n вычислите сумму 1+1/22+1/32+...+1/n2."
2)Мой код :
3)Ccылка на задачу http://informatics.mccme.ru/mod/stat...hapterid=320#1
4)Усиленно говорит,что надо брать еще "более длинный тип данных". Куда длинее? Или программа написано криво?
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.
Решение задачи: «Сумма ряда»
textual
Листинг программы
sum:=sum+1/i/i;
Объяснение кода листинга программы
Код представлен одним выражением, которое вычисляет сумму ряда.
- Создается переменная
sum
типа real, которая инициализируется нулем. - В цикле
for
перебираются числа от 1 до 100. - Внутри цикла к переменной
sum
прибавляется результат выражения1/i/i
, гдеi
- это текущее значение переменной цикла. - После выполнения цикла, значение переменной
sum
будет содержать сумму ряда.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д