Prosedur

Prosedur adalah sebuah subprogram. Beberapa urutan perintah yang sering dilakukan dapat dibuat menjadi sebuah prosedur. Setiap kali urutan tersebut dibutuhkan untuk dilaksanakan pada program utama, kita cukup mamanggil prosedur yang berisi urutan tersebut dengan menuliskan nama prosedurnya.

Susunan dari sebuah prosedur adalah sebagai berikut:

procedure NamaProsedur;
//bagian deklarasi prosedur
begin
  //badan prosedur
end;

procedure adalah kata yang dicadangkan oleh Delphi. Setiap prosedur harus diawali dengan kata tersebut, kemudian diikuti dengan nama prosedur. Aturan penamaan prosedur sama dengan aturan penamaan variabel.

Setelah bagian nama prosedur, baris berikutnya berisi dengan deklarasi prosedur yang pengertiannya mirip dengan pengertian pada program.

Badan prosedur diawali dengan begin dan diakhiri dengan end ditambah tanda titik koma (bukan titik seperti untuk mengakhiri program).

Program HitungUmur dapat kita ubah agar menggunakan prosedur seperti berikut:

program HitungUmur2;
{$APPTYPE CONSOLE}
var
  Nama:string;
  TahunSekarang,TahunLahir,Umur:integer;

  procedure AmbilData;
  begin
    Write('Masukkan nama depan Anda : ');
    Readln(Nama);
    Write('Masukkan Tahun Anda lahir: ');
    Readln(TahunLahir);
    Write('Tahun berapakah sekarang : ');
    Readln(TahunSekarang);
  end;

  procedure HitungUmur;
  begin
    Umur:= TahunSekarang - TahunLahir;
  end;

  procedure TampilkanData;
  begin
    Write('Hallo ',Nama,', umur Anda adalah ',Umur);
    WriteLn(' tahun'); 
    Writeln('Tekan Enter');
    Readln;
  end;

begin
  AmbilData;
  HitungUmur;
  TampilkanData;
end.

Sebuah prosedur dapat dipanggil sebanyak yang dibutuhkan. Bahkan sebuah prosedur juga dapat memanggil prosedur yang lain asalkan prosedur yang dipanggil telah didefinisikan di atasnya. Sebuah prosedur tidak bisa memanggil prosedur yang berada di bawahnya.

Jika kita ingin agar program menghitung umur sebanyak dua kali, maka kita cukup melakukan pemanggilan terhadap prosedur-prosedur tersebut sebanyak dua kali pula seperti:

begin
  AmbilData;
  HitungUmur;
  TampilkanData;

  AmbilData;
  HitungUmur;
  TampilkanData;
end.

Penggunaan prosedur memiliki keuntungan dalam menyembunyikan kerumitan program. Disamping itu, untuk aksi-aksi yang terdiri dari beberapa baris perintah yang sering dilakukan, penggunaan prosedur dapat menyederhanakan pekerjaan sekaligus memperkecil ukuran file.