Membuat Sistem Pakar AI Program Memilih Makanan Pedas ke dalam Prolog + Koding

By -
dalam postingan kali ini berkaitan dengan tugas kuliah mata pelajaran AI (Kecerdasan Buatan), saya akan membuat sebuah program Memilih Makanan, bisa anda ubah sendiri mau program seperti apa, tinggal ubah saja beberapa prolog dan pertanyaan di prolog nya.

langkah-langkah nya

  1. Siapkan Aplikasi SWI-Prolog -Bisa di download Disini
  2. Lalu siapkan aplikasi Notepad bawaan windows, atau boleh download Notepad++
berikut penjelasannya..

ketikan kode berikut ke dalam notepad anda.


mulai:-
init,
data_pengamatan,
aturan(Nomor,Alasan),
jawaban(Alasan,Jawab),
write(Jawab),nl,
write('Rule : '),
write(Nomor),nl,nl, retractall(observation(_)).
mulai:-
write('Maaf, Makanan Tersebut tidak ada dalam database kami. '),nl,nl,
retractall(observation(_)).
init:-
write('PROGRAM SISTEM PAKAR MENCARI MAKANAN PEDAS'),nl,
judul(Judul),write(Judul),nl,nl,
tulis_pesan,nl.
tulis_pesan:-
pesan(Pesan),
write(Pesan),nl,fail.
tulis_pesan:-
nl. data_pengamatan:-
pertanyaan(Tanya,Obs),
write(Tanya),nl,
read(Yatidak),
Yatidak=y,
assert(observation(Obs)),
fail.
data_pengamatan.
judul('MENYARANKAN RESTORAN MAKANAN PEDAS....').
pesan('Jawab pertanyaan berikut dengan y atau t').
pertanyaan('Apakah Anda Mencari Makanan Seafood?', b1).
pertanyaan('Lokasi Anda berada di Pusat Kota?', b2).
pertanyaan('Anda tertarik dengan harga Mahal?', b3).
pertanyaan('Anda tertarik dengan harga Terjangkau?', b4).
pertanyaan('Tingkat Kepedasan 90% ?', b5).
pertanyaan('Tingkat Kepedasan 60% ?', b6).
pertanyaan('Tingkat Kepedasan 40% ?', b7).
pertanyaan('Transportasi Anda Motor?', b8).
pertanyaan('Transportasi Anda Mobil?', b9).
pertanyaan('Apakah Anda berJalan Kaki?', b10).
pertanyaan('Apakah Anda Mencari yang lokasi di tepi laut atau terpencil?', b11).
pertanyaan('Apakah Anda Mencari yang jauh dari kota?', b12).
pertanyaan('Apakah ingin berada dalam MALL?', b13).
pertanyaan('Anda Menyukai makanan MIE?', b14).
pertanyaan('Anda berada di pusat keramaian?', b15).
aturan(1,mie_Ramen):-
not(observation(b1)),
observation(b2),
not(observation(b3)),
observation(b4),
not(observation(b5)),
observation(b6),
not(observation(b7)),
observation(b8),
observation(b9),
observation(b10),
not(observation(b11)),
not(observation(b12)),
observation(b13),
observation(b14),
observation(b15).
aturan(2,cabe_Ijo):-
observation(b1),
not(observation(b2)),
not(observation(b3)),
observation(b4),
observation(b5),
not(observation(b6)),
not(observation(b7)),
observation(b8),
observation(b9),
observation(b10),
not(observation(b11)),
not(observation(b12)),
not(observation(b13)),
not(observation(b14)),
observation(b15).
aturan(3,pelita_Pe):-
not(observation(b1)),
observation(b2),
not(observation(b3)),
observation(b4),
observation(b5),
not(observation(b6)),
not(observation(b7)),
observation(b8),
observation(b9),
observation(b10),
not(observation(b11)),
not(observation(b12)),
not(observation(b13)),
not(observation(b14)),
not(observation(b15)).
aturan(4,pedas_Pe):-
observation(b1),
not(observation(b2)),
observation(b3),
not(observation(b4)),
not(observation(b5)),
observation(b6),
not(observation(b7)),
observation(b8),
observation(b9),
not(observation(b10)),
observation(b11),
observation(b12),
not(observation(b13)),
not(observation(b14)),
not(observation(b15)).
aturan(5,merah_Pe):-
not(observation(b1)),
observation(b2),
not(observation(b3)),
observation(b4),
not(observation(b5)),
not(observation(b6)),
observation(b7),
observation(b8),
observation(b9),
observation(b10),
not(observation(b11)),
not(observation(b12)),
observation(b13),
not(observation(b14)),
observation(b15).
aturan(6,galak_Pe):-
not(observation(b1)),
observation(b2),
not(observation(b3)),
observation(b4),
observation(b5),
not(observation(b6)),
not(observation(b7)),
observation(b8),
observation(b9),
not(observation(b10)),
not(observation(b11)),
not(observation(b12)),
not(observation(b13)),
not(observation(b14)),
observation(b15).
aturan(7,kriuk_Pe):-
not(observation(b1)),
observation(b2),
observation(b3),
not(observation(b4)),
observation(b5),
not(observation(b6)),
not(observation(b7)),
observation(b8),
observation(b9),
observation(b10),
not(observation(b11)),
not(observation(b12)),
not(observation(b13)),
not(observation(b14)),
not(observation(b15)).
jawaban(mie_Ramen ,'Anda Dapat Mencoba Mie Ramen yang berada di sekitar sini').
jawaban(cabe_Ijo,'Anda Dapat Mencoba Ayam Cabe Ijo Podomoro di nagoya').
jawaban(pelita_Pe,'Anda Dapat  Mencoba Ayam Taliwang Pelita').
jawaban(pedas_Pe,'Anda Dapat Mencoba Kepiting Pedas Piayu Laut').
jawaban(merah_Pe,'Anda Dapat Mencoba Ayam cabe merah di BCS MALL').
jawaban(galak_Pe,'Anda Dapat Mencoba Ayam Cabe Galak').
jawaban(kriuk_Pe,'Anda Dapat Mencoba Ayam Kriuk Lucky Plasa').




setelah itu pilih save as, buat nama menjadi NamaFile.pl

lalu buka prolog dan consult,
lalu ketikan mulai:- untuk menjalankan Programmnya,, silahkan di coba.

atau boleh download File Saya jika anda gagal..











Comments

Post a Comment

Popular posts from this blog

Inilah Sejarah Google

By -
Image
Di zaman sekarang ini uda ketinggalan bangat kalau anda tidak tau google, karena google sudah sangat terkenal di kalangan dan negara mana pun, mungkin sebagian dari anda tidak begitu paham tentang sejarahnya google, berikut ini saya tuliskan sejarahnya berdiri nya google hingga sukses sampai sekarang, Google Inc.  adalah sebuah perusahaan multinasional Amerika Serikat yang berkekhususan pada jasa dan produk Internet. Produk-produk tersebut meliputi teknologi pencarian, komputasi web, perangkat lunak, dan periklanan daring. Sebagian besar labanya berasal dari AdWords. Larry Page dan Sergey Brin Google didirikan oleh Larry Page dan Sergey Brin saat masih mahasiswa Ph.D. di Universitas Stanford. Mereka berdua memegang 16 persen saham perusahaan. Mereka menjadikan Google perusahaan swasta pada tanggal 4 September 1998. Pernyataan misinya adalah "mengumpulkan informasi dunia dan membuatnya dapat diakses dan bermanfaat oleh semua orang", dan slogan tidak resminya adalah ...
Read more

6 Tools Untuk Mempercantik Windows 7 Anda

By -
Image
1. Download Themes Windows 7. Cara paling gampang untuk memperindah tampilan desktop komputer adalah dengan mengganti themes yang ada. Namun jika kalian telah bosan dengan tampilan atau pilihan yang ada hanya itu itu saja, Bagi pengguna OS Windows 7 kalian dapat mendownload themes baru langsung dari Microsoft’s Personalization Gallery. Berikut cara untuk mendownloadnya langsung dari komputer kalian. Di area desktop klik kanan dan pilih menu Personalize Window baru My Themes akan muncul dan klik di tulisan Get more themes online. Link tersebut akan membuka situs Microsoft dimana kalian dapat mendownload banyak themes baru. Tahap terakhir pilik themes yang akan di download dan save file tersebut. Atau kalian dapat mendownload themes windows 7 di : Virtual Customs Windows 7 Theme Vikitech 2. Menggunakan Stardock Object Dock. Cukup dengan tools gratis di berikut, anda bisa membuat group icon dengan tampilan animasi saat diklik, Indikator-indikator...
Read more

langkah awal untuk pemula belajar php

By -
Image
untuk pertama kali bagi anda menggunakan pemrograman php. silahkan tulisakna script anda di notepad atau notepad++ di sarankan. setiap code php selalu di awalii dengan tanda "<?" atau "<?php" untuk membuka nya . dan selalu di tutup dengan tanda "?>" permulaan silahkan anda mencoba mengetikan code dibawah ini ke notepad anda <?php echo "tulisan anda"; ?> catatan : echo fungsi nya untuk mencetak. lalu save as dengan namafile.php,simpan di folder belajar ,disini saya menggunakan "intro.php" untuk mengetestnya, silahkan ke folder anda install XAMPP, lalu ke folder htcdocs , lalu buat 1 folder didalam folder htcdocs tadi. disni saya buat nama foldernya "belajar". selanjutnya. silahkan aktifkan Xampp nya, bagian apache dan MYSQL di aktifkan. lalu buka browser, ketikan "localhost/belajar/" maka akan muncul pilihan intro.php, lalu di klik. maka hasilnya seperti dibawah ini jika anda ber...
Read more