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

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

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

w

Connecting to %s