program prose;
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);
end;
var a,b,c :byte;
begin
a:=5;
b:=7;
c:=3;
hitung (a,b,c);
writeln;
writeln('nilai a:= ',a);
writeln('nilai b:= ',b);
writeln('nilai c:= ',c);
readln;
end.
Belum ada tanggapan untuk "Program Pemanggilan Nilai dengan Pascal"
Posting Komentar