Membuat program untuk menghitung Luas Segitiga dengan Swi-Prolog

Berikut adalah script untuk membuat program Luas Segitiga dengan menggunakan Swi-Prolog: 

% contoh program sederhana 

% https://tinta-merahputih.blogspot.com 

mulai:- 

    write("masukkan Alas Segitiga: "),read(Alas), 

    write("masukkan Tinggi Segitiga: "),read(Tinggi), 

    write("Alas Segitiga: "),write(Alas),nl, 

    write("Tinggi Segitiga: "),write(Tinggi),nl, 

    Luas is 1/2 * (Alas * Tinggi),

    write("Luas Segitiga: "), write(Luas). 

Simpan Script diatas dan jalankan:

Untuk memperjelas langkah pembuatannya,simak video berikut: