BENTUK UMUM PROSEDUR (SUBPROGRAM)

Prosedur nama_prosedur

{spesifikasi dari prosedur, keadaan awal sebelum prosedur dilaksanakan dan juga keadaan akhir setelah prosedur dilaksanakan}

Deklarasi
{deklarasi variabel-variabel prosedur}
Deskripsi
{deskripsi dari tugas-tugas prosedur}

Contoh 1: Andaikan sebuah program menyediakan fasilitas untuk menghitung luas, keliling, dan diagonal dari sebuah persegi panjang dengan kemungkinan pemilihan melalui suatu menu.
Contoh soal diatas dapat dibagi kedalam enam prosedur, yaitu prosedur menampilakan menu, prosedur membaca dimensi persegi panjang, menghitung luas, menghitung keliling, menghitung diagonal, dan menampilkan hasil.

Algoritma Empat_Persegi_Panjang
{algoritma ini menunjukkan contoh pemakaian prosedur untung menghitung luas, keliling, dan diagonal dari empat persegi panjang}

Deklarasi
integer pilihan;
real panjang, lebar, hasil;
{semua prosedur harus dideklarasikan}
prosedur menu;
prosedur baca_dimensi;
prosedur hitung_luas;
prosedur hitung_keliling;
prosedur hitung_diagonal;
prosedur tampil_hasil;

Deskripsi
Pilihan  0;
repeat
menu;
write (“Masukkan pilihan anda:”);
read (pilihan);
if (pilihan <4)
then baca_dimensi;
endif.
case (pilihan)
1 : hitung_luas;
2 : hitung_keliling;
3 : hitung_diagonal;
4 : write (“selesai ... sampai jumpa”);
default: write (“pilihan salah, ulangi !”);
endcase.
if (pilihan <4)
then tampil_hasil;
endif.
until (pilihan = 4).
prosedur menu
{menampilkan menu program}

Deklarasi
Deskripsi
write (“Menu Program Empat Persegi Panjang:”);
write (“1.Menghitung Luas:”);
write (“2.Menghitung Keliling:”);
write (“3.Menghitung Diagonal:”);
write (“4.Keluar dari Program:”);
prosedur baca_dimensi
{membaca dimensi pesergi panjang}
Deklarasi.
Deskripsi
write (“Masukkan Panjang:”);
read (panjang);
write (“Masukkan Lebar:”);
read (lebar);
prosedur hitung_luas
{menghitung luas empat persegi panjang}
Deklarasi
real luas;
deskripsi
luas  panjang * lebar;
hasil  luas;
prosedur hitung_keliling
{menghitung keliling empat persegi panjang}
Deklarasi
real keliling;
Deskripsi
keliling  2 * (panjang = lebar);
hasil  keliling;
prosedur hitung_diagonal
{menghitung diagonal empat persegi panjang}
Deklrasi
real diagonal;
Deskripsi
diagonal  sqrt ( panjang ^2 + lebar^2);
hasil  diagonal;
prosedur tampil_hasil
{menampilkan hasil dari program ini}
Deklarasi.
Deskripsi
write (“hasil=’,hasil);