Algoritma; Passing by Value & Passing by Referece

CONTOH PROSEDURE PASSING BY VALUE :


PROGRAM PROSEDUR_009;

USES WINCRT;

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

BEGIN

C := A + B;

WRITELN;

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

END;


{MODUL UTAMA}

VAR X,Y,Z : INTEGER ;

BEGIN

X:= 20 ;

Y:= 30 ;

Z:= 0 ;

HITUNG (X,Y,Z);

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

END.



CONTOH PROSEDURE PASSING BY REFERENCE :


PROGRAM PROSEDUR_009;

USES WINCRT;

PROCEDURE HITUNG ( VAR A,B,C : INTEGER );

BEGIN

C := A + B;

WRITELN;

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

END;


{MODUL UTAMA}

VAR X,Y,Z : INTEGER ;

BEGIN

X:= 20 ;

Y:= 30 ;

Z:= 0 ;

HITUNG (X,Y,Z);

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

END.