Menghitung Luas Segitiga dengan Informix

Informix merupakan pemrograman generasi keempat. Contoh sederhana dari pemrograman tersebut adalah perhitungan luas segitiga. Ada dua versi dengan hasil yang sama.

Globals
Define alas,tinggi,luas real
End Globals

Main
Prompt ‘masukkan , alas = ‘ for alas
Prompt ‘masukkan , tinggi = ‘ for tinggi
Call hitung(alas,tinggi)
Display “Luas Segitiga= “luas End
End main

Function hitung(alas,tinggi)
luas=0.5*alas*tinggi
End function

———————————————————————————–

Main
Define alas,tinggi,luas real
Prompt ‘masukkan , alas = ‘ for alas
Prompt ‘masukkan , tinggi = ‘ for tinggi

Call hitung(alas,tinggi ) RETURNING luas
Display “Luas Segitiga= “luas

End main

Function hitung(a,t)
Define t,a,L real
L=0.5*a*t
RETURN L
End Function

———————————————————————————–