Membuat Kalkutator Dengan FreePascal

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

acara kalkulator;

uses crt;

var a,b,h:real;

s:char;

begin

clrscr;

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

write('Masukkan nomor 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 merupakan ',h:3:2);

readln;

end.

Dibawah ini adalah screenshot-nya..

Apabila pada running hasilnya akan misalnya ini;

Sekian postingan saya kali ini,