Blog Tentang Informasi Tutorial Desain Web Dan Info Terkini

program perkalian

program perkalian;



uses wincrt;

procedure kali(a,b:integer);



var

hasil:real;

begin

hasil:=a*
b;

writeln('hasil kali:',hasil:0:0);

end;

procedure bagi(a,b:integer);

var hasil:real;

begin

hasil:=a/b;

writeln ('
hasil bagi:',hasil:0:0);

end;

procedure tambah(a,b:integer);

var hasil:real;

begin

hasil:=a+b;

writeln('hasil tambah:',hasil:0:0);

end;

{program utama}

var

pilihan:integer;

var a,b:integer;

begin

clrscr;

write('masukan nilai a');readln(a);

write('masukan nilai b');readln(b);

writeln('...................................');

writeln('silahkan pilih menu [1 sd 3]');

readln(pilihan);

case pilihan of

1:kali(a,b);

2:bagi(a,b);

3:tambah(a,b);

end;

gotoxy(20,45);writeln ('terimakasih');

end.
Tag : MATA KULIAH
0 Komentar untuk "program perkalian"

INFO NEWS UPDATE

loading...
Back To Top