Procedure & Function

Teori
Procedure dan Function adalah suatu program terpisah dalam blok sendiri yang berfungsi sebagai sub-program (modul program) yang merupakan sebuah program kecil untuk memproses sebagian dari pekerjaan program utama.

1. 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 :

program procedure_kali;
uses wincrt;
var A,B : Byte;
procedure kali;

begin

write ('Isi nilainya : ');
readln (A);
B := A*A;
end;

{Program Utama}
begin

kali;
writeln ('Nilai B = ',B);
end.

2. Function
Blok fungsi hampir sama dengan blok prosedur, hanya fungsi harus dideklarasikan dengan tipenya atau jenis hasilnya. Tipe deklarasi ini menunjukkan tipe hasil dari fungsi.
Pada bahasa Pascal dikenal beberapa fungsi, misalkan : abs, pred, sqrt, sqr, succ dan sebagainya.
Fungsi-fungsi tersebut biasanya dikenal dengan Built in Function. Sedangkan function yang akan bicarakan disini adalah fungsi yang kita buat sendiri.

Berbeda dengan procedure, function merupakan modul program yang menghasilkan suatu kuantitas.
Hal ini dapat dilihat dari bentuk header-nya yang menyebutkan jenis data dari kuantitas yang dihasilkan.

Secara umum bentuk header suatu function adalah :
FUNCTION nama : jenis hasil;
Atau FUNCTION nama (formal parameter : jenis ) : jenis_hasil;

Contoh :

program function;
uses wincrt;
function Hitung (X,Y,Z :Byte):Byte;
begin
Z := X + Y;
writeln ('Nilai X = ',X);
writeln ('Nilai Y = ',Y);
writeln ('Nilai Z = ',Z);
end;

var
A,B,C :Byte;
begin
A :=5;
B :=7;
C :=3;
Hitung (A,B,C);
writeln ('Nilai A= ',A,'Nilai B=',B,'Nilai C= ',C);
readln;
end.

untuk referensi lebih lengkap dan contoh lainnya dapat anda download disini

Teman-teman juga dapat menyaksikan video tutorial kami di youtube pada channel pascal untuk pemula atau kalian dapat mengaksesnya ke youtube dengan mengklik disini.

well...
keep spirit and happy coding guys :v