QUESTION OF LIFE

CONTOH PROGRAM KALKULATOR

program kalkulator;
uses wincrt;
var
   a,b,c,d:integer;
   e,f,g:real;

begin
     clrscr;
     repeat
     a:=5;
     writeln('1. Penjumlahan');
     writeln('2. Pengurangan');
     writeln('3. Perkalian');
     writeln('4. Pembegian');
     writeln('5. Keluar');
     writeln;
     write  ('Tentukan Pilihan Menu :');
     readln(a);
     case a of
     1: begin
        write  ('Masukkan Bilangan Pertama :');readln(b);
        write  ('Masukkan Bilangan Kedua   :');readln(c);
        d:=b+c;
        writeln('Hasilnya Adalah : ',d);readln;
        end;
     2: begin
        write  ('Masukkan Bilangan Pertama :');readln(b);
        write  ('Masukkan Bilangan Kedua   :');readln(c);
        d:=b-c;
        writeln('Hasilnya Adalah : ',d);readln;
        end;
     3: begin
        write  ('Masukkan Bilangan Pertama :');readln(b);
        write  ('Masukkan Bilangan Kedua   :');readln(c);
        d:=b*c;
        writeln('Hasilnya Adalah : ',d);readln;
        end;
     4: begin
        write  ('Masukkan Bilangan Pertama :');readln(b);
        write  ('Masukkan Bilangan Kedua   :');readln(c);
        g:=e/f;
        writeln('Hasilnya Adalah : ',d);readln;
        end;
     end;
     writeln('=======ABDI MAULANA========');
     writeln;
     readln;
     clrscr;
     until a=5
end.