Primjeri: Vrijednosni i variablilni parametri. x je 1, y je 4 u glavnom programu. Oba uvecaj za 2 u proceduri. x je vrijednosni, y varijablini (izlazni) parametar.
Opis programa: Varijable x i y u glavnom programu dobijaju vrijednosti 1 4. Prenošenje ovih vrijednosti u potprogram se izvodi direktno, jer je to definisano u zaglavlju potprograma sa definisanjem varijabli a i b PROCEDURE Dodaj_2 (a:Integer; VAR b:Integer). U procedure se uvaćavaju vrijednosti varibli a i b i kao uvačane se ispisuju. Pri izlasku se dešava da x ima staru vrijednost a y novu. Zato što je x definsano samo kao ulazna varijabla (a:Integer; ) a y je sa naredbom VAR definisana kao ulazno izlazna tj. pri izlasku iz programa varijabli y će se pridružiti nova vrijednost.
Listing programa:
PROGRAM p09111013;
{Vrijednosni i variablilni parametri.
x je 1, y je 4 u glavnom programu. Oba uvecaj za 2 u proceduri.
x je vrijednosni, y varijablini (izlazni parametar).}
Var
x, y : Integer;
PROCEDURE Dodaj_2 (a:Integer; VAR b:Integer); {potprogram procedura Dodaj_2 }
BEGIN
Writeln(' *** Procedura *** ');
Writeln('Ulazak:', a:14, b:5);
a := a + 2;
b := b + 2;
Writeln('Dodaj 2: ', a:12, b:5);
Writeln;
END;
BEGIN {Glavni program}
x := 1;
y := 4;
Writeln(' *** Program *** ');
Writeln('Start:', x:15, y:5);
Dodaj_2 (x, y); {poziv procedure}
Writeln('Povratak u program: ', x, y:5);
READLN;
END.
Ispis na ekranu:
Index
|
|