Tulis aja dulu, siapa tahu orang lain butuh :-)

PROGRAM PROCEDURE PERKALIAN DENGAN PARAMETER INPUT


program parrameter_in;


uses wincrt;


var
   x,y,hasil : integer;


   procedure kali (a,b : integer);
   begin
        hasil := a*b;
   end;


begin
     write('masukkan x: '); readln(x);
     write('masukkan y: '); readln(y);
     kali(x,y);
     writeln(x,' * ',y,' = ', hasil);
end.


Running program:

Share:

0 komentar:

Post a Comment

ARCHIEV

VISITORS

free counters

FRIENDS

Blog Archive