Membuat Kalkutator Dengan FreePascal

Kalkulator Dengan FreePascal

Kali ini saya akan memberikan contoh program kalkulator dengan menggunkkan FreePascal. Pada pemograman kalkulator ini diperlukkan kondisi if. Berikut ini adalah listingnya;

program kalkulator;

uses crt;

var a,b,h:real;

      s:char;

begin

         clrscr;

         writeln('Membuat Program Kalkulator Dengan Free Pascal');

         write('Masukkan angka ke-1 = ');readln(a);

         write('Masukkan simbol (+-*/)= ');readln(s);

         write('Masukkan angka ke-2 = ');readln(b);

         if s='+' then h:=a+b;

         if s='-' then h:=a-b;

         if s='*' then h:=a*b;

         if s='/' then h:=a/b;

         writeln('Hasilnya adalah ',h:3:2);

readln;

end.

Dibawah ini adalah screenshot-nya..

Jika di running hasilnya akan seperti ini;

Sekian postingan saya kali ini, dan terima kasih telah berkunjung.