Membuat Kalkulator Dengan Turbo Pascal

Pada postingan kali ini saya akan membahas tentang Membuat Kalkulator Dengan Turbo Pascal
sebenarnya ada beberapa cara untuk Membuat Kalkulator Dengan Turbo Pascal namun kali ini saya akan menggunakan IF dan Case untuk memilih operasi apa yang dijalankan,apakah operasi tambah, pengurangan, pembagian atau perkalian

Sebelum memulainya ada baiknya anda membaca postingan saya sebelumnya yaitu Statement IF di Turbo Pascal dan Statement Case di Turbo Pascal

Jika anda sudah mengerti cara penggunaan  Statement IF di Turbo Pascal dan Statement Case di Turbo Pascal maka langsung saja

Cara pertama
Membuat Kalkulator Dengan Turbo Pascal dengan Statement IF

1. Buka turbo pascal yang anda miliki

2. ketikan script dibawah ini

program kal_if;
uses crt;
var
 bil1,bil2,jumlah:real;
 op:char;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');
 jumlah:=0;

 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

 if (op = '+') then
 begin
  jumlah:=bil1+bil2;
 end
 else if (op = '-') then
 begin
  jumlah:=bil1-bil2;
 end
 else if (op = '*') then
 begin
  jumlah:=bil1*bil2;
 end
 else if (op = '/') then
 begin
  jumlah:=bil1/bil2;
 end
 else
 begin
  writeln(op,' tidak termasuk dalam operasi perhitungan');
 end;

 writeln('Hasil : ',jumlah:0:1);

 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL + F9

Penjelasan :

write('Masukan Bilangan Pertama : ');readln(bil1);
write('Masukan Bilangan Kedua : ');readln(bil2);
write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

Mengisi variable bil1, bil2, dan op sesuai dengan yang kita inputkan

if (op = '+') then
 begin
  jumlah:=bil1+bil2;
 end
 else if (op = '-') then
 begin
  jumlah:=bil1-bil2;
 end
 else if (op = '*') then
 begin
  jumlah:=bil1*bil2;
 end
 else if (op = '/') then
 begin
  jumlah:=bil1/bil2;
 end
 else
 begin
  writeln(op,' tidak termasuk dalam operasi perhitungan');
 end;

Melakukan pemilihan operasi hitung, jika + maka akan melakukan operasi penjumlahan, jika - maka akan melakukan operasi pengurangan jika * maka akan melakukan opearasi pengurangan, jika / maka akan melakukan operasi pembagian jika tidka diantara ke empat itu maka akan muncul text bertuliskan tidak termasuk dalam operasi perhitungan

Cara kedua
Membuat Kalkulator Dengan Turbo Pascal dengan Statement Case

1. Buka program turbo pascal yang anda miliki

2, Ketikan script dibawah ini

program kal_if;
uses crt;
var
 bil1,bil2,jumlah:real;
 op:char;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');
 jumlah:=0;

 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

 case op of
  '+':
  begin
   jumlah:=bil1+bil2;
  end;

  '-':
  begin
   jumlah:=bil1-bil2;
  end;

  '*':
  begin
   jumlah:=bil1*bil2;
  end;

  '/':
  begin
   jumlah:=bil1/bil2;
  end;

 else
  begin
   writeln(op,' tidak termasuk dalam operais perhitungan');
  end;
 end;

 writeln('Hasil : ',jumlah:0:1);

 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL + F9

 

Sekian dulu dari saya.