Napisati program sa procedurom za ispis vrijednosti brojeva a i b, pridružuje novu vrijednosti u potprogramu a zatim ispisuje u glavnom programu novu vrijednost iz potprograma.

Opis programa: Varijable a i b se u potprogramu uvačavaju za 1 (a:= a + 1; b:= b + 1;). nove vrijednsti su iste i izvan potprogram to se vidi po ispisu vrijednosti u potprogramu.

Listing programa:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
PROGRAM p09111015;
{pro04 Ulazna varijable}
VAR
 a, b :Integer;
PROCEDURE Vrijednost;
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;
  Writeln('Poslije povratka iz potprograma');
  Writeln('a ', a, '   b ',b);
  READLN;
END.

Ispis na ekranu:

Index