PROSEDUR MEMANGGIL PROSEDUR di Pascal

PROSEDUR MEMANGGIL PROSEDUR YANG LAIN

Di dalam prosedur dapat memanggil prosedur yang lainnya.

Contoh :

PROGRAM panggil_prosedur;

USES CRT;

PROCEDURE pro1(x1 : INTEGER);

BEGIN

   x1:=x1*x1;

   WRITELN('Nilai X di Prosedur1 = ',x1);

END;

PROCEDURE pro2(x2 : INTEGER);

BEGIN

   WRITELN('Nilai X di Prosedur2 = ',x2);

   pro1(x2);

END;

VAR

  X : INTEGER;

BEGIN

  CLRSCR;

  WRITE('Masukkan nilai X= '); READLN(x);

  pro2(x);

  READLN;

END.

Hasil :

Masukkan nilai X= 12

Nilai X di Prosedur2 = 12

Nilai X di Prosedur1 = 144