Swi-Prolog: Konversi suhu Celsius ke Fahrenheit

Swi-Prolog: Konversi suhu Celsius ke Fahrenheit. Berikut adalah contoh program sederhana untuk konversi suhu. Rumus dapat diambil di google dengan pencarian konversi suhu.

% tinta merahputih.

% konversi suhu.

% celsius ~ fahrenheit.

% (0 * 9/5)+ 32 .

go:-

write(" Masukkan suhu dalam Celsius: "), read(C),nl,

F is (C * 9/5)+ 32,

write(" Suhu yang anda masukkan: "), 

write(C), nl,

write(" Konversi: "),nl, write(" "),

write(C),

write(" Celsius"),

write(" = "), write(F), write(" Fahrenheit").

Untuk menjalankan script dapat dilihat pada video berikut ini:

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).

Cara Installasi SWI-Prolog di Mac

Berikut adalah Cara Installasi SWI-Prolog di Mac