Repeat: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(repeat, until, while)
 
(Není zobrazena jedna mezilehlá verze od stejného uživatele.)
Řádek 1: Řádek 1:
 
=Podmienené cykly (cykly s nekonečným počtom opakovaní)=
 
=Podmienené cykly (cykly s nekonečným počtom opakovaní)=
  
==REPEAT .. UNTIL==
+
===REPEAT .. UNTIL===
  
 
  REPEAT
 
  REPEAT
Řádek 17: Řádek 17:
 
Program bude po každom stlačení klávesy na obrazovku vypisovať text dovtedy pokiaľ, nebude stlačená klávesa ENTER.
 
Program bude po každom stlačení klávesy na obrazovku vypisovať text dovtedy pokiaľ, nebude stlačená klávesa ENTER.
  
==WHILE==
+
===WHILE===
  
 
  WHILE (podmienka) DO BEGIN
 
  WHILE (podmienka) DO BEGIN
Řádek 34: Řádek 34:
 
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.
 
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.
  
 +
 +
Kam ďalej: [[Príručka pre Pascal (lite)|Obsah]] | [[Reťazec|Príkazy pre prácu s reťazcami]]
  
 
[[Category:Príručka_pre_Pascal_(lite)]]
 
[[Category:Príručka_pre_Pascal_(lite)]]

Aktuální verze z 22. 9. 2012, 22:59

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.

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.

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.


Kam ďalej: Obsah | Príkazy pre prácu s reťazcami