Program sederhana Prosedur di Paskal 1

Program Prosedure Hitung di Paskal

PROGRAM parameter_value;

USES CRT;

PROCEDURE hitung(A,B,C : INTEGER);

BEGIN

   C:=A+B;

   WRITELN('Nilai di Prosedur');

   WRITELN('NILAI A= ',A,' NILAI B= ',B,' NILAI C= ',C);

END;

VAR

  X,Y,Z : INTEGER;

BEGIN

  CLRSCR;

  WRITE('NILAI X= '); READLN(X);

  WRITE('NILAI Y= '); READLN(Y);

  WRITE('NILAI Z= '); READLN(Z);

  hitung(X,Y,Z);

  WRITELN('Nilai setelah Prosedur');

WRITELN('NILAI X= ',X,' NILAI Y= ',Y,' NILAI Z= ',Z);

  READLN;

END.

Hasil :

NILAI X= 3

NILAI Y= 4

NILAI Z= 5

Nilai di Prosedur

NILAI A= 3 NILAI B= 4 NILAI C= 7

Nilai setelah Prosedur

NILAI X= 3 NILAI Y= 4 NILAI Z= 5