Цикл с предусловием

1.

Здравствуйте, дети!

2.

Установите соответствие:
1) Логическое выражение.
(a>b, 6=h, …)
2) Последовательность
повторяющихся действий.
3) OR, AND, NOT.
4) Используется для выполнения
повторяющихся действий, если число
повторений известно.
A. Тело цикла
B. Условие
C. Логическая
операция
D. for I:=1 to 5 do
тело цикла;

3.

Заполните пропуски
1. Найти и вывести на экран сумму первых 10 натуральных
чисел.
S:=0;
for I:=1 to 10 do ............................;
Writeln(‘сумма=’,S);
2. Найти и вывести на экран 5!
P:=1;
for I:=2 to 5 do .................................;
Writeln(‘5!=’,P);
3. Найти и вывести на экран числа кратные 2, в
промежутке от 1 до 20.
for I:=1 to … do
Writeln(………………………);

4.

Цикл с заданным условием продолжения
работы
(цикл-ПОКА, цикл с предусловием)
нет
Условие
да
Тело цикла

5.

Цикл с предусловием
while <условие> do begin
{тело цикла}
end;
Особенности:
• можно использовать сложные условия:
while (a < b) and (b < c) do begin
{тело цикла}
end;
• Перед проверкой условия необходимо задать
значение переменных, используемых в условии
цикла
a := 1; b := 10;
while a < b do …

6.

Цикл с предусловием
Особенности:
• условие пересчитывается каждый раз при входе в
цикл
• если условие на входе в цикл ложно, цикл не
выполняется ни разу
a := 4; b := 6;
while a > b do
a := a – b;
• если условие никогда не станет ложным, программа
зацикливается
a := 4; b := 6;
while a < b do
d := a + b;

7.

Цикл с предусловием
Особенности:
• если в теле цикла только один оператор, слова begin
и end можно не писать:
while a < b do
a := a + 1;
• Необходимо изменять переменную цикла в теле цикла
Здесь нужны слова begin и end
a := 1; b:= 10;
while a < b do
begin
s := s + a;
a := a + 1;
end;

8.

Сколько раз выполняется цикл?
a := 4; b := 6;
while a < b do a := a + 1;
2 раза
a=6
a := 4; b := 6;
while a < b do a := a + b;
1 раз
a = 10
a := 4; b := 6;
while a > b do a := a + 1;
0 раз
a=4
a := 4; b := 6;
while a < b do b := a - b;
1 раз
b = -2
a := 4; b := 6;
while a < b do a := a - 1;
зацикливание

9.

Вывести на экран все четные числа от 1 до 20
var k: integer;
Begin
k:=2;
while k<=20 do begin
writeln (k);
k := k+2;
end;
end.

10.

Маше надо решить 100 примеров. Она решила, что в
первый день решит - 1 пример, во второй - 2, в третий - 3 и
так далее. Сколько дней Маша будет решать примеры?
var p, sum: integer;
Begin
sum := 0;
p:=1;
while sum<=100 do begin
sum := sum+p;
p := p+1;
end;
writeln (p);
end.

11.

Домашнее задание
§ 3.5.1
Стр. 141 №2, 3
Придумать несколько задач,
которые можно решить с помощью
цикла с предусловием.

12.

Все ли мне было понятно на уроке
Я ничего не понял
Я многое понял
Я понял все

13.

Задача для самостоятельного решения
Вова готовится к сдаче ГТО. Ему нужно
пробежать 5 км. Вова решил начать бегать
300 м, причем каждые 2 дня он увеличивает
свою дистанцию на 100 м. Через сколько
дней Вова сможет сдать норму ГТО.
Какое условие будем проверять?
Сколько он пробежал в 1-ый день?
В какой день (четный или нечетный) Вова
пробежит 5 км?

14.

Все ли мне было понятно на уроке
Я ничего не понял
Я многое понял
Я понял все