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.