Laporan Akhir Pratikum 9 (Program Prosedur Pascal))

PROSEDUR  PASCAL

Program Hitung_Nilai;

Uses crt;

Procedure Hitung (X, Y, Z : Byte);

Begin

Clrscr;

Z := X + Y;

Writeln ('Nilai X = ', X);

Writeln ('Nilai Y = ', Y);

Writeln ('Nilai Z = ', Z);

Readln

End;

 Var

A, B, C : Byte;

Begin

Clrscr;

A := 5; B:= 7; C:=3;

Hitung (A, B, C);

WriteLn;

WriteLn ('Nilai A = ',A);

WriteLn ('Nilai B = ',B);

WriteLn ('Nilai C = ',C);

Readkey;

End.

Hasil dari listing di atas !