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.

Apakah Anda menyukai post ini? Mengapa tidak memberikan komentar di bawah dan melanjutkan perbincangan, atau berlangganan my feed dan dapatkan artikel semacam ini yang dikirm secara otomatis feed reader Anda.
Harap diperhatikan bahwa komentar atau pertanyaan yang disampaikan haruslah sesuai dengan topik yang sedang dibahas. Komentar atau pertanyaan yang tidak sesuai dengan topik akan kami hapus :!:

Tinggalkan komentar

Sebelum membuat komentar, pastikan Anda telah membaca komentar-komentar sebelumnya. Jangan membuat pertanyaan yang telah ditanyakan. Perhatikan pula link-link dalam artikel. Lihatlah link tersebut sebelum membuat pertanyaan, karena mungkin penjelasan dari pertanyaan Anda telah di jawab dalam link tersebut.

Komentar yang tidak mengikuti aturan ini akan dihapus!

(wajib)

(wajib)


Time limit is exhausted. Please reload the CAPTCHA.