Program Pemanggilan Nilai dengan Pascal

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.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Gadget Mainstream. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Gadget Mainstream dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Gadget Mainstream pada tanggal Kamis, 08 Januari 2015