1 578
editací
Změny
Vytvorená stránka „Funkce je blok programu, který vrací hodnotu. ;Syntaxe function identifikátor : typ; NEBO function identifikátor (parametry) : typ; ;Popis *Záhlaví funkce ...“
Funkce je blok programu, který vrací hodnotu.
;Syntaxe
function identifikátor : typ;
NEBO
function identifikátor (parametry) : typ;
;Popis
*Záhlaví funkce určuje identifikátor funkce, formální parametry (jestliže jsou) a typ výsledku funkce.
*Platný typ výsledku je ordinální, reálný, řetězec a ukazatel.
*Volání funkce se objeví jako operand ve výrazu.
Za záhlavím funkce následuje blok, který obsahuje:
* deklarační část lokálních objektů (konstanty, proměnné, procedury aj.)
* příkazovou část, která určuje vykonávané příkazy při volání funkce
Příkazová část by měla obsahovat nejméně jeden příkaz, který přiřadí hodnotu do identifikátoru funkce; většinou je výsledek funkce poslední přiřazená hodnota.
Místo deklarační a příkazové části může deklarace funkce obsahovat direktivy forward, external, inline nebo far.
Příklad
(*;Deklarace funkce *)
function UpCaseStr(S: string): string;
var
I: Integer;
begin
for I :=1 to Length(S) do
if (S[I] >='a') and (S[I] <='z') then
Dec(S[I], 32);
UpCaseStr :=S;
end;
[[Category:rezervovaná slova]]
;Syntaxe
function identifikátor : typ;
NEBO
function identifikátor (parametry) : typ;
;Popis
*Záhlaví funkce určuje identifikátor funkce, formální parametry (jestliže jsou) a typ výsledku funkce.
*Platný typ výsledku je ordinální, reálný, řetězec a ukazatel.
*Volání funkce se objeví jako operand ve výrazu.
Za záhlavím funkce následuje blok, který obsahuje:
* deklarační část lokálních objektů (konstanty, proměnné, procedury aj.)
* příkazovou část, která určuje vykonávané příkazy při volání funkce
Příkazová část by měla obsahovat nejméně jeden příkaz, který přiřadí hodnotu do identifikátoru funkce; většinou je výsledek funkce poslední přiřazená hodnota.
Místo deklarační a příkazové části může deklarace funkce obsahovat direktivy forward, external, inline nebo far.
Příklad
(*;Deklarace funkce *)
function UpCaseStr(S: string): string;
var
I: Integer;
begin
for I :=1 to Length(S) do
if (S[I] >='a') and (S[I] <='z') then
Dec(S[I], 32);
UpCaseStr :=S;
end;
[[Category:rezervovaná slova]]