Opakovanie v Pascale
Sa robí niektorým z týchto spôsobov:
1. Príkaz while .... do
while x<3 do
príkaz A;
príkaz B;
= kým je podmienka pravdivá (x<3), opakuje sa príkaz A. Ak prestane platiť, program pokračuje príkazom B a ďalej.
2. Príkaz repeat .... until
repeat
príkaz A;
príkaz B;
until x<3;
príkaz C;
= je to isté, len podmienka sa zisťuje na konci vetvenia. Príkazy A a B sa opakujú, kým neplatí podmienka x<3. Ak začne platiť, ide príkaz C.
3. Príkaz for .... to ... do:
for i:=1 to 7 do
writeln(i);
write(staci);
= cyklus napíše hodnotu i, ktorá ide od 1 po 7 a po cykle slovo staci, čiže 1234567staci.
Hodnoty odkiaľ pokiaľ má hodnota stúpať, zadávame sami podľa potreby. Ak chceme, aby hodnota klesala, príkaz je:
for i:=10 downto 4 do
i bude klesať od 10 po 4 a cyklus sa vykoná 7 krát.
Tento cyklus sa používa, ak vieme dopredu, koľko x sa má niečo zopakovať.
!!! Ak potrebujeme opakovať VIAC AKO 1 PRÍKAZ použijeme begin a end !!!
Príklad 8 [1]
Príklad 9 [2]
Príklad 10 [3]

[1]
Pietro:
Uprav program, ktorý vyzve človeka na zadanie čísla, po ktoré chceme losovať (napr 20), potom vylosuje 5 čísel a napíše ich s komenárom vase stastne cisla su ....
[2]
Pietro: Napíš program, ktorý si vypýta najprv počet výpočtov, potom Hrubú mzdu v korunách, vypočíta a zobrazí čistú mzdu podľa týchto kritérií:
ak je hrubá mzda pod 10000Sk, daň je 10 percen, od 10001 po 20000 je 15 percent a nad 20001 je 20 percent. Po poslednom skončí.
[3]
Pietro: Napíš program, ktorý vypíše tieto čísla a skončí: 5 4 3 2 1 0 -1 -2 -3 -4 -5. Príklad urobte VŠETKÝMI TROMI TYPMI CYKLOV.