contoh program kalkulator dengan bahasa pascal

 

Berikut adalah contoh program kalkulator sederhana menggunakan bahasa Pascal. Program ini mendukung operasi dasar seperti penjumlahan, pengurangan, perkalian, dan pembagian.

Program Kalkulator Sederhana dalam Bahasa Pascal

 program Kalkulator;

uses crt;

var
  num1, num2: real;
  operator: char;

begin
  clrscr;
  writeln('Kalkulator Sederhana');
  writeln('Masukkan operasi (misal: 3 + 4): ');
  readln(num1, operator, num2);

  case operator of
    '+': writeln('Hasil: ', num1 + num2:0:2);
    '-': writeln('Hasil: ', num1 - num2:0:2);
    '*': writeln('Hasil: ', num1 * num2:0:2);
    '/':
      if num2 = 0 then
        writeln('Error! Pembagian dengan nol.')
      else
        writeln('Hasil: ', num1 / num2:0:2);
  else
    writeln('Operator tidak valid!');
  end;

  readln;
end.

 

Penjelasan Program:

1. Deklarasi Variabel:

   • num1 dan num2 digunakan untuk menyimpan angka yang dimasukkan oleh pengguna.
   • operator digunakan untuk menyimpan operator matematika yang digunakan (misalnya: +, -, *, /).

2. Input dari Pengguna:

   • Program meminta pengguna untuk memasukkan operasi matematika dalam format: angka operator angka (misalnya: 3 + 4).
   • readln(num1, operator, num2); digunakan untuk membaca input tersebut.

3. Pengolahan Operasi dengan case:

   • Program menggunakan case untuk memeriksa operator yang dimasukkan.
   • Setiap operasi (penjumlahan, pengurangan, perkalian, atau pembagian) dihitung sesuai dengan operator yang dimasukkan.

4. Pembagian dengan Nol:

   • Jika operator yang dimasukkan adalah /, program akan memeriksa apakah angka kedua (num2) adalah nol. Jika iya, program akan menampilkan pesan error "Pembagian dengan nol."

5. Output Hasil:

   • Program menampilkan hasil operasi matematika dengan format dua angka desimal setelah titik.

Contoh Penggunaan:

Kalkulator Sederhana
Masukkan operasi (misal: 3 + 4):
8 * 2
Hasil: 16.00

Error Handling:

Jika operator yang dimasukkan tidak valid atau ada kesalahan pembagian (seperti pembagian dengan nol), program akan memberikan pesan yang sesuai.

Program ini dapat dikembangkan lebih lanjut, misalnya dengan menambahkan fitur untuk menghitung operasi lebih dari dua angka, atau melakukan perhitungan berulang.