Составить программу для вычисления суммы логарифмов - PascalABC.NET
Формулировка задачи:
Составьте, пожалуйста, программу для вычисления суммы ln(1)+ln(2)+…ln(N)
Решение задачи: «Составить программу для вычисления суммы логарифмов»
textual
Листинг программы
begin
var N := ReadLnInteger('N = ');
var S := 0.0;
for var i := 1 to N do
S += ln(i);
WriteLn('S = ', S);
end.
Объяснение кода листинга программы
- В начале программы объявляется переменная N типа Integer с помощью функции ReadLnInteger, которая считывает целое число из консоли с выводом сообщения
N = - Затем объявляется переменная S типа Double со значением 0.0
- Далее следует цикл for, который выполняется от i = 1 до i = N
- Внутри цикла значение переменной i умножается на число e (экспонента) с помощью функции ln (натуральный логарифм) и прибавляется к переменной S
- После выполнения цикла выводится сообщение
S =и значение переменной S - Конец программы