Swi-Prolog : Silsilah Keluarga Part 1 (on Mac)

Swi-Prolog : Silsilah Keluarga Part 1 (on Mac)

 Berikut contoh Scriptnya:

% Tinta Merah Putih.

% Silsilah Keluarga.

% Fakta.

orangtua(tono,lia). % tono adalah orangtua lia

orangtua(tini,lia).

orangtua(tono,haris).

orangtua(tini,haris).

orangtua(dani,dila).

orangtua(lia,dila).

orangtua(dani,danil).

orangtua(lia,danil).

orangtua(haris,aldo).

orangtua(ina,aldo).

orangtua(haris,hana).

orangtua(ina,hana).

pria(tono). % tono adalah pria

pria(dani).

pria(haris).

pria(danil).

pria(aldo).

wanita(tini).

wanita(lia).

wanita(ina).

wanita(dila).

wanita(hana).

Aturannya Sebagai berikut:

%aturan

ayah(X,Y):- orangtua(X,Y),pria(X).

ibu(X,Y):- orangtua(X,Y),wanita(X).

%aturan dila-tono

kakek1(Kakek,Cucu):- ayah(Kakek,Anak),ibu(Anak,Cucu). 

%aturan aldo-tono

kakek2(Kakek,Cucu):- ayah(Kakek,Anak),ayah(Anak,Cucu).

%aturan All_cucu

kakek(Kakek,Cucu):- ayah(Kakek,Anak),ibu(Anak,Cucu); ayah(Kakek,Anak),ayah(Anak,Cucu).

kakek_(Kakek,Cucu):- kakek1(Kakek,Cucu);kakek2(Kakek,Cucu).

Jika mengalami kesulitan, video berikut sebagai referensinya:

Part1

Part2

Contoh Program Konversi Mata Uang Asing Ke Rupiah

 Contoh Program Konversi Mata Uang Asing Ke Rupiah

% konversi mata uang asing ke rupiah

kurs(euro,17393.48).

kurs(dolar,14615.40).

kurs(rm,3522.34).

kurs(ds,10892.46).

%aturan

cek:-

kurs(euro,Euro),

kurs(dolar,DolarAs),

kurs(rm,Rm),

kurs(ds,Ds),

write(" --------------------------------- "),nl,

write("|       Nilai tukar hari ini      |"),nl,

write(" --------------------------------- "),nl,

write("| nama mata uang   | nilai rupiah |"),nl,

write(" --------------------------------- "),nl,

write("| Euro             |  17393.48    |"),nl,

write(" --------------------------------- "),nl,

write("| Dollar As        |  14615.40    |"),nl,

write(" --------------------------------- "),nl,

write("| Ringgit Malaysia |  3522.34     |"),nl,

write(" --------------------------------- "),nl,

write("| Dollar Singapura |  10892.46    |"),nl,

write(" --------------------------------- "),nl,

write(" Masukkan nilai yang akan ditukar: "),read(Nilai),

write(" Nilai yang anda tukar adalah : "), write(Nilai),nl,

KEuro is Euro*Nilai,

KDolarAs is DolarAs*Nilai,

KRm is Rm*Nilai,

KDs is Ds*Nilai,

write(" Hasil tukar                        "),nl,

write(" Euro ke rupiah            : "),write(KEuro),nl,

write(" Dollar As ke rupiah       : "),write(KDolarAs),nl,

write(" Ringgit Malaysia ke rupiah: "),write(KRm),nl,

write(" Dollar Singapura          : "),write(KDs).

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:

Cara Installasi SWI-Prolog di Mac

Berikut adalah Cara Installasi SWI-Prolog di Mac

Swi-Prolog in MacBook Pro

Swi-Prolog dapat diperoleh di: https://www.swi-prolog.org/download/devel 

 

Uji Coba menjalankan Swi-Prolog di MacBook Pro. Perhatikan capture gambar di bawah ini:

Tuliskan script berikut:

?- write("hallo, gaess!").

Simple Dinamic Programming in Prolog

Hai...how are you?
Remember in Simple Programming In Prolog
We can make a simple programming in prolog  more dymanic. This program used  two Predikat Built-In, write( ) and read ( ). The purpose of making this program is to involve users in the calculation process, attention to the this program:

%fact
 
% rule
start:- write('This is a Simple Program in Prolog'),nl,
          write('Enter length of Rectangular: '),read(L),
          write('Enter width of Rectangular: '),read(W),
          Rectangular_Area is W*L,
          write('Length of rectangular Entered: '),write(L),nl,
          write('Width of Rectangular Entered: '),write(W),nl,
          write('Rectangular Area: '),write(Rectangular_Area).