Podmienené cykly (cykly s nekonečným počtom opakovaní)

REPEAT .. UNTIL

REPEAT
    príkaz;
    ..
UNTIL (podmienka);

Cyklus REPEAT .. UNTIL je založený na tom, že príkazy sa môžu vykonať nekonečne veľa krát. Opakovanie bude ukončené až vtedy keď bude splnená podmienka zadaná za slovíčkom UNTIL.

Príklad:
Repeat
    WriteLn(‘Stlac klaves ENTER ak chces pokracovat’);
    ch:=ReadKey;
Until (ch=#13);

Program bude po každom stlačení klávesy na obrazovku vypisovať text dovtedy pokiaľ, nebude stlačená klávesa ENTER.


WHILE

WHILE (podmienka) DO BEGIN
    príkaz;
    ..
END;

Príkazy medzi BEGIN .. END sa budú vykonávať dovtedy, pokiaľ bude splnená podmienka v časti WHILE. Cyklus je podobný REPEAT .. UNTIL s tým rozdielom že v tomto cykle sa podmienka testuje na začiatku, zatiaľ čo pri REPEAT až po prvom vykonaní príkazov. Z tohto vyplýva, že REPEAT .. UNTIL sa vykoná najmenej raz, zatiaľ čo WHILE sa nemusí vykonať ani raz.

Príklad:
i:=0;
while (i<10) do begin
    i:=i+1;
    WriteLn('I=‘,i);
end;

Premenná i slúži ako počítadlo. Na začiatku sa nastaví na hodnotu 0. V podmienke sa testuje, či je menšia ako 10. Pokiaľ je i menšie potom sa vykonávajú príkazy medzi BEGIN..END. Jeden z príkazov je aj zväčšenie premenej i. Takže cyklus sa zopakuje celkovo 10 krát.


<<Predošlá | Obsah | Ďalšia>>
Copyright © TrSek. www.TrSek.com. Posledná zmena: 3 Jún, 2006