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

Contoh program untuk menghitung Volume Balok dengan Swi-Prolog

Contoh program untuk menghitung Volume Balok dengan Swi-Prolog. Berikut adalah script untuk membuat program Volume Kubus dengan menggunakan Swi-Prolog: 

% menghitung volume kubus

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

go:-

write("masukkan sisinya: "),read(Sisi),

write("Sisi yang anda masukkan adalah: "),

        write(Sisi),

Volume is Sisi * Sisi *Sisi,nl,

write("maka, volume Kubus adalah: "),write(Volume)

Simpan Script diatas dan jalankan:

Untuk memperjelas langkah pembuatannya,simak video berikut:

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

Menghilangkan atau Menghapus Page Break

Page Break biasa menggunakan untuk membuat penomoran halaman dengan format berbeda pada file. Misalkan halaman pertama kita memberikan nomor halaman dengan angaka 1, halaman ke dua dengan angka romawi i, dan halaman ketiga dengan huruf A. Ataupun sebaliknya. Akan tetapi jika kelebihan atau ingin menghapus halaman tersebut diperlukan langkah berikut: Langkah Pertama: View->Draft->Hapus Section Break (Next Page)// sesuai dengan halaman yang ingin dihapus. Langkah Kedua: Klik Print Layout. Maka Halaman akan terhapus, simak video berikut:

Cara Membuat Daftar Isi Otomatis di Ms. Word

Cara Membuat Daftar Isi Otomatis di Ms. Word. Bagaimana membuat daftar isi dengan mudah? Daftar isi merupakan bagian yang penting pada penyusunan karya ilmiah. Pembuatan daftar isi dapat dilakukan dengan mudah dan mendapatkan hasil yang baik, berikut adalah video untuk pembuatan daftar isi;