Презентация к уроку "Оператор цикла с предусловием" 8 класс

Оператор цикла с предусловием

Всегда можно найти достаточно времени,

если употреблять его хорошо.

Гете

Основные понятия

• Алгоритмическая конструкция повторение (цикл) представляет собой последовательность действий, выполняемых многократно.
• Саму последовательность называют телом цикла .
• Цикл с предусловием используется в том случае, когда известно условие продолжения работы.

Для записи оператора цикла с предусловием используется команда while .

Формат команды:

while do

begin

тело цикла;

end ;

Определить, сколько раз выполнится тело цикла.

x:=1;

Тело цикла не выполнится ни разу

x:=1;

while xdo

Тело цикла будет выполнено 10 раз

while xdo

begin

writeln (x);

begin

writeln (x);

x:=x-1;

end ;

x:=x+1;

end ;

Определить, сколько раз выполнится тело цикла.

x:=1;

x:=1;

Будет выполняться бесконечно

while xdo writeln (x);

Тело цикла будет выполнено 1 раз

while x=1 do

x:=1;

while x

Появится сообщение об ошибке

begin

writeln (x);

begin

x:=x+1;

writeln (x);

end ;

x:=x+1;

end ;

Входной контроль

Google Chrome→Google Disk→Папка 8

класс→Документ Входной контроль

Входной контроль

var x,y: integer;

begin

x:=1;

while xdo

begin

y:=x*x;

writeln ('x=',x, ' y=',y);

x:=x+1;

end ;

end .

Задача. Составить программу, выводящую на экран ЧЕТНЫЕ числа от 8 до 40.

var x: integer;

begin

x:=8;

while xdo

begin

write (x, ' ');

x:=x+2;

end ;

end .

Задача. Составить программу, выводящую на экран НЕЧЕТНЫЕ числа от 11 до 31.

var x: integer;

begin

x:=11;

while xdo

begin

write (x, ' ');

x:=x+2;

end ;

end .

var x: integer;

begin

x:=8;

while xdo

begin

write (x, ' ');

x:=x+2;

end ;

end .

Задача. Составить программу, выводящую на экран фрагмент таблицы умножения на 3.

Задача. Составить программу, выводящую на экран фрагмент таблицы умножения на 3.

var x: integer;

begin

x:=1;

while xdo

begin

writeLN (x,' *3= ', x*3);

x:=x+1;

end ;

end .

Задача. Составить программу рисования квадратов, расположенных вертикально друг под другом.

Задача. Составить программурисования квадратов, расположенных вертикально друг под другом.

USES GRAPHABC;

var x,y: integer;

begin

x:=100;

y:=0;

while ydo

begin

Rectangle(x,y,x+50,y+50);

y:=y+100;

end ;

end .

Практическая работа

Составить программу, которая:

• Выводит на экран числа от 3 до 49, кратные 3.
• Выводит на экран фрагмент таблицы умножения на 7.
• Рисует квадраты, расположенные по диагонали друг за другом.

Результат выполнения

1

2

3