Senin, 31 Desember 2012

Program Mencari Luas N Buah Segitiga Menggunakan Prosedure

Program Segitiga;
uses crt;
Var
   i, N : integer ;
Procedure HitungLuasSegitiga;
Var
        Alas        :    real;
        Tinggi    :     real;
        Luas         :    real;
Begin
     Write (' Panjang alas segitiga ? ') ; readln (Alas);
     Write (' Tinggi segitiga ? ') ; readln (Tinggi);
     Luas := ( Alas * Tinggi)/2;
     Write ('Luas Segitiga = ',Luas);
End;
Begin
Write ('Banyak segitiga ?'); readln (N);
For i :=1 to N do
    HitungLuasSegitiga;

End.

Untuk penjelasan dari program di atas, silahkan lihat penjelasannya di bawah ini. Bagi yang sudah tahu  berikan kesempatan kepada yang lain untuk mengerti.

 Dalam penjabaran program di atas, kalimat yang berada di dalam program yang memiliki warna merah adalah penjelasan dari program.

Program Segitiga;
{Menghitung Luas N buah segitiga}

(*DEKLARASI*)
{ semua nama yang di pakai dalam prosedur dan hanya berlaku local di dalam prosedur }
Var
      I, N : integer ;
Procedure HitungLuasSegitiga;
{ Menghitung Luas segitiga dengan rumus L = ( alas x tinggi )/2 }
{ K. Awal : sembarang} -> keadaan sebelum prosedur di laksanakan
{K. Akhir : luas segitiga tercetak} -> keadaan setelah prosedur di laksanakan

(*DEKLARASI*)
Var
    Alas        :    real ;     {  panjang alas segitiga, dalam cm }
    Tinggi    :     real;    { tinggi segitiga, dalam cm }
    Luas     :    real;    { luas segitiga, dalam cm^2}
( * ALGORITMA : *)
Begin
Write (‘ Panjang alas segitiga ? ‘) ; readln (alas) ;
Write ( ‘ Tinggi segitiga ? ‘ ‘) ; readln (tinggi) ;
Luas := ( alas * tinggi)/2;
Write (‘ Luas Segitiga = ‘ , Luas);
End;
(* PROGRAM UTAMA : *) -> merupakan program utama dalam suatu program
Begin
Write (‘ Banyak segitiga ?’); readln (N)
For I :=1 to N do
    HitungLuasSegitiga;
    {endfor} -> keadaan setelah prosedur di laksanakan
    End.


Program Mencari nilai n buah segitiga ini di tulis dengan program yang modular. Artinya, program ini di pecah menjadi beberapa prosedur (atau fungsi). Program yang di pecah menjadi beberapa prosedur ini  akan menunujukkan teknik pemrograman yang baik dan terstruktur. Mengapa demikian ? karena dapat menghindari penulisan teks yang sama berkali-kali dan sekaligus di gunakan untuk memudahkan dalam melakukan pelacakan kesalahan dalam program yang di buat. Jadi sangat di anjurkan bila program yang di buat menggunakan Prosedur di banding tanpa prosedur.

Mungkin ada yang belum tahu apa itu prosedur. Prosedur adalah suatu kumpulan instruksi yang di buat oleh pemrogram sebagai pengikat dalam suatu block program tersendiri-sendiri/ sekelompok program

Dalam bahasa Pascal, pendefinisian prosedur di tulis bersatu di dalam program utama, kecuali jika di realisasikan sebagai unit.

Prosedur di letakkan di bawah kata var dan juga prosedur mempunyai parameter masukan/keluaran. Parameter formal yang bertipe keluaran atau masukan/keluran harus di awali dengan kata kunci var, sedangkan parameter  formal yang beripe masukan tidak di awali dengan kata kunci var.

Argumen parameter actual di lewatkan ke parameter formal yang bertipe masukan sebagai “by value”, sedangkan bila parameter formalnya bertipe masukan atau masukan/keluaran, maka argument parameter actual di lewatkan sebagai “by reference”

Oke sekian program mencari luas n buah segitiga, mudah-mudahan dapat membantu saudar.
Artikel Terkait
Judul: Program Mencari Luas N Buah Segitiga Menggunakan Prosedure; Ditulis oleh Al Mustakim; Rating Blog: 5 dari 5

1 komentar: