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

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

Выполните тест "Оператор цикла с параметром"

Теоретическая часть

Циклы с предусловием используются тогда, когда выполнение цикла связано с некоторым логическим условием.

Оператор цикла с предусловием имеет две части: условие выполнения цикла и тело цикла.

При выполнении оператора while определенная группа операторов выполняется до тех пор, пока определенное в операторе while условие истинно.

Если условие сразу ложно, то тело цикла не выполнится ни разу.

Общая форма записи оператора цикла с предусловием:

while <условие> do

begin

группа операторов

end;

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

Способ 1 (цикл с параметром)

uses crt;

var i: integer;

begin

for i:= 1 to 10 do begin

writeln (i);

end;

end.

Способ 2 (цикл с предусловием)

uses crt;

var i: integer;

begin

i:=1;

while i<=10 do begin

writeln (i);

i:=i+1;

end;

end.

Практическая часть

Задание 1. Напишите программу, используя цикл с предусловием, чтобы

а) на экран выводились первые 20 натуральных чисел,

б) на экран выводились числа от 15 до 30.

Задание 2. Составьте программу, используя цикл с предусловием, которая 15 раз выводит на экран надпись "Я люблю программировать!"

Задание 3. Составьте программу, используя цикл с предусловием, которая выводит на экран 15 синих кругов.

Пример с циклом с параметром:

uses crt, graphabc;

var i, x: integer;

begin

x:=20;

for i:= 1 to 15 do begin

circle(x,50,20);

floodfill(x,50,clblue);

x:=x+40;

end;

end.

Задание 4. Составьте программу, используя цикл с предусловием, которая выводит на экран

а) 9 желтых кругов;

б) 8 зеленых кругов вертикально вдоль левого края окна.

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

Видеоурок