Простейший цикл, вычислить значение суммы с точностью 2 знака после запятой - Pascal ABC
Формулировка задачи:
Даны целые числа а и N. Вычислить 1/a+1/pow(a,2)+1/pow(a,3)+1/pow(a,n) с точностью 2 знака после запятой.
Ребят я написал код вот:
Что тут неправильно помогите
Решение задачи: «Простейший цикл, вычислить значение суммы с точностью 2 знака после запятой»
textual
Листинг программы
var a,n,i:integer; sum:real; begin writeln('Введите a='); readln(a); if a=0 then begin write('Сумма не определенп, деление на 0'); exit end; writeln('Введите n='); readln(n); sum:=0; for i:=1 to n do sum := sum+1/power(a,i); writeln(sum:0:2); end.
Объяснение кода листинга программы
- Создаются переменные
a
,n
иi
типаinteger
иreal
соответственно. - Переменная
sum
инициализируется значением0
. - Выводится сообщение с просьбой ввести значение переменной
a
. - Если значение
a
равно 0, выводится сообщение об ошибкеСумма не определена, деление на 0
. - Выводится сообщение с просьбой ввести значение переменной
n
. - Инициализируется цикл
for
, который выполняется от 1 доn
с шагом 1. - Внутри цикла переменная
sum
инициализируется значением0
. - В цикле происходит суммирование значений
1/power(a,i)
с помощью оператора+
. - После завершения цикла выводится значение переменной
sum
с точностью до двух знаков после запятой с помощью функцииwriteln
.