> > Cara Penerapan Fungsi Procedure Pada Pascal

Cara Penerapan Fungsi Procedure Pada Pascal

Posted on Tuesday, May 31, 2011 by Abdul Rasyid

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.

Contoh Program memakai fungsi procedure


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.
Gambaran Procedure / module

"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


Category Article

What's on Your Mind...

http://fendri-informatika.blogspot.com. Powered by Blogger.

Recent Post

Entri Populer

  • Cara Membuat Program Dengan Turbo Pascal
    Selamat malam sobat netter, pada kesempatan kali ini saya mau berbagi tentang" Cara Membuat Program Dengan Turbo Pascal ". Program yang akan...
  • 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 k...
  • Fungsi Looping Pada Pascal
    Pada kesempatan kali ini saya sharing tentang "Fungsi Looping Pada Pascal . Apa Itu Looping Pada Pemograman looping diartikan sebagai pros...
  • Contoh Program Sederhana Pascal
    Contoh Program Gaji Dengan Pascal Pada postingan kali ini saya mau membahas salah satu contoh Program Applikasi Sederhana, seusai dengan ...
  • Fungsi Looping Turbo Pascal (lanjutan..)
    Selamat malam sobat netter, menyambung postingan saya sebelumnya tentang " Fungsi Looping Pada Pascal ". Pada kesempatan ini saya melanju...
  • Belajar algoritma dasar.
    Selamat malam sobat netter. Seperti janji saya pada postingan sebelumnya, pada postingan kali ini saya akan melanjutkan pembahasan tentang...
  • Mengintip Rahasia Sukses Orang Minang
    Andai di bulan ada pasar, mungkin kita bisa menemukan orang Minang disana. Hal ini disebabkan kebiasaan orang suku Minang(orang Padang) yang...

Followers