READLN(N);

S:=0;

WHILE S<N do

BEGIN

X:=RANDOM(11);

S:=S+X;

END;

END.

 

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

 

Это цикл с постусловием. Он имеет следующую структуру:

 

REPEAT

<Тело цикла>;

UNTIL <условие>;

 

Все операторы, входящие в тело цикла, повторяются, пока не выполнится условие выхода из цикла, стоящее после слова UNTIL. После этого цикл заканчивает свою работу. В тело цикла можно включать любое количество операторов, не оформляя их, как составной оператор.

 

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

 

VAR

X,S,N:INTEGER;

BEGIN

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

READLN(N);

S:=0;

REPEAT

X:=RANDOM(11);

S:=S+X;

UNTIL S>N;

END.

 

Сравнивая три циклических оператора можно отметить следующее:

· Если точно известно, сколько раз нужно повторять цикл, то лучше использовать оператор FOR.

· Если проверку условия повторения цикла следует выполнить до выполнения оператора, то следует использовать цикл WHILE.

· Если требуется, чтобы тело цикла повторялось хотя бы один раз, а условие выхода из цикла нужно проверить после выполнения всех операторов тела цикла, то целесообразно использовать цикл REPEAT.

· Для бесконечного повторения цикла можно использовать:

WHILE TRUE DO <оператор>;

или

REPEAT <тело цикла> UNTIL FALSE.