Príkaz cyklu

V poslednej časti nášho 3-dielneho seriálu „Vytvárame aplikáciu Les vo vývojovom prostredí Lazarus“ si ukážeme použitie príkazu cyklu. Procedúra na nakreslenie n stromov na náhodných pozíciách vyzerá nasledovne:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, x, y, i, n: integer;
begin
n:=StrToInt(Edit1.Text);
// príkaz cyklu
for i:=1 to n do
begin
a:=30+random(41);
b:=30+random(41);
if a>b then begin c:=a; a:=b; b:=c end;
x:=random(Image1.Width);
y:=random(Image1.Height);
Image1.Canvas.Pen.Color:=ClBlack;
Image1.Canvas.Brush.Color:=ClMaroon;
Image1.Canvas.Rectangle(x,y,x+a,y+b);
Image1.Canvas.Pen.Color:=ClBlack;
Image1.Canvas.Brush.Color:=ClGreen;
Image1.Canvas.Ellipse(x-10,y-20-b,x+a+10,y+20);
end;
end;


ZAPAMӒTAJME SI

V hlavičke cyklu uvádzame meno riadiacej premennej, ktorá sa bude postupne zväčšovať o 1 a hranice cyklu – počiatočnú hodnotu, ktorá sa priradí do riadiacej premennej a koncovú hodnotu, po ktorú sa bude obsah riadiacej premennej zväčšovať.

Príkaz cyklu má tvar:

FOR riadiaca premenná:= počiatočná hodnota TO koncová hodnota DO
príkaz;

alebo
FOR riadiaca premenná:= počiatočná hodnota TO koncová hodnota DO
begin
príkaz 1;
príkaz 2;
… (zoznam ďalších príkazov);
end;

V konštrukcii cyklu rozoznávame dve časti:

Hlavičku cyklu: FOR riadiaca premenná:= počiatočná hodnota TO koncová hodnota DO
Telo cyklu: obsahuje príkazy;