Procedure

Prosedur diawali dengan kata cadangan Procedure di dalam bagian deklarasi prosedur. Prosedur dipanggil dan digunakan di dalam blok program yang lainnya dengan menyebutkan judul prosedurnya.

 

Prosedur banyak digunakan pada program yang terstruktur, karena :

1. Merupakan penerapan konsep program modular, yaitu memecah-mecah program yang rumit menjadi program-program bagian yang lebih sederhana dalam bentuk prosedur-prosedur.
2. Untuk hal-hal yang sering dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan dapat dipanggil atau dipergunakan sewaktu-waktu bila diperlukan.

 Sebagaimana halnya sebuah program, suatu procedure juga memiliki header dan block. Perbedaan bentuknya dengan program hanyalah pada bagian header-nya saja.
Bentuk Umum header suatu procedure adalah :

PROCEDURE nama;
Atau
PROCEDURE nama (formal parameter : jenis);

Jika kita menggunakan procedure dalam suatu program, maka procedure tersebut harus dituliskan pada bagian deklarasi

Contoh dalam Pascal :

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.

LISTING :

OUTPUT :

Contoh dalam C++ :

LISTING

OUTPUT

Logika Program

Include : Perintah ini digunakan untuk mengikut sertakan sebuah file library dalam hal ini disebut sebagai header. <iostream>adalah salah satu file header yang salah satu fungsinya untuk menjalankan perintah cout. Cout : Berfungsi untuk menampilkan output sebuh data dalam suatu program.
Int tambah5(int &A): Pendeklarasian variable bertipe integer dengan nama variable “tambah5” karena pada program ini menggunakan menu penjumlahan, dan tanda & digunakan untuk menunjukan reference dari variabel A.
{ ini merupakan tubuh fungsi main.
A = A + 5; artinya jumlah dari variabel A tersebut akan dapat kita ketahui jika kita memasukan bilangan pada fungsi A kemudian dijumlahkan dengan angka 5 yang merupakan nilai fungsi pendeklerasian awal pada program ini.
printf("\n Nilai di dalam fungsi 7 + A = %d",A); Printf itu sendiri berfungsi untuk menampilkan semua jenis data (numeric dan karakter) yang berupa nilai, karaker ataupun konstanta. Printf ini memiliki ataupun konstanta. Printf ini memiliki fungsi yang sama dengan cout. Maka disini kita masukan nilai inputan yang kita inginkan. %d yaitu untuk menyimpan inputan yang bernilai bilangan bulat biasa.
return A; kembali ke nilai A
} Untuk mengakhiri pendeklerasian program.
Int Main() yaitu tubuh utama program.
Int A : Pendeklarasian variable bertipe integer dengan nama variable “A” sebagai input nilai.
printf("Masukan Nilai A : ");scanf("%d",&A); yaitu untuk menampilkan nilai awal yang kita inginkan.
printf("\n sebelum fungsi dijalankan A = %d",A); yaitu panggil fungsi Tambah 5.
printf("\n Hasil Fungsi %d + 5 = %d\n",A,Tambah5(A); yaitu untuk menampilkan penjumlahan nilai awal ditambahkan dengan nilai fungsi (5).
printf("\n setelah fungsi dijalankan A = %d",A); yaitu untuk menampilkan nilai akhir.
return 0; kembali ke menu awal
} untuk mengakhiri program.

sebagian sumber :

fendri-informatika.blogspotcom