Prosedur & Fungsi di Pascal

Prosedur dan fungsi dibuat agar pengerjaan suatu program menjadi lebih mudah dan lebih terorganisir. Dengan adanya fungsi maupun prosedur, pelacakan kesalahan(debugging) pun akan lebih mudah dilakukan.

Prosedur dan fungsi sebenarnya tidak jauh berbeda, prosedur bisa dibilang sebagai fungsi yang tidak mengembalikan nilai. Hasil penghitungan dari prosedur biasanya disimpan pada parameter output prosedur tersebut.

Berikut ini beberapa contoh prosedur dan fungsi:

1.Hitung Luas Segitiga

procedure HitLuasSegi3ver1(alas:real;tinggi:real;var luas:real);

{prosedur untuk menghitung luas segitiga, dengan parameter masukan alas dan tinggi, serta parameter keluaran luas}

begin

luas:= alas*tinggi/2;

end;

atau bisa juga:

procedure HitLuasSegi3ver2;

{prosedur untuk menghitung luas segitiga, dengan parameter masukan alas dan tinggi, serta parameter keluaran luas}

var

luas:real;

begin

write(“Alas  : “);readln(alas);

write(“Tinggi: “);readln(tinggi);

luas:=alas*tinggi/2;

writeln(“Luas segitiga adalah”,luas);

end;