PROGRAM KALKULATOR MENGGUNAKAN FREE PASCAL

Di artikel ini bagi teman-teman yang sedang atau baru belajar pemrograman admin akan share program kalkulator dengan menggunakan free pascal. 

Jadi program free pascal ini sangat mudah di gunakan apalagi bagi pemula setelah kalian buka aplikasinya lansung saja masukka coding tersebut dan silahkan di runningkan. Berikut program atau codingnya di bawah ini :

Program Kalkulator

program fungsi;

uses crt;

var a,b:integer;

pilih:char;

function tambah(a,b:integer):integer;

begin

tambah:=a+b;

end;

function kurang(a,b:integer):integer;

begin

kurang:=a-b;

end;

function kali(a,b:integer):integer;

begin

kali:=a*b;

end;

function bagi(a,b:integer):real;

begin

bagi:=a/b

end;

function tutup:integer;

begin

clrscr;

writeln;writeln;

writeln('==========================================================');

writeln;

writeln('terima kasih telah menggunakan program ini');

writeln(' ********************     By     *************************');

writeln(' ******************  Informatikastudi.com  ************************');

writeln(' *******************  150210244  *************************');

writeln(' *******************  (c) 2018   *************************');

writeln;

writeln(' ======================================================== ');

readkey;

end;

function menu:char;

var xx:char;

begin

clrscr;

textcolor(lightBLUE);

writeln;

writeln(' <<<<<<<<<<<  Penggunaan Function di Pascal  >>>>>>>>>>> ');

writeln(' ======================================================= ');

writeln;

textcolor(Yellow);

writeln(' pilihan : ');

writeln;

textcolor(LightGreen);

WRITELN(' 1. Masukkan Data ');

WRITELN(' 2. Hasil Tambah ');

WRITELN(' 3. Hasil Kurang ');

writeln(' 4. Hasil Kali ');

writeln(' 5. Hasil Bagi ');

writeln(' 6. Keluar ');

writeln;writeln;

write(' Silahkan Pilih Salah Satu [1..6] : ');

xx:=readkey;

menu:=xx;

end;

begin

repeat

pilih:=Menu;

case pilih of

'1':begin

clrscr;

writeln;

textcolor(lightred);

writeln(' -===::Masukkan Data Yang Akan Anda Hitung::===- ');

textcolor(lightgreen);

writeln;

write(' Masukkan Nilai A : ');readln(a);

writeln;

write(' Masukkan Nilai B : ');readln(b);

end;

'2':begin

clrscr;

writeln;

textcolor(lightred);

writeln(' -=====:: Hasil Dari Penjumlahan Adalah ::=====- ');

textcolor(lightgreen);

writeln;

writeln(' Nilai A : ',a);

writeln(' Nilai B : ',b);

writeln;

writeln(' Hasil Tambah ',a, '+' ,b,'=',tambah(a,b));

readkey;

end;

'3':begin

clrscr;

writeln;

textcolor(lightred);

writeln(' -=====:: Hasil Dari Pengurangan Adalah ::=====-');

textcolor(lightgreen);

writeln;

writeln(' Nilai A : ',a);

writeln(' Nilai B : ',b);

writeln;

writeln(' Hasil Kurang ' ,a, '-' ,b,'=',kurang(a,b));

readkey;

end;

'4':begin

clrscr;

writeln;

textcolor(lightred);

write(' -=====:: Hasil Dari Perkalian Adalah ::=====-');

textcolor(lightgreen);

writeln;

writeln(' Nilai A : ',a);

writeln(' Nilai B : ',b);

writeln;

writeln(' Hasil Kali ' ,a, '*' ,b,'=',kali(a,b));

readkey;

end;

'5':begin

clrscr;

textcolor(lightred);

write(' -=====:: Hasil Dari Pembagian Adalah ::=====-');

textcolor(lightgreen);

writeln;

writeln(' Nilai A : ',a);

writeln(' Nilai B : ',b);

writeln;

writeln(' Hasil Bagi ' ,a, ':' ,b, '=',bagi(a,b):2:2);

readkey;

end;

'6':tutup;

else

begin

clrscr;

writeln;

writeln(' Maaf Pilihan Anda Tidak Ada !!!');

readkey;

end;

END;

until pilih='6';

end.

 

Sekian artikel  kali ini

Terimakasih...