PROGRAM SUMMA;

VAR

S: REAL;

N,K: INTEGER;

BEGIN

WRITE(‘Введите количество чисел: ’);

READLN(N);

S:=0;

FOR K:=1 TO N DO S:=S+K;

WRITELN(‘Сумма целых чисел от 1 до ’,

N,’ равна ‘,S);

END.

 

Шаг изменения счётчика цикла строго равен 1. Если конечное значение счетчика цикла меньше начального, то цикл FOR не выполнится ни разу.

Возможен другой вариант оператора FOR, когда счётчик цикла уменьшается на 1:

 

FOR <счётчик цикла>:=<нач. зн.> DOWNTO <кон. зн.> DO <оператор>;

 

Здесь цикл будет повторяться, пока

<счётчик цикла> ≥ <кон. зн.>;.

После выполнения цикла FOR значение счётчика цикла становится неопределённым. Не следует в ходе выполнения цикла изменять какими-то операторами значение как счетчика цикла, так и его начального и конечного значений.

 

Оператор цикла WHILE

Это цикл с предварительной проверкой условия повторения цикла. Его структура:

 

WHILE <условие> DO <оператор>;

 

Пока проверяемое условие справедливо (TRUE) то выполняется оператор, стоящий после слова DO. Если проверяемое условие равно FALSE, то оператор WHILE заканчивает свою работу.

 

Пример: Составить программу, которая генерировала бы случайные числа в диапазоне от 0 до 10 включительно до тех пор, пока их сумма не превысит некоторое число N.

 

VAR

X,S,N:INTEGER;

BEGIN

WRITE(‘Введите число N=’);