Циклы с заданным числом повторений

Добавлено : Дата: в разделе: Познавательная информатика

Циклы с заданным числом повторений

Вычислить значение суммы или произведения числовой последовательности.

1. Дано натуральное число N. Вычислить :

S=1+1/2+1/3+1/4+...+1/N

Решение:

program rabota_3_4_1;
var i,s,n: real;
begin
writeln('Введите N');//Выводим на экран сообщение "Введите N"
readln (N);// Вводим произвольное целое число
i:=1; // Значение дробной части слагаемого
s:=0; //Значение сумма
while i<n do // условие для выполнеия цикла пока i меньше произвольного целого число (n)
begin // начало цикла
s:=s+(1/i); // сумма увеличивается
i:=i+1; // дробная часть слагаемого увеличивается на 1
end; // конец цикла
writeln(сумма = , s); //вывод суммы
end. // конец программы

Комментарии

  • Никаких комментариев пока не было создано. Будьте первым комментатором.

Оставить комментарий

Гость
Гость Среда, 14 ноября 2018
Версия для слабовидящих

Авторизация

logotype

ЕУВК Интеграл © 2015. Все Права Защищены.