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

Тема: Циклы For, While

Лекция №21

Инструкции цикла служат для организации повторов. Цикл – это последовательность инструкций, которая может выполняться более одного раза. Группу повторяемых инструкций называют телом цикла.

Выполнение инструкций цикла может быть прервано с помощью команды goto или break, которая передает управление следующей за циклом инструкции.

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

While <условие> do begin

<тело цикла>;

end;

Тело цикла выполняется до тех пор, пока условие истинно (True). Если перед первым выполнением цикла условие не удовлетворяется (False), то тело цикла не выполняется ни разу, и происходит переход к следующей за циклом инструкции.

Задача. Используя цикл на форме построить изображение

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

begin

x:=30;

while x<Form1.Width do begin

Form1.Canvas.Ellipse(x,30,x+50,80);

x:=x+70;

end;

end;

Цикл с постусловием (Repeat … until)

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

Repeat

<тело цикла>;

until <условие>;

Тело цикла выполняется до тех пор, пока условие не примет значение True, т.е. тело цикла выполняется при условии равном False. Так как условие проверяется только в конце цикла, тело цикла выполняется минимум один раз.

Задача 10.1.

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

begin

x:=30;

y:=30;

r:=100;

repeat

Form1.Canvas.Rectangle(x,y,x+r,y+r);

r:=r-10;

until r<30;

end;

Задача 10.2 самостоятельно. Центр окружности (200,200)

r:=100;

repeat

Form1.Canvas.Ellipse(200-r,200-r,200+r,200+r);

r:=r-10;

until r<=0;

Цикл с параметром (For)

Используется, если заранее известно количество повторов цикла.

For <параметр>:=<выражение 1> to <выражение 2>

do begin

<тело цикла>;

end;

Параметр – это переменная, которая изменяется от начального до конечного значения с шагом 1. Цикл может не выполниться ни разу, если начальное значение больше конечного.

Задача. Найти сумму 1+2+3…+10

var

n,s:integer;

procedure TForm1.Button1Click(Sender: TObject);

begin

for n:=1 to 10 do

s:=s+n;

Label1.Caption:=IntToStr(s);

end;

Задача. Определить факториал введенного числа. Т.е. найти произведение чисел 1*2*3… *n (n - веденное число)

var

n,f:integer;

procedure TForm1.Button1Click(Sender: TObject);

begin

f:=1;

for n:=1 to strtoint(Edit1.Text)do begin

f:=f*n;

end;

Edit2.Text:=InttoStr(f);

end;

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

Дата добавления: 2014-01-04