Реферат: Реализация алгоритма на ЭВМ

Написать программу на Pascal, вычисляющую сумму гармонического ряда, т.е. ряда вида . Эта программа представлена на рис. 9.1.

Program Harmonic (input, output);

{ Программа Harmonic вычисляет сумму n первых членов гармонического ряда от 1 до п ;

Input: (пÎN)Ù(п>0);

Output: ;

}

1. varn, i : integer; {n - количество суммируемых членов ряда;

i - параметр цикла

};

s : real; {s - суммаряда};

begin

{Ввод исходных данных}

write (¢Введите п= ¢) ; {Приглашение к вводу}

readln (n) ; {Ввод исходных данных}

{Проверка исходных данных}

if n>0 then

{Вычисление суммы ряда}

begin

s:=1 ; {Инициализация цикла}

i:=1;

while i<n do {Суммирование}

begin

i:= i+1;

s:= s +1/i

end;

{Вывод результата}

writeln (¢Сумма¢, п , ¢ членов гармонического ряда = ¢ ,s)

end {Вычисление суммы ряда}

elsewriteln (¢Ошибка в исходных данных n должно быть >0¢)