Subrutin

PROSEDURDANFUNGSI
Berikut ini adalah sintak penulisan prosedur secara umum:

Procedurnama_prosedur(parameter1;parameter2;…)
Begin
(pernyataan-pernyataan)
End.
Berikutiniadalahsintakpenulisanfungsisecaraumum:
function nama_fungsi(perameter1;parameter2;….).
tipe_kembalian
begin
(pernyataan-pernyataan)
end;
Nama procedure dan Nama_fungsi merupakan nama yang anda berikan ke prosedur atau fungsi.
Tipe kembalian adalah tipe data dari nilai yang dikembalikan oleh fungsi.
Parameter1,parameter2…… adalah merupakan informasi yang diberikan ke prosedur atau fungsi.
Berikut adalah sebuah contoh prosedur dengan nama procedurku dan sebuah fungsi dengan nama fungsiku:
Procedure prosedurku;
Begin
(pernyataan-pernyataan);
End;
Fungction fungsiku : integer;
Begin
(pernyataan-pernyataan);
End;
Kedua subrutin diatas belum memiliki paramter CONTOHSUBRUTINYANGMEMILIKIPARAMETER
Perhatikandalammemberikanparameter, andaharusmenentukantipeparameter :

procedurcoba(b : string);
begin
(pernyataan-pernyataan);
end;
Berikutadalahcontohprosedurdanfungsidenganbeberpaparameter, masing-masingperameterdipisahkandengantandatitikkoma(;)

procedure cobalagi(b:string ; x:string );
begin
(pernyataan-pernyataan)
end;
Untuk beberapa parameter dengan tipe yang sama, anda cukup menuliskan tipe satu kali, tetapi masing-masing parameter dipisahkan dengan tanda (,) contoh ;
function lagilagicoba (I,j : longint); longint;
begin
(pernyataan-pernyataan)

Referensi : teguh-cahyono.blog.unsoed.ac.id/files/2010/04/BAB-VII-subritun.pdf