PASCAL "Menbuat Program Utama"

Membuat Program Utama

Procedure tambah (x,y:integer;var hasil:integer);

begin

     hasil:=x+y;

end;

Procedure kali (a,b:integer;var c:integer);

begin

     c:=a*b;

end;

Procedure bagi (c,d:real;var e:real);

begin

     e:=c/d;

end;

Procedure kurang (p,q:integer;var r:integer);

begin

     r:=p-q;

end;

{Program utama}

var

   a,b,p,q,z:integer;

   k :real;

begin

   gotoXY(15,10);

   write('Tuliskan bilangan pertama:');

   read(a);

   gotoXY(15,12);

   write('Tuliskan bilangan kedua:');

   read(b);

   kali(a,b,z);

   tambah(a,b,p);

   bagi(a,b,k);

   kurang(a,b,q);

   gotoXY(15,14);

   writeln('hasil kali',a,'dan',b,'=',z);

   gotoXY(15,15);

   writeln('hasil penjumlahanya=',p);

   writeln('hasil bagi',a,'dan',b,'=',k:3:0);

   gotoXY(15,16);

   writeln('selisih keduanya=',q);

end.