Lekce 1.13
Cykly (FOR, REPEAT, UNTIL)

Pokud budete pot°ebovat v programu provΘst n∞jakou akci s p°edem znßm²m poΦtem opakovßnφ, bude nejvhodn∞jÜφ pou₧φt cyklus typu For..Next. Jednß se o cyklus, ve kterΘm je definovßn tzv. ΦφtaΦ, kter² udßvß kolikrßt se mß cyklus jeÜt∞ provΘst. ╚φtaΦ je automaticky systΘmem zvyÜovßn o jedniΦku. Sm∞r naΦφtßnφ m∙₧e b²t p°itom nahoru, nebo dol∙:

Sub Main()
    ConsoleClear      'vyma₧e obsah textovΘho v²stupu
    ConsoleShow       'zobrazφ textovΘ v²stupnφ okno

    'cyklus sm∞rem nahoru
    For x = 1 to 10
        Writeln(x) 
    Next

    'cyklus sm∞rem dol∙
    For x = 10 to 1 Step -1
        Writeln(x) 
    Next
End Sub

Pokud budete chtφt ve svΘm programu pou₧φt cyklus, jeho₧ ukonΦenφ bude zßviset na spln∞nφ zadanΘ podmφnky, mßte mo₧nost pou₧φt cyklus typu Do..Loop. Podmφnku pro opakovßnφ cyklu m∙₧ete p°itom uvΘst bu∩ na zaΦßtku cyklu, nebo na jeho konci. Podle toho budou takΘ vykonßvßny p°φkazy obsa₧enΘ v cyklu. Pokud uvedete podmφnky cyklu na jeho konci, provede se cyklus v₧dy minimßln∞ jednou, co₧ m∙₧e b²t v n∞kter²ch programech v²hodnΘ.

Sub Main()
    x = 0
    Do                   'zaΦßtek cyklu
       Writeln(x)        'v²pis hodnoty ΦφtaΦe
       x = x+1           'zv²Üenφ hodnoty ΦφtaΦe
    Loop While x < 10    'dokud je v²raz pravdiv²

    x = 0
    Do                   'zaΦßtek cyklu
       Writeln(x)        'v²pis hodnoty ΦφtaΦe
       x = x+1           'zv²Üenφ hodnoty ΦφtaΦe
    Loop Until x = 10    'dokud nenφ v²raz pravdiv²
End Sub

P°φkazy jsou vykonßvßny opakovan∞, dokud nenφ spln∞na (nespln∞na) zadanß podmφnka uvedenß na konci cyklu. Pokud je v cyklu zadßno While, provßdφ se p°φkazy opakovan∞ tak dlouho, dokud je podmφnka cyklu pravdivß. P°i zadßnφ Until v podmφnce se budou p°φkazy vykonßvat opakovan∞ tak dlouho, dokud nenφ podmφnka cyklu spln∞na. Obdobn²m zp∙sobem lze zadat cyklus, kde je platnost podmφnky vyhodnocovßna na zaΦßtku cyklu. V takovΘm p°φpad∞ vÜak nemusφ b²t podle zadanΘ podmφnky a poΦßteΦnφch hodnot cyklus proveden ani jednou.

Sub Main()
    x = 0
    Do While x < 10    'dokud je v²raz pravdiv²
       Writeln(x)      'v²pis hodnoty ΦφtaΦe
       x = x+1         'zv²Üenφ hodnoty ΦφtaΦe
    Loop 

    x = 0
    Do Until x = 10    'dokud nenφ v²raz pravdiv²
       Writeln(x)      'v²pis hodnoty ΦφtaΦe
       x = x+1         'zv²Üenφ hodnoty ΦφtaΦe
    Loop 
End Sub

Jako dalÜφ cyklus m∙₧ete pou₧φt cyklus While, kter² vyhodnocuje podmφnku opakovßnφ cyklu v₧dy na jeho poΦßtku. To umo₧≥uje, ₧e pokud nenφ podmφnka spln∞na, neprovedou se p°φkazy uvedenΘ v bloku nßsledujφcφm za definicφ cyklu ani jednou. To m∙₧e b²t v n∞kter²ch p°φpadech v²hodnΘ a je proto nutnΘ se p°i vlastnφm programovßnφ rozhodnout, kter² druh cyklu mß b²t pou₧it.

X = 1
While x < 5        'dokud je v²raz pravdiv²
   Writeln(x * 1.22);
   x = x + 1       'zv²Üenφ hodnoty ΦφtaΦe
Wend

P°i programovßnφ cykl∙ si musφte dßt pozor na to, aby byly v t∞le cyklu p°φkazy umo₧≥ujφcφ jeho ukonΦenφ. Pokud byste m∞li nap°φklad cyklus s definovanou podmφnkou, kterß nebude nikdy spln∞na, b∞₧el by program stßle v tomto cyklu a museli byste jej ukonΦit restartem.

V tΘto lekci jsme se zab²vali n∞kolika p°φkazy, kterΘ vÜak provßd∞ly podobnou Φinnost. P°φkazy cyklu jsou v programech velmi Φasto pou₧φvanΘ. Je vÜak nutnΘ si podle po₧adovan²ch akcφ vybrat nevhodn∞jÜφ p°φkaz pro cyklus.