Coding Pascal Kalkulator

Apa kabar nih, lama gak ngepost di Blogger ya maklum lah
banyak kegiatan sehari-hari.
Semoga para pembaca dalam keadaan sehat wal'afiat.

Pada kesempatan kali ini saya Bung Ucok ingin mengepost tentang Coding Pascal, Bagi yang belum tau apa itu Coding Pascal silahkan di simak.

Pascal adalah "bahasa" pemograman yang dipakai dalam suatu program, ada banyak bahasa pemograman tetapi bagi Mahasiswa semester baru pasti di awali dengan bahasa pemograman yang satu ini.
Sedangkan Coding adalah proses "Pemogramannya" yang ditulis menggunakan bahasa pemograman tertentu. Kali ini saya ingin memberikan contoh coding program membuat Kalkulator.
Langsung saja di simak.

program kalkulator;

uses crt;

var

angka1, angka2, pilihan :integer;

hasil:real;

begin

 clrscr;

 writeln('Program Kalkulator Sederhana');

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

 writeln;

 writeln('Pilih Menu Perhitungan :');

 writeln('1. Penjumlahan');

 writeln('2. Pengurangan');

 writeln('3. Perkalian');

 writeln('4. Pembagian');

 writeln;

 write('Masukkan Pilihan = '); readln(pilihan);

 writeln;

 case pilihan of

 1 : begin

   writeln('Penjumlahan');

   writeln('=======================');

   write('Ketik Angka Pertama : ');

   Readln(angka1);

   write('Ketik Angka Kedua : ');

   Readln(angka2);

   writeln;

   hasil:=angka1+angka2;

   writeln('Hasil Penjumlahan : ', angka1,' + ',angka2,' = ',hasil:0:0);

   readln;

              end;

 2 : begin

   writeln('Pengurangan');

   writeln('=======================');

   write('Ketik Angka Pertama : ');

   Readln(angka1);

   write('Ketik Angka Kedua : ');

   Readln(angka2);

   writeln;

   hasil:=angka1-angka2;

   writeln('Hasil Pengurangan : ', angka1,' - ',angka2,' = ',hasil:0:0);

   readln;

              end;

 3 : begin

   writeln('Perkalian');

   writeln('=======================');

   write('Ketik Angka Pertama : ');

   Readln(angka1);

   write('Ketik Angka Kedua : ');

   Readln(angka2);

   writeln;

   hasil:=angka1*angka2;

   writeln('Hasil Perkalian : ', angka1,' x ',angka2,' = ',hasil:0:0);

   readln;

       end;

 4 : begin

   writeln('Pembagian');

   writeln('=======================');

   write('Ketik Angka Pertama : ');

   Readln(angka1);

   write('Ketik Angka Kedua : ');

   Readln(angka2);

   writeln;

   hasil:=angka1/angka2;

   writeln('Hasil Pembagian : ', angka1,' / ',angka2,' = ',hasil:0:1);

   readln;

       end;

 else

  begin

  writeln('Pilihan Menu Perhitungan Tidak Ada');

  end;

 end;

 readln;

end.

maka setelah di Run akan menjadi seperti ini :

oke semoga berhasil, silahkan tinggalkan komentar kalau ada kesulitan.

Share :