9.1.. Vrijednosti a i b se učitvaju u programu. Procedura na ulazu ima definisane varijable a i b u zaglavlju. Vrijednosti a i b se mijenju u proceduri a zatim se ispisuju u glavnom programu.

Opis programa: Varijable a i b su definisane na ulazu u potprogram PROCEDURE Vrijednost (a, b:Integer);. Ovo predstavljaju 2 nove varijable. Omogućen je ulaz ali nije izlaz vrijednosti ovih varijabli što je vidljivo pri ispisu programa.

Listing programa:

PROGRAM p09111016;
{Ulazna varijable definisanu u PROCEDURE HEADER-u}
VAR
 a, b :Integer;
PROCEDURE Vrijednost (a, b:Integer);
BEGIN
  Writeln('Potprogram ulaza');
  Writeln('a ', a, '   b ',b);
  a:= a + 1; 
  b:= b + 1; 
  Writeln('Potprogram poslije promjene');
  Writeln('a ', a, '   b ',b);
END;

BEGIN       {MAIN}
  a:=1; 
  b:= 3;
  Writeln('Program');
  Writeln('a ', a, '   b ',b);
  Vrijednost (a, b);
  Writeln('Poslije povratka iz potprograma');
  Writeln('a ', a, '   b ',b);
  READLN;
END.

II verzija
PROGRAM p09111016;
{Ulazna varijable definisanu u PROCEDURE HEADER-u}
VAR
 a, b :Integer;
PROCEDURE Vrijednost (x, y:Integer);
BEGIN
  Writeln('Potprogram ulaza');
  Writeln('x ', x, '   y ', y);
  x:= x + 1;
  y:= y + 1;
  Writeln('Potprogram poslije promjene');
  Writeln('x ', x, '   y ', y);
END;
 
BEGIN       {MAIN}
  a:=1; 
  b:= 3;
  Writeln('Program');
  Writeln('a ', a, '   b ',b);
  Vrijednost (a, b);
  Writeln('Poslije povratka iz potprograma');
  Writeln('a ', a, '   b ',b);
  READLN;
END.

Ispis na ekran II verzija
Program
a 1   b 3
Potprogram ulaza
x 1   y 3
Potprogram poslije promjene
x 2   y 4
Poslije povratka iz potprograma
a 1   b 3

Izvođenje programa:

Index