Studi Informatika

Panduan Pembelajaran Ilmu Teknologi & Komputer

Wednesday, August 29, 2018

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...
Wednesday, August 29, 2018 August 29, 2018 - tanpa komentar

No comments:

Post a Comment