Пример программы с использованием цикла на Pascal

Дано натуральное n.

Вычислить сумму ряда: 1/22  +  1/42   + ... +  1/(20*n+2).

В начале программы объявляются целые переменные i, N и вещественная переменная sum

Натуральное число N вводится с клавиатуры. Далее в цикле, организованном с помощью оператора FOR вычисляется сумма ряда. После выхода из цикла выводится полученная сумма функцией write(). На этом программа заканчивается.

Блок-схема программы с циклом FOR.

Алгоритм программы представлен в виде блок-схемы:

 

Текст программы  на языке Pascal

В среде программирования на языке Pascal, например,  Borland Pascal 7.0 вводим текст программы:

Uses crt;
Var i, N : integer;          // объявление целых переменных
sum : Real;       // объявление вещественной переменной
begin       // начало программы
Clrscr;    // очистка экрана   
sum:=0;     //приравнивание к нулю начального значения суммы
write('N=');     
readln(N);      // ввод N
for i:=1 to N do      // объявление цикла от 1 до N
sum:=sum+1/(20*i+2);    // вычисление суммы ряда в цикле
writeLn('Summa= ',sum:10:3);      // вывод суммы
readLn END.   // конец программы

После компиляции программы и запуска на выполнение получаем результат: