Вычислить сумму ряда - Pascal ABC (13339)
Формулировка задачи:
Решение задачи: «Вычислить сумму ряда»
program pr;
var
i, n: integer;
sum: real;
begin
writeln('Введите n');
readln(n);
sum := 0;
i:=1;
repeat
sum := sum + (1 / i);
i := i + 2;
until i>n;
writeln(sum);
end.
Объяснение кода листинга программы
В данном коде на языке Pascal ABC происходит вычисление суммы ряда. Номер 1: Программа начинается с объявления переменных i, n и sum типа integer и real соответственно. Номер 2: Затем происходит чтение значения переменной n из стандартного ввода. Номер 3: Переменная sum инициализируется значением 0. Номер 4: Запускается цикл repeat, который будет выполняться до тех пор, пока значение переменной i меньше или равно значению переменной n. Номер 5: Внутри цикла переменная sum обновляется, получая сумму предыдущего значения sum и выражения (1 / i). Номер 6: Переменная i увеличивается на 2. Номер 7: Цикл повторяется, пока значение переменной i меньше или равно значению переменной n. Номер 8: По окончании цикла переменная sum выводится на экран. Номер 9: Программа завершается.