PROSEDUR DAN FUNGSI

Prosedur adalah suatu program terpisah dalam blok tersendiri yang berfungsi sebagai sub program (program bagian) dan diawali dengan kata cadangan Procedure.Prosedur memiliki struktur yang sama dengan struktur program, yaitu terdiri dari nama prosedur, deklarasi-deklarasi dan bagian deskripsi (statement atau aksi di dalam prosedur). Semua deklarasi di dalam prosedur bersifat lokal sehingga hanya bisa digunakan oleh prosedur itu saja, sedangkan deklarasi di dalam program utama bersifat global sehingga dapat dikenali di seluruh bagian program.
Bentuk Umum Prosedur :           

Procedure nama (daftar_parameter);

Bagian deklarasi;

Bagian pernyataan;

Prosedur :

1.      Input Parameter : Prosedur sederhana adalah sebuah subprogram yang tidak mempunyai parameter masukan maupun parameter keluaran. 

2.      Parameter Input : Sebuah prosedur dapat menerima masukan yang digunkan dalam proses sesuai tugasnya. 

3.      Parameter Output : Prosedur yang paling komplek adalah yang menerima masukan dan menghasilkan keluaran. 

Fungsi secara garis besar sama dengan procedure yang membedakannya adalah nama fungsi harus dideklarasikan dengan type datanya. Fungsi tidak jauh berbeda dengan prosedur, yaitu suatu modul program terpisah dari progam utama yang diletakan dalam blok tersendiri yang berfungsi sebagai bagian dari program. Namun fungsi memiliki perbedaan mendasar dengan prosedur yaitu : fungsi memberikan nilai balik (return) sedangkan prosedur tidak. 

Bentuk Umum :

Function Identifier  (daftar-parameter):

               Type;

Contoh Program >>

program lima_satu;

uses crt;

procedure Pertama;

var

      r,N,max : integer;

      A : array[1..100] of integer;

begin

write('Input Batas N : ');readln(N);

for r:=1 to N do

begin

write('Input Bilangan ke-',r,'=');readln(A[r]);

end;

max :=A[N];

for  r:=2 to N do

begin

if max < A[1] then max := A[r]

else max := max;

end;

writeln;

writeln('Bilangan Terbesar adalah ',max);

end;

begin

clrscr;

Pertama;

readkey;

end.