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 denganbegin
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.