Membuat Program Kalkulator dengan Turbo Pascal

Dengan Tampilan menu:
1. Penambahan
2. Pengurangan
3. Perkalian
4. Pembagian
5. Modulus
6. Keluar

Langsung saja berikut codingannya:

program kalkulator;
uses crt;
var pilih:integer;
procedure penambahan;
var a,b,c:real;
begin
    clrscr;
    writeln('Penambahan');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a+b;
    writeln('Hasil:',c:0:0);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
procedure pengurangan;
var a,b,c:real;
begin
    clrscr;
    writeln('Pengurangan');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a-b;
    writeln('Hasil:',c:0:0);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
procedure perkalian;
var a,b,c:real;
begin
    clrscr;
    writeln('Perkalian');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a*b;
    writeln('Hasil:',c:0:0);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
procedure pembagian;
var a,b,c:real;
begin
    clrscr;
    writeln('Pembagian');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a/b;
    writeln('Hasil:',c:0:0);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
procedure modulus;
var a,b,c:integer;
begin
    clrscr;
    writeln('Modulus');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a Mod b;
    writeln('Hasil:',c);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
begin repeat
           clrscr;
           writeln('KALKULATOR');
           writeln(' ');
           writeln('Pilihan');
           writeln(' ');
           writeln('1.Penambahan');
           writeln('2.Pengurangan');
           writeln('3.Perkalian');
           writeln('4.Pembagian');
           writeln('5.Modulus');
           writeln('6.Keluar');
           writeln(' ');
           writeln('Tekan enter untuk kembali ke menu');
           write('Pilih angka untuk memilih pilihan : ');readln(pilih);
           writeln(' ');
           writeln(' ');
           case pilih of
           1:penambahan;
           2:pengurangan;
           3:perkalian;
           4:pembagian;
           5:modulus;
           6:exit;
           end;
           until pilih = 7;
end.

Hasilnya:

Sekian terimakasih:)