Операторы цикла while и repeat

Оператор цикла while имеет следующую форму:

while условие do оператор;

Условие представляет собой логическое выражение, а оператор после do называется телом цикла. Перед каждой итерацией цикла условие вычисляется, и если оно истинно, то выполняется тело цикла, в противном случае происходит выход из цикла. Если при первом вычислении значения условия оно окажется ложным, то тело цикла не выполнится ни разу. В качестве оператора тела цикла может быть использован составной оператор, заключенный в операторные скобки begin … end.

Структурное обозначение следующее:

Если условие всегда оказывается истинным, то может произойти зацикливание:

while 2>1 do write(1);

Пример. Дано натуральное число n (n > 0). Подсчитать количество цифр данного числа.

var n,count: integer;

Begin

read(n); count:=0;

while n>0 do

Begin

Inc(count);

n:=n div 10

End;

Writeln(count)

End.

Оператор цикла repeat имеет следующую форму:

Repeat

Операторы

until условие;

Структурное обозначение следующее:

В отличие от цикла while условие вычисляется после очередной итерации цикла, и если оно истинно, то происходит выход из цикла. Таким образом, операторы, образующие тело цикла оператора repeat, выполняются по крайней мере один раз.

Если условие всегда оказывается ложным, то может произойти зацикливание:

Repeat

Write(1);

until 2=1;

Задача о вычислении количества цифр данного натурального числа n может быть решена с помощью оператора цикла с постусловием следующим образом:

var n,count: integer;

Begin

read(n); count:=0;

Repeat

Inc(count);

n:=n div 10

until n=0;

Writeln(count)

End.

Тело оператора цикла с постусловием можно не заключать в операторные скобки, так как их роль выполняют слова repeat и until.

Не нашли, что искали? Воспользуйтесь поиском: