Procedure: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Vytvorená stránka „Procedura je část programu, která vykonává specifickou akci, často v závislosti na množině parametrů. ;Syntaxe procedure identifikátor; NEBO procedure...“) |
|||
| (Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
| Řádek 8: | Řádek 8: | ||
;Popis | ;Popis | ||
| − | + | *Záhlaví procedury určuje identifikátor procedury a seznam formálních parametrů (jestliže nějaké jsou). | |
| − | + | *Procedura je aktivována příkazem volání procedury. | |
| − | + | *Za záhlavím procedury následuje blok procedury, který obsahuje: | |
| − | + | ** deklarační část lokálních objektům (konstanty, proměnné, procedury aj.) | |
| − | * deklarační část lokálních objektům (konstanty, proměnné, procedury aj.) | + | ** příkazy mezi vyhrazenými slovy a , které určují vykonávanou posloupnost příkazů při volání procedury |
| − | * příkazy mezi vyhrazenými slovy a , které určují vykonávanou posloupnost příkazů při volání procedury | ||
| Řádek 40: | Řádek 39: | ||
| + | [[Category:Zakladní_príkazy]] | ||
[[Category:rezervovaná slova]] | [[Category:rezervovaná slova]] | ||
Aktuální verze z 30. 9. 2012, 00:12
Procedura je část programu, která vykonává specifickou akci, často v závislosti na množině parametrů.
- Syntaxe
procedure identifikátor; NEBO procedure identifikátor ( parametry );
- Popis
- Záhlaví procedury určuje identifikátor procedury a seznam formálních parametrů (jestliže nějaké jsou).
- Procedura je aktivována příkazem volání procedury.
- Za záhlavím procedury následuje blok procedury, který obsahuje:
- deklarační část lokálních objektům (konstanty, proměnné, procedury aj.)
- příkazy mezi vyhrazenými slovy a , které určují vykonávanou posloupnost příkazů při volání procedury
Pro deklaraci procedury obsluhy přerušení použijte direktivu interrupt.
Místo deklarační a příkazové části může deklarace funkce obsahovat direktivy forward, external nebo inline.
Příklad
{;Deklarace procedury }
procedure WrStr(X, Y: integer; S: string);
var
SaveX, SaveY: Integer;
begin
SaveX :=WhereX;
SaveY :=WhereY;
GotoXY(X, Y);
Write(S);
GotoXY(SaveX, SaveY);
end;
- Viz také
