Procedure Dan Function

Rabu, November 21, 2012 Unknown 0 Comments

Woh, udah lama ternyata saya ga posting :D akhir-akhir ini memang agak sibuk sama urusan sekolah (tugas luar biasa numpuk) + agak males juga. well, dalam postingan kali ini, saya akan membahas tentang Procedure dan Function dalam bahasa pascal. Check this out ^^

Suatu permasalahan program yang kompleks pada umumnya akan dibagi ke dalam bagian-bagian tersendiri yang disebut subprogram atau rutin. Di dalam sebuah rutin terdapat kode-kode yang digunakan untuk melakukan sebuah tugas secara spesifik. Dengan menggunakan rutin, program yang kita buat dapat lebih bersifat modular, jadi kalau ada sebuah perubahan, kita tidak perlu repot-repot untuk memperbaikinya. selain itu, dengan menggunakan rutin, kita juga dapat menghindari penulisan kode yang sama(karena rutin bisa dipanggil berulang-ulang dimanapun) Dalam bahasa pascal, dikenal dua buah rutin, yaitu Procedure dan Function.

PROCEDURE

Procedure, adalah sebuah subprogram yang melakukan proses tertentu tanpa adanya pengembalian nilai, procedure ini menggunakan metode pengisolasian (terpisah dari kode program utama) dan bisa diaktivasi/dipanggil dari bagian manapun di dalam program. Struktur Procedure :

procedure namaprocedure(parameter1:tipedata
;paramater2:tipedata...);
var
  {pendeklarasian variabel}
begin
  {statement}
end;

contoh penerapannya :

Procedure swap(a,b:integer);
var
  temp:integer;
begin
  temp:=a;
  a:=b;
  b:=temp;
end;

nah, contoh procedure yang saya buat di atas adalah procedure yang berisi statement-statement yang akan menukar dua buah bilangan. dan procedure diatas dapat dipanggil berulang-ulang hanya dengan menulis code :

swap(a,b);

FUNCTION

Kalau secara definisi, function(fungsi) dan procedure sebenarnya sama. Letak perbedaannya hanya pada pengembalian nilai, dalam fungsi terdapat pengembalian nilai dan bisa langsung mengisikan sebuah ekspresi. Struktur Fungsi :

function nama function(parameter1:tipedata;
                       parameter2:tipedata...):tipedata;
var
  {pendeklarasian variabel}
begin
  {statement}
  namafungsi:=nilaikembalian;
end;

contoh penerapannya :

function kali(a,b:integer):longint;   
begin
  kali:=a*b;
end;

kita juga bisa menggunakan variabel bantu pada contoh di atas, seperti ini :

function kali(a,b:integer):longint;
var
  hasil:longint;
begin
  hasil:=a*b;
  kali:=hasil;
end;

Pada dua buah contoh di atas, fungsi kali mengembalikan nilai yang sama. Yang menjadi pembeda
adalah, pada contoh yang kedua kita menggunakan variabel bantu untuk menyimpan nilai hasil perkalian dari a dan b, tapi di akhir nilainya kita assign ke fungsi kali.

Saya rasa itu saja yang bisa saya post kali ini, semoga bermanfaat.