Cara Penerapan Fungsi Procedure Pada Pascal

Selamat malam sobat netter. Pada kesempatan ini saya ingin berbagi ilmu tentang " Cara Penerapan Fungsi Procedure Pada Pascal ".
Sebelum kita bahas lebih lanjut mari kita tinjau, apa itu "procedure" dan tujuan pemakaiannya.

Apa Itu Procedure?
Procedure dan function merupakan sub-program yang memiliki bagian deklarasi dan
begin-end; tersendiri seperti suatu program pada pascal. Didalam penerapan "procedure",terdapat variable global dan variable local.

"Variable Global" adalah variable yang bisa dipanggil dari mana saja(baik dalam modul maupun program utama).
Sedangkan "Variable Local" merupakan variable yang hanya bisa dipanggil dari modul yang mendefinisikan variable tersebut.
Tujuan dari fungsi "procedure" adalah untuk memecah program kita menjadi kesatuan logika yang
lebih kecil (sub-sub program) untuk menghindari perulangan pengetikan dan memudahkan pembacaan.

Baiklah sekarang kita lanjut pada contoh "Cara Penerapan Fungsi Procedure Pada Pascal".
Pada contoh berikut saya terapkan disebuah program transaksi sebuah Klinik. List program berikut bisa dicopy dan dimodify sesuai keperluan. Berikut list programnya;

program dataklinik;
uses crt;
var bdok,bob,bkm,dsc,tby,tbr:real;
np:string[10];
nap:string[30];
jkl:string[10];
klh:string[17];
dok:string[30];
kin:string[10];
ob:string[3];
lin,pil:byte;
procedure data_dktr;
begin
write('Nomor Pasien=');
readln(np);
write('Nama Pasien=');
readln(nap);
write('Jenis Kelamin=');
readln(jkl);
write('Keluhan=');
readln(klh);
writeln('Jika Pasien rawat jalan, maka isi lama inap adalah "1"');
write('Lama inap=');
readln(lin);
if klh='umum' then begin
dok:='dr.ilham';
bdok:=100000*lin;
end
else
if klh='gigi' then begin
dok:='dr.Artalya';
bdok:=110000*lin;
end
else
if klh='anak' then begin
dok:='dr.Salim';
bdok:=125000*lin;
end
else begin
dok:='dr.Kartini';
bdok:=95000*lin;
end;
writeln('Dokter=',dok);
writeln('Biaya Dokter=',bdok:2:0);
end;
procedure data_obat;
begin
write('Type Obat=');
readln(ob);
if ob='a' then begin
bob:=50000;
end
else
if ob='b' then begin
bob:=65000;
end
else
if ob='c' then begin
bob:=75000;
end
else begin
bob:=100000;
end;
writeln('Biaya Obat=',bob:2:0);
end;

procedure data_kamar;
begin
writeln('Jika Pasien rawat jalan, maka isi kelas kamar adalah "jalan"');
writeln('dan isi lama inap adalah"1"');
write('Kelas kamar=');
readln(kin);
write('Lama Inap=');
readln(lin);
if kin='vip' then begin
bkm:=150000*lin;
end
else
if kin='k1' then begin
bkm:=125000*lin;
end
else
if kin='k2' then begin
bkm:=110000*lin;
end
else
if kin='sal' then begin
bkm:=70000*lin;
end
else begin
bkm:=0;
end;
writeln('Biaya Kamar=',bkm:2:0);
end;

procedure data_trans;
begin
data_dktr;
data_obat;
data_kamar;
tby:=bdok+bob+bkm;
dsc:=tby*0.05;
tbr:=tby-dsc;
writeln('Total Biaya=',tby:2:0);
writeln('Discount =',dsc:2:0);
writeln('Total Bayar=',tbr:2:0);
end;

procedure menu;
begin
writeln('Menu Program Klinik');
writeln('_____________________');
writeln('[1].Data Dokter');
writeln('[2].Data Biaya Obat');
writeln('[3].Data Biaya Kamar');
writeln('[4].Data Transaksi');
writeln('_____________________');
write('Pilihan Anda=');readln(pil);
if pil=1 then begin
data_dktr;end
else if pil=2 then begin
data_obat;end
else if pil=3 then begin
data_kamar;end
else if pil=4 then begin
data_trans;end
else begin
writeln('Pilihan tidak tersedia');end;
end;
begin
clrscr;
menu;
readkey;
end.

Keterangan program;
Procedure menu adalah tampilan menu awal ketika program dijalankan. Modul transaksi adalah modul utama program yang kita buat.
Pada modul transaksi flownya adalah memanggil modul data_dktr,data_obat,dan data_kamar. Setelah modul pendukung dipanggil, barulah perintah proses transaksi total pembayaran dijalankan. Cara pemanggilan modul pendukung adalah dengan command:

begin
data_dktr;
data_obat;
data_kamar;

Demikian share dari saya tentang "Cara Penerapan Fungsi Procedure Pada Pascal" pada kesempatan ini. Terima kasih atas kunjungannya. Semoga kita semakin paham dalam pembuatan program memakai "Turbo Pascal"

Wasalam

fendri-informatika.blogspotcom|Penerapan Fungsi Procedure Pascal