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).}
USES
  WinCrt;
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);
END.

Izvođenje programa:

Index