Цикл While Repeat

Повторение
1. Что такое алгоритм?
2. Какие типы алгоритмов вы знаете?
3. Какой алгоритм называется линейным?
4. Какой алгоритм называется разветвляющимся?
5. Какой алгоритм называется циклическим?
6. Какие типы данных мы с вами изучили?
7. Какие операторы изучены?

Какие закономерности вы замечаете?

Приведите примеры
циклических алгоритмов

Цикл While (Пока)
Цикл с предусловием.
Цикл Пока исполняется, пока исполняется условие.
Общий вид:
While <условие> do
begin
…<тело цикла>
end;
Цикл с постусловием.
Цикл исполняется пока условие ложное
Общий вид:
Repeat
…<Тело цикла>
Until <условие>;
Цикл Repeat (Повторение, Цикл ДО)

Цикл While
(Пока)
НЕТ
<условие>
Тело цикла
ДА
Цикл Repeat
(Повторение, Цикл ДО)
Тело цикла
<условие>
НЕТ
ДА

Задача 7.1
Подсчитать сумму всех четных чисел от 10 до 124.
С помощью цикла While.
С помощью цикла Repeat

Блок-схема к задаче 7.1
Начало
Sum:=0
I:=10
I<125
Sum:=Sum+i
i:=i+2
Sum
Конец
ДА
НЕТ
While
Начало
Sum:=0
I:=10
I>124
Sum:=Sum+i
i:=i+2
Sum
Конец
ДА
НЕТ
Repeat

Программы к задаче 7.1
Program cikl_while;
Var I,sum:integer;
Begin
sum:=0;
i:=10;
while i<125 do
begin sum:=sum+i;
i:=i+2;
end;
Writeln(‘Сумма=‘ , sum);
End.
Program cikl_repeat;
Var I,sum:integer;
Begin
sum:=0;
i:=10;
repeat
sum:=sum+i;
i:=i+2;
Until i>124;
Writeln(‘Сумма=‘ , sum);
End.