Hans

Pada post sebelumnya, saya memberikan penjelesan tentang kondisi IF-THEN-ELSE. Disini saya membuat program kalkulator menggunakan IF-THEN-ELSE untuk menyeleksi pilihan pengguna untuk Tambah/Kurang/Bagi/Kali.
Pertama-Tama tambahkan 4 variabel dengan tipe data Real.

var a,b,c,d : real;

Kemudian tambahkan penjelasan (opsional)

writeln('Calculator');
  writeln('##########');
  Writeln('Pilihan : 1. Tambah');
  writeln('          2. Kurang');
  writeln('          3. Perkalian');
  writeln('          4. Pembagian');

Setelah itu tambahkan input untuk memilih jenis operator yang akan digunakan nanti.

write('Masukkan Pilihan : ');readln(d);

Dimana (d) adalah inputan yang kita masukkan. Kemudian kita tambahkan statemen Penjumlahan

if d = 1 then
  begin
   write('Bilangan 1 : ');readln(a);
   write('Bilangan 2 : ');readln(b);
   c := a+b;
  end

Ulangi statemen penjumlahan tersebut namun menggunakan else if dan mengganti operator c.

c := a+b; //penjumlahan
  c := a-b; //pengurangan
  c := a/b; //pembagian
  c := a+b; //perkalian

dan tambahkan pada akhir statemen untuk mengetahui hasil dari operasi hitung diatas

writeln('Hasil = ',c:0:0);

Full Code

program calculator;
  uses crt;
    var a,b,c,d : real;
  begin
    clrscr;
    writeln('Calculator');
    writeln('##########');
    Writeln('Pilihan : 1. Tambah');
    writeln('          2. Kurang');
    writeln('          3. Perkalian');
    writeln('          4. Pembagian');
        write('Masukkan Pilihan : ');readln(d);
        if d = 1 then
                begin
                 write('Bilangan 1 : ');readln(a);
                 write('Bilangan 2 : ');readln(b);
                 c := a+b;
                end
        else if d=2 then
                begin
                 write('Bilangan 1 : ');readln(a);
                 write('Bilangan 2 : ');readln(b);
                 c := a-b;
                end
        else if d=3 then
                begin
                 write('Bilangan 1 : ');readln(a);
                 write('Bilangan 2 : ');readln(b);
                 c := a*b;
                end
        else if d=4 then
                begin
                 write('Bilangan 1 : ');readln(a);
                 write('Bilangan 2 : ');readln(b);
                 c := a/b;
                 
                end
        else writeln('Inputan Salah');
        writeln('Hasil = ',c:0:1);
    readln;
  end.