Простейший цикл, вычислить значение суммы с точностью 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.

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

  1. Создаются переменные a, n и i типа integer и real соответственно.
  2. Переменная sum инициализируется значением 0.
  3. Выводится сообщение с просьбой ввести значение переменной a.
  4. Если значение a равно 0, выводится сообщение об ошибке Сумма не определена, деление на 0.
  5. Выводится сообщение с просьбой ввести значение переменной n.
  6. Инициализируется цикл for, который выполняется от 1 до n с шагом 1.
  7. Внутри цикла переменная sum инициализируется значением 0.
  8. В цикле происходит суммирование значений 1/power(a,i) с помощью оператора +.
  9. После завершения цикла выводится значение переменной sum с точностью до двух знаков после запятой с помощью функции writeln.

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

10   голосов , оценка 3.9 из 5
Похожие ответы