Contoh Program Prosedur (tanpa parameter) - HitungLuasSegitiga

Buatlah prosedur yang membaca panjang alas dan tinggi segitiga, menghitung luas segitiga dengan rumus luas=(alas x tinggi)/2, dan mencetak luas segitiga tersebut.

Penyelesaian : Prosedur untuk menghitung luas segitiga

procedure HitungLuasSegitiga

{  Menghitung luas segitiga dengan rumus L= (alas x tinggi)/2 }

{ K.Awal : sembarang }

{ K.Akhir : luas segitiga tercetak. }

DEKLARASI

    alas : real { panjang alas segitiga, dalam cm }

    tinggi : real {tinggi segitiga, dalam cm }

    luas : real { luas segitiga, dalam cm2 (kuadrat) }

ALGORITMA

  read(alas, tinggi)

  luas <- (alas * tinggi)/2

  write(luas)