Цикл. Операторы циклов

1.

2. Операторы циклов

ОПЕРАТОРЫ ЦИКЛОВ

3.

4. Цикл с предусловием «Пока»

ЦИКЛ С ПРЕДУСЛОВИЕМ
«ПОКА»

5. Цикл с постусловием «До»

ЦИКЛ С ПОСТУСЛОВИЕМ «ДО»

6.

Оператор цикла с предусловием (цикл
«Пока») WHILE является наиболее общим по
сравнению с другими конструкциями.
Оператор REPEAT (цикл «До») используется так
называемое постусловие, т.е. значение логического
выражения, управляющее выходом из цикла,
проверяется после выполнения операторов.
Цикл с параметром (цикл «Для») имеет два
варианта :
1) с возрастанием переменной цикла
2) с убыванием переменной цикла

7.

1) WHILE <выражение булёвского типа> DO
<оператор>
2) REPEAT
<последовательность операторов>
UNTIL <выражение булёвского типа>
3) с возрастанием переменной цикла:
FOR <идентификатор> := <выражение> TO
<выражение> DO <оператор>;
4) с убыванием переменной цикла:
FOR <идентификатор> :=
<выражение> DOWNTO <выражение> DO
<оператор>;

8. Вложенные циклы

ВЛОЖЕННЫЕ ЦИКЛЫ
Цикл внутри тела другого цикла
называется вложенным. Вложенный
будет именоваться внутренним циклом,
и цикл в теле которого существует
вложенный цикл будет
именоваться внешним по отношению к
вложенному. Внутри вложенного цикла
в свою очередь может быть вложен еще
один цикл, образуя следующий уровень
вложенности и так далее. Количество
уровней вложенности как правило не
ограничивается.

9. Пример( алгоритм Евклида нахождения НОД)

ПРИМЕР( АЛГОРИТМ ЕВКЛИДА
НАХОЖДЕНИЯ НОД)

10. Домик из звездочек (вложенные циклы)

ДОМИК ИЗ ЗВЕЗДОЧЕК
(ВЛОЖЕННЫЕ ЦИКЛЫ)
Задача следующая: запросив высоту крыши домика, нужно
изобразить из звездочек и решеток домик в текстовом виде.
Для высоты 6 домик должен выглядеть таким образом:
*
***
*****
*******
*********
***********
#########
#####
#
#
#
#
#
#
#
#
#########

11. Решение задачи «Домик»

РЕШЕНИЕ ЗАДАЧИ «ДОМИК»
Обозначим номер строки i. Тогда, число
пробелов будет равно p=n-i, а число звездочек
z=2*i-1.
Для отображения пробелов и звездочек
используем команду write, а для перехода на
следующую строку writeln.
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to 2*i-1 do write('*');
writeln;
end;