listing program

Program matematika;

uses wincrt;

var

a,b,d,e : integer;

c:real;

lagi:char;

begin

repeat

clrscr;

writeln('PROGRAM OPERASI MATEMATIKA : ');

writeln('*************************** : ');

write('masukan angka pertama : ');readln(a);

write('masukan angka kedua : ');readln(b);

writeln('pilih operasi : ');

writeln('Operasi Pengurangan   : 1 ');

writeln('Operasi Penjumlahan   : 2 ');

writeln('Operasi Perkalian     : 3 ');

writeln('Operasi Pembagian     : 4 ');

write('masukan pilihan anda  :');read(d);

if d=1 then

begin

c:=(a-b);

writeln('Hasil dari ',a,' - ',b,' adalah ',c:0:0);

end;

if d=2 then

begin

c:=(a+b);

writeln('Hasil dari ',a,' + ',b,' adalah ',c:0:0);

end;

 if d=3 then

begin

c:=(a*b);

writeln('Hasil dari ',a,' * ',b,' adalah ',c:0:0);

end;

if d=4 then

begin

c:=(a/b);

writeln('Hasil dari ',a,' : ',b,' adalah ',c:0:0);

end;

writeln;

write ('Apakah anda ingin mencoba lagi? (y/n)'); readln (Lagi);

until Lagi = 'y';

end.
 

   

menu

 

Operasi Pengurangan

Operasi Pertambahan

Operasi Perkalian

Operasi Pembagian