Algoritma : Contoh Penggunaan Fungsi

Algoritma Hitung_Luas;
{Menghitung luas bangun datar menggunakan fungsi}
Deklarasi
real panjang,lebar,hasil;
fungsi hitung (input real p,l) -> real;
Deskripsi
write("Panjang : ");
read(panjang);
write("Lebar: ");
read(lebar);
hasil <- hitung(panjang,lebar); write("Please wait, this program is processing!"); write("Luas : ",hasil); Fungsi hitung (input real p,l) -> real;
Deklarasi
real luas;
Deskripsi
luas <- p*l;
return luas;