Primjeri: Vrijednosni i variablilni parametri. x je vrijednosni parametar i u glavnom programu je 3, y je varijablini (izlazni parametar) i u glavnom programu ima vrijednost 7 u glavnom programu. Oba umanji za 3 u proceduri, a zatim ispiši njihove vrijednosti u glavnom programu.

Opis programa: Varijable x i y u glavnom programu imaju vrijednosti 3 i 7. Prenošenje ovih vrijednosti u potprogram se izvodi direktno, jer je to definisano u zaglavlju potprograma sa definisanjem varijabli a i b PROCEDURE Oduzmi_3 (a:Integer; VAR b:Integer); . U procedure se umanjuju vrijednosti varibli a i b za 3 i kao umanjene se ispisuju (0 i 4). Pri izlasku se dešava da x ima staru vrijednost iz glavnog programa, dok y dobija novu vrijednost. Zato što je x definsano samo kao ulazna varijabla (a:Integer) a y je sa naredbom VAR b:Integer definisana kao ulazno izlazna tj. pri izlasku iz programa varijabli y će se pridružiti nova vrijednost (dobijena od varijable b).

Listing programa:

PROGRAM p09111014;
{Ulazna i ulazno izlazne varijable}
USES
  WinCrt;
Var 
  x, y : Integer;

PROCEDURE Oduzmi_3 (a:Integer; VAR b:Integer);  {potprogram Oduzmi_3 }
BEGIN
  Writeln('  ***  Procedura  ***  ');
  Writeln('Ulaz u proceduru: ', a:5, b:5);
  a := a - 3;
  b := b - 3; 
  Writeln('Umanji za 3: ', a:5, b:5);
  Writeln;
END;
 
BEGIN                {Glavni program} 
  x  := 3;
  y  := 7;
  Writeln('  ***  Program  ***  ');
  Writeln('Pocetne vrijednosti: ', x:5, y:5);

  Oduzmi_3 (x, y);   {poziv procedure}

  Writeln('Povratak u program: ', x:5, y:5);
END.

Izvođenje programa:

Index