Циклы с условиями в языке Pascal

1.

Циклы с условиями
в языке Pascal

2.

Цикл
Цикл (повторение) – структура, в которой
определенный набор команд записан один раз,
а выполняется многократно.

3.

3 способа организации цикла. Пример:
Время до обеда
k,1,10
Взять ящик
нет
да
Отнести в сарай
Взять ящик
Вернуться обратно
Отнести в сарай
Взять ящик
Отнести в сарай
нет
Вернуться обратно
Время обедать
Вернуться обратно
да
Существует 3 вида цикла:
• с предусловием
• с постусловием
• с параметром

4.

Цикл с предусловием
условие
да
нет
В языке Pascal:
while <лог.выражение> do
<оператор>
команды
!
Логическое выражение – условие продолжения
цикла.
? Какое наименьшее число повторений тела
цикла возможно в цикле с предусловием?

5.

Цикл с предусловием
Запиши в тетрадь!
while <лог.выражение> do <оператор>
Если в цикле должны содержаться несколько операторов
используют составной оператор – несколько операторов через
точку с запятой, заключенные в операторные скобки begin и
end.
while <лог.выражение> do
begin
<оператор 1>;
<оператор 2>;
<оператор 3>
end

6.

Цикл с постусловием
команды
В языке Pascal:
repeat
<операторы>
нет
условие
until <лог.выражение>
да
!
Логическое выражение – условие выхода
из цикла.
? Какое наименьшее число повторений тела
цикла возможно в цикле с предусловием?

7.

Цикл с постусловием
команды
В языке Pascal:
repeat
<операторы>
нет
условие
until <лог.выражение>
да
В цикле может содержаться один или несколько операторов
через точку с запятой, слова repeat и until выполняют роль
операторных скобок.

8.

Цикл с постусловием
Запиши в тетрадь!
repeat
<операторы>
until <лог.выражение>
В цикле может содержаться один или несколько операторов
через точку с запятой, слова repeat и until выполняют роль
операторных скобок.

9. Исправьте ошибки в программе, которая будет рисовать ряд горизонтальных кругов. Получите результат.

Задание 1
ИСПРАВЬТЕ ОШИБКИ В ПРОГРАММЕ, КОТОРАЯ БУДЕТ РИСОВАТЬ РЯД
ГОРИЗОНТАЛЬНЫХ КРУГОВ. ПОЛУЧИТЕ РЕЗУЛЬТАТ.
uses GraphABC
var
Y: integer;
begin
x:= 20;
while x <= 620 do;
begin
circle(x, 240, 20);
x := x + 40
end;
end

10.

Задание 2
Напишите программу, которая считает НОД. Получите результат.
x, y: integer;
begin
write('Введите x>>');
read(x);
write('Введите y>>');
read(y);
while x <> y do
begin
if x > y then
x := x - y
else
y := y - x
end;
nod := x;
write('НОД = ', nod)
end