Bentuk Umum Prosedur

Prosedur adalah bagian dar suatu program yang disusun secara terpisah untuk melakukan suatu tugas khusus / fungsi tertentu. Pada dasarnya ada dua macam bentuk prosedur yatu Subrutin (subprogram) dan Fungsi.

Subrutin adalah bagian dari program yang dibuat terpisah untuk melaksanakan sebagian dari tugas yang harus diselesaikan oleh suatu program. Pada umumnya yang dikenal dengan nama “prosedur” sebenarnya adalah “subprogram”.

Fungsi adalah bagian dari program yang dibuat terpisah untuk melaksanakan fungs tertentu yang menghasilkan suatu nlai untuk dikembalikan ke program utama.

Manfaat pembuatan prosedur :
Modularisasi: suatu program yang besar dan kompleks dapat dibagi ke dalam prosedur sehingga setiap prosedur merupakan bagian yang mudah dikerjakan, dengan demikian, program besar tersebut menjadi mungkan diselesaikan.
Simpifikasi: dalam suatu program, sering diperlukan suatu tugas yang harus dikerjakan berulang-ulang dengan nilai-nilai variabel yang berbeda. Agar tidak merepotkan maka tugas ni cukup diitulis sekali saja dalam bentuk prosedur yang kemudian dipanggil berulang-ulang sesuai kebutuhan.

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:
Sebuah program menyediakan fasilitas untuk menghitung luas, keliling, diagonal dari sebuah persegi panjang dengan kemungkinan pemilihan melalui suatu menu.
Soal ini dapat dibagi kedalam enam prosedur , yaitu prosedur menampilkan menu, prosedur membaca dimensi persegi panjang, menhitung luas, menghitung keliling, menghitung diagonal, dan menampilkan hasil.

Algoritma Empat_Persegi_Panjang
{algortma ini menunjukan contoh pemakaian prosedur untuk menghitung lias, keliling, diagonal dari empat persegi panjang}

Deklarasi
integer pilihan;
real panjang, leber, 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 (pillihan < 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 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}
Deklarasi
Real diagonal;
Deskripsi
diagonal ← sqrt (panjang^2 + lebar^2);
Hasil ← diagonal;


prosedur tampil_hasil
{menghitung hasil dari program ini}
Deklarasi.

Deskripsi
Write (“ hasil = “,hasil);