{"id":1387,"date":"2013-12-12T22:17:55","date_gmt":"2013-12-12T15:17:55","guid":{"rendered":"http:\/\/www.sulhansetiawan.com\/?p=1387"},"modified":"2013-12-16T18:00:30","modified_gmt":"2013-12-16T11:00:30","slug":"procedure","status":"publish","type":"post","link":"https:\/\/sulhansetiawan.com\/id\/procedure\/","title":{"rendered":"Prosedur"},"content":{"rendered":"

<\/p>\n

<\/a><\/a><\/a><\/div>\n

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. <\/p>\n

Susunan dari sebuah prosedur adalah sebagai berikut:<\/p>\n

procedure NamaProsedur;\r\n\/\/bagian deklarasi prosedur\r\nbegin\r\n  \/\/badan prosedur\r\nend;<\/pre>\n
procedure<\/strong><\/code> 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.<\/p>\n
Setelah bagian nama prosedur, baris berikutnya berisi dengan deklarasi prosedur yang pengertiannya mirip dengan pengertian pada program.
<\/p>\nBadan prosedur diawali dengan begin<\/strong><\/code> dan diakhiri dengan end<\/strong><\/code> ditambah tanda titik koma (bukan titik seperti untuk mengakhiri program).<\/p>\n
Program HitungUmur dapat kita ubah agar menggunakan prosedur seperti berikut:<\/p>\n
program HitungUmur2;\r\n{$APPTYPE CONSOLE}\r\nvar\r\n  Nama:string;\r\n  TahunSekarang,TahunLahir,Umur:integer;\r\n\r\n  procedure AmbilData;\r\n  begin\r\n    Write('Masukkan nama depan Anda : ');\r\n    Readln(Nama);\r\n    Write('Masukkan Tahun Anda lahir: ');\r\n    Readln(TahunLahir);\r\n    Write('Tahun berapakah sekarang : ');\r\n    Readln(TahunSekarang);\r\n  end;\r\n\r\n  procedure HitungUmur;\r\n  begin\r\n    Umur:= TahunSekarang - TahunLahir;\r\n  end;\r\n\r\n  procedure TampilkanData;\r\n  begin\r\n    Write('Hallo ',Nama,', umur Anda adalah ',Umur);\r\n    WriteLn(' tahun'); \r\n    Writeln('Tekan Enter');\r\n    Readln;\r\n  end;\r\n\r\nbegin\r\n  AmbilData;\r\n  HitungUmur;\r\n  TampilkanData;\r\nend.<\/pre>\n
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.<\/p>\n
Jika kita ingin agar program menghitung umur sebanyak dua kali, maka kita cukup melakukan pemanggilan terhadap prosedur-prosedur tersebut sebanyak dua kali pula seperti:<\/p>\n
begin\r\n  AmbilData;\r\n  HitungUmur;\r\n  TampilkanData;\r\n\r\n  AmbilData;\r\n  HitungUmur;\r\n  TampilkanData;\r\nend.<\/pre>\n
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.<\/p>\n
<\/a><\/a><\/a><\/div>\n
<\/p>","protected":false},"excerpt":{"rendered":"
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…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[105,104,96,145],"tags":[106],"class_list":["post-1387","post","type-post","status-publish","format-standard","hentry","category-delphi-lazarus","category-programming","category-all","category-tutorial","tag-delphi"],"_links":{"self":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1387","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/comments?post=1387"}],"version-history":[{"count":0,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1387\/revisions"}],"wp:attachment":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/media?parent=1387"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/categories?post=1387"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/tags?post=1387"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}