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,

Comments

Popular posts from this blog

Cara Mengubah File Pdf ke Word dengan Ms. Word 2016

Memformat Cells pada MS. Excel 2010

Contoh Script HTML Yang Sederhana