case
case výraz of case: ...; case: ...; end;
Tam, kde potřebujeme rozlišit více hodnot jedné proměnné můžeme místo vnořených příkazů if použít přepínač case. Ten obsahuje seznam významných hodnot a k nim přiřazené příkazy nebo programové bloky. Příkaz case je ukončen slovem end.
Poznámka: Řídící proměná (v našem případě b) musí být ordinálního typu.
case b of 1: begin {blok programu pro b=1} end; 2: begin {blok programu pro b=2} end; 43: begin {blok programu pro b=43} end; else begin {blok programu pro neuvedené hodnoty} end; end;
Struktura case může obsahovat blok else, který se provádí pokud hodnota výrazu není uvedena v žádné z možností.
Významné hodnoty je možno uvádět jednotlivě, nebo výčtem či jako interval, jak můžete vidět na dalším příkladu:
case cislo of 1:writeln('Cislo je 1'); 2,4,6,8:writeln('Cislo je sude a mensi nez 10'); 11..19:writeln('Cislo lezi v intervalu <11;19>'); . . end;
Exit
Exit;
Okamžité ukončení právě prováděného bloku příkazů. Je-li to hlavní program, dojde k ukončení programu.
Halt(exitcode:word);
Okamžité ukončení programu. Hodnota exitcode bude předána nadřízenému procesu , který program spustil (většinou operační systém).
Jednotka CRT obsahuje přímou obsluhu obrazovky a klávesnice. Projevuje se to zvýšením rychlosti vstupních/výstupních operací. Kromě toho jednotka podporuje manipulaci s pracovní plochou na obrazovce. Pokud hodláte používat tuto jednotku v programu, musíme její jméno uvést v sekci uses.
KeyPressed
KeyPressed:boolean;
Zjišťuje přítomnost znaků ve vyrovnávací paměti klávesnice. Pokud je přítomen nějaký znak, vrací hodnotu true.
ReadKey
ReadKey:char;
Vrací jeden znak z vyrovnávací paměti klávesnice. Pokud tam žádný znak není, čeká na stisknutí klávesy.
ClrScr
ClrScr;
Provede vymazání obrazovky a nastaví textový kurzor do levého horního rohu.
Delay
Delay(time:word);
Pozastaví provádění programu na time milisekund.