1 578
editací
Změny
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...“
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é
[[procedurální typové konstanty]]
[[Category:rezervovaná slova]]
;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é
[[procedurální typové konstanty]]
[[Category:rezervovaná slova]]
