PROLOG
TRAVELING
khusus kelompok integer 2010 (copy has sorted to mr.cakson) - illegal copied !
/*******************************************************
* TRAVEL AROUND INDONESIA (Name, Place, Start-Month, Start-Date, *
* End-Date, Classification, Genre) *
*******************************************************/
jadwalAcara(pekan-raya-jakarta, jakartacity, 8, 1,14, keluarga, festivalseni).
jadwalAcara(atlantis, jakartacity,-1, -1, -1, keluarga, olahraga).
jadwalAcara(ancol, jakartacity, -1, -1, -1, keluarga, tamanbermain).
jadwalAcara(plaza-indonesia, jakartacity, -1, -1, -1, keluarga, shopping).
jadwalAcara(science-exibition, jakartacity, 6, 5, 25, keluarga, sains).
jadwalAcara(boulevard-bunaken-party, manado, 1, 1, 1, dewasa, festivalseni).
jadwalAcara(toraja-dead-burrial, makassar, 3, 4, 8, keluarga, festivalseni).
jadwalAcara(trans-studio, makassar, -1, -1, -1, keluarga, tamanbermain).
jadwalAcara(samalonna-fishing-contest, makassar, 5, 17, 23, dewasa, olahraga).
jadwalAcara(meranti-cake-resto, medan, -1, -1, -1, medium, restaurant).
jadwalAcara(selayar-race-sail-championships, makassar, 4, 4, 8, keluarga, olahraga).
jadwalAcara(losari-pub, makassar, -1, -1, -1, dewasa, nightclub).
jadwalAcara(warung-condet,jakartacity, -1, -1, -1, murah, restaurant).
jadwalAcara(bandar-jakarta,jakartacity, -1, -1, -1, medium, restaurant).
jadwalAcara(ulujuku-fishsoup,makassar, -1, -1, -1, medium, restaurant).
jadwalAcara(hot-rica-restaurant,manado, -1, -1, -1, medium, restaurant).
jadwalAcara(paniki-plate-restos,manado, -1, -1, -1, mahal, restaurant).
jadwalAcara(festival-batak-tercinta, medan, 3, 4, 10, keluarga, festivalseni).
jadwalAcara(city-park-mall, jakartacity, -1, -1, -1, keluarga, shopping).
jadwalAcara(bali-birdpark, bali, -1,-1,-1, keluarga, animal).
jadwalAcara(tobatour-freshcycling, medan, 4, 10, 16, keluarga, olahraga).
jadwalAcara(nusa-duapenida-festival, bali, 6, 7, 14, dewasa, festivalseni).
jadwalAcara(iga-coto-karebossi, makassar, -1, -1, -1, medium, restaurant).
jadwalAcara(layar-laut-extreme, manado, 5, 2, 12, keluarga, olahraga).
jadwalAcara(java-jazz-festival, jakartacity, 8,4,18, keluarga, musik).
jadwalAcara(balirock-festival, bali, 12,24,31, dewasa, musik).
jadwalAcara(beach-bar, bali, -1, -1, -1, dewasa, nightclub).
jadwalAcara(bebekbengil-resto, bali, -1, -1, -1, mahal, restaurant).
jadwalAcara(sambal-bumbubali-resto, bali, -1, -1, -1, mahal, restaurant).
jadwalAcara(baliwave-surfing, bali, 5, 2, 12, keluarga, olahraga).
jadwalAcara(pameran-adat-wilayah-timur , makassar, 7, 11, 15, keluarga, festivalseni).
jadwalAcara(tanahlot-tabanan, bali, -1, -1, -1, keluarga, pemandangan).
jadwalAcara(mall-pannakukang, makassar, -1, -1, -1, keluarga, shopping).
jadwalAcara(mall-ratu-indah, makassar, -1, -1, -1, keluarga, shopping).
jadwalAcara(makassar-trace-center-mall, makassar, -1, -1, -1, keluarga, shopping).
jadwalAcara(mall-gtc, makassar, -1, -1, -1, keluarga, shopping).
jadwalAcara(ex-plaza, jakartacity, -1, -1, -1, keluarga, shopping).
jadwalAcara(mall-taman-anggrek, jakartacity, -1, -1, -1, keluarga, shopping).
jadwalAcara(pondok-indah-mall, jakartacity, -1, -1, -1, keluarga, shopping).
jadwalAcara(medan-city-plaza, medan, -1, -1, -1, keluarga, shopping).
jadwalAcara(boulevard-plaza, manado, -1, -1, -1, keluarga, shopping).
/*acara - acara*/
acara(jakartacity,keluarga,museumgajah-museumbatiknasional-gedungkesenianjakarta-ancol-tamanminiindonesia-ragunanzoo-waterboomcikarang).
acara(jakartacity,private,sawahbesarpubresto-manchesterbigclub-ancolpub-kemanggazebo).
acara(bali,keluarga,balibirdpark-baliinternationalzoo-kutabeach-museumkesenianbali-tabanantanahlot-denpasarartmarket).
acara(bali,private,balipub-kutacityclub-bunggijumplive-adrenalincity-beachbar).
acara(medan,keluarga,museumulos-rumahadatbatak-tobasamosir-kabanjaheresort).
acara(medan,private,durianhouse-hardrockmedan-bataksclubhouse).
acara(makassar,keluarga,losaribeach-karebosi-tamanwisatagowa-pantaibiringkasi-transstudio-tanjungbira-takabonerate).
acara(makassar,private,clarionclub-nusantaranight-paoteraclub-torajanight).
acara(manado,keluarga,bunaken-kuilbanhinkiong-museumnegerisulawesiutara-waltermonginsidiroad-bentengnieuwamsterdam-danautondano-gununglokon-gunungklabat- gunungmahawu).
acara(manado,private,boulevardclub-oudekerk-batuSumanti-batubantik-batubuaya-batukuangang-veldboogbelanda-monumententarasekutu-warugadotulolonglasut).
/*harga makanan di tempat acara*/
foodAvailableAt(pekan-raya-jakarta, murah).
foodAvailableAt(toraja-dead-burrial, medium).
foodAvailableAt(science-exibition, murah).
foodAvailableAt(festival-batak-tercinta, medium).
foodAvailableAt(city-park-mall, medium).
foodAvailableAt(java-jazz-festival, medium).
foodAvailableAt(boulevard-bunaken-party, medium).
foodAvailableAt(beach-bar, medium).
foodAvailableAt(losari-pub, murah).
/*jarak antara acara ke acara*/
distance(jakartacity, bali, 2).
distance(jakartacity, makassar, 3).
distance(jakartacity, medan, 3).
distance(jakartacity, manado, 6).
distance(bali, makassar, 2).
distance(bali, medan, 6).
distance(bali, manado, 5).
distance(makassar, medan, 6).
distance(makassar, manado, 3).
distance(medan, manado, 8).
/*jenis penerbangan lima kota besar*/
routineflight(jakartacity, bali,rutin, garudaindonesia-lionair-airasia- bataviaair, murah).
routineflight(jakartacity, makassar,rutin, garudaindonesia- lionair -bataviaair , medium).
routineflight(jakartacity, medan,rutin, garudaindonesia-lionair-airasia-bataviaair,murah).
routineflight(jakartacity, manado,jarang, garudaindonesia-lionair, mahal).
routineflight(medan, bali,jarang, lionair -airasia , mahal).
routineflight(medan, makassar,rutin, garudaindonesia-lionair-airasia ,mahal ).
routineflight(makassar, manado,rutin, lionair,medium).
routineflight(makassar, bali,rutin,garudaindonesia-lionair-airasia ,medium).
routineflight(medan, manado,jarang, garudaindonesia, mahal).
routineflight(bali, jakartacity,rutin, garudaindonesia -lionair-airasia -bataviaair, murah).
routineflight(makassar,jakartacity,rutin, garudaindonesia-lionair- bataviaair, murah).
routineflight(medan, jakartacity,rutin, garudaindonesia-lionair-airasia -bataviaair, murah ).
routineflight(bali, medan,jarang, lionair, mahal).
routineflight(makassar,medan,rutin, garudaindonesia-lionair, mahal).
routineflight(manado, makassar,rutin, lionair ,medium ).
routineflight(manado,medan,jarang, garudaindonesia, mahal).
routineflight(bali, makassar,rutin,garudaindonesia -lionair,mahal).
/* hotel - hotel di lima kota besar */
hotel(jakartacity,bintanglima,fiveseasonhotel-hotelsangrila-aryadutahotel-grandmahakamhotel-borobudurhotel-interconmidplaza).
hotel(jakartacity,bintangempat,acaciahotel-alilahotel-cempakahotel-redtop-twinplaza-milleniumhotel-mercurereksohotel).
hotel(jakartacity,bintangtiga,ibishotel-paragonhotel-travellerhotel-bumikarsahotel-alpinehotel).
hotel(bali,bintanglima,garudawisnukencanahotel-bananahotel-sahidbalihotel-hiltonhotel-kutaparadisohotel-ramadabintangbaliresortkuta).
hotel(bali,bintangempat,legianhotel-holidayinn-kutahotel-alilahotel-baligardenhotel-baliranihotel).
hotel(bali,bintangtiga,kutabeachclubhotel-kutalagoonresortpool-sunrisebali).
hotel(medan,bintanglima,swissbellhotel-grandastoncity-jwmarriot-sahidhotel).
hotel(medan,bintangempat,seochiinternationalhotel-tiramedanhotel-sinabungresort-mikkieholidayhotel-travellersuites).
hotel(medan,bintangtiga,hotelinnasumatera-deliriverhotel-pandulakeside).
hotel(makassar,bintanglima,imperialaryadutahotel-clarionhotel-singgasanahotel-qualityhotel).
hotel(makassar,bintangempat,sahidjayahotel-hotelmercure-hotelgm-hotelsantika-banua-losarimetro-horisonhotel).
hotel(makassar,bintangtiga,celebeshotel-pantaigapura-yasminhotel-kenaritower-suryahotel).
hotel(manado,bintanglima,sahidhotel-boulevardhotel-sintesapeninsula- bunakensidehotel-sutanrajahotel-swissbellhotel-astonmanado-travellohotel).
hotel(manado,bintangempat,novotel-celebesmanado-kimabajohotel-grandpurimanado-santikapremierehotel-theritzymanado-cocotinosboutique).
hotel(manado,bintangtiga,celebeshotel-tasikriahotel-lokonboutiquehotel-suryamanado-mercurehotel).
/* restaurant */
resto(jakartacity,murah,warungcondet-warunghajimansyur-rmnasiudukjakarta-rajasotobetawi-resto99-ketoprakjakarta).
resto(jakartacity,mahal,bandarjakarta-kemangchick-sizzlerjakarta-beefshorejakarta-samuderalautresto-holayjakartafood).
resto(bali,murah,balikampoeng-bebekbalimade-manggosauceresto-balimenusaji).
resto(bali,mahal,bebekbengil-nikmatsambalresto-gianyarsatebali-kutafoodresto-balibigfood).
resto(medan,murah,brastagiresto-rmmedan-singkarakrestopub-tobaeatresto-warungpadangsumatra).
resto(medan,mahal,tobaexcellentresto-amborasaresto-amariaresto-citarasaresto).
resto(makassar,murah,nusantararesto-tunjuktunjuk-warungkepalaikan-suryafood-candyresto).
resto(makassar,mahal,ulujukuresto-laelaeresto-imperialfishresto-bakarikanresto).
resto(manado,murah,kotamubaguresto-manadokhas-ponoresto-pintaresto-rmmunaeche).
resto(manado,mahal,crabgrillmanado-panikiplateresto-hotrica-restaurantsedapmantab).
/*oleh-oleh khas daerah */
oleholeh(jakartacity,kerajinan,gantunganondelondel-golok-samping).
oleholeh(jakartacity,makanan,emping-manggis-rotibuaya).
oleholeh(medan,kerajinan,ulos-ukiranbatak).
oleholeh(medan,makanan,bolumeranti-markisa-durianmedan-bikaambon-bolumeranti-jerukmedan).
oleholeh(bali,kerajinan,joger-ukiranbali-leakmask-lukisanbali-balibeadsbracelet).
oleholeh(bali,makanan,bagiguling-lawar-ayambetutu-serombotan).
oleholeh(makassar,kerajinan,suterasoppeng-ukirantoraja-ukirankayuhitam-kerudungsutera-replikaperahuphinisi).
oleholeh(makassar,makanan,asinankerapu-kapurung-pisangijo-markisa-bagea).
oleholeh(manado,makanan,kerawang-biapong-kukis-bageakanari-tonsea-klappertart-ikanroa-piaceria-dodolkenari).
oleholeh(manado,kerajinan,kerawang,topimamasa,kainrajut).
/*RUUUULESSSSS*/
cari(X) :-routineflight(_,X,_,D,_),hotel(X,_,C),oleholeh(X,_,O),nl,nl,write(D),nl,nl,write(C),nl,nl,write(O),nl.
cari(X,T) :-routineflight(_,X,_,D,_),hotel(X,T,C),write(D),nl,write(C),nl.
penerbangan(X,Y) :-routineflight(X,Y,_,D,_),write(D).
hargatiket(X,Y) :-routineflight(X,Y,_,_,N),write(N).
penerbanganrutin(X,Y) :-routineflight(X,Y,R,_,_),write(R).
near(X,Y) :- X = Y ;
(distance(X,Y,D), D =< 3) ;
(distance(Y,X,D), D =< 3).
jadwalAcara(E,M,Ds,De) :- jadwalAcara(E,_,M,Ds,De,_,_).
jadwalAcara(E,P,M,Ds,De) :- jadwalAcara(E,P,M,Ds,De,_,_).
acaraRutin(E) :- jadwalAcara(E,_,-1,-1,-1,_,_).
acaraRutin(E,P) :- jadwalAcara(E,P,-1,-1,-1,_,_).
acaraAnak(E) :- jadwalAcara(E,_,_,_,_,keluarga,_).
acaraAnak(E,P) :- jadwalAcara(E,P,_,_,_,keluarga,_).
mall(E,P) :- jadwalAcara(E,P,_,_,_,_,shopping).
acaradewasa(E) :- jadwalAcara(E,_,_,_,_,dewasa,_).
acaradewasa(E,P) :- jadwalAcara(E,P,_,_,_,dewasa,_).
cektempatmakan(E) :- jadwalAcara(E,_,_,_,_,_,restaurant).
cektempatmakan(E,P) :- jadwalAcara(E,P,_,_,_,_,restaurant),write(E).
hargaResto(E,P,C) :- jadwalAcara(E,P,_,_,_,C,restaurant).
namaresto(T,C) :- resto(T,C,V),write(V).
getAcara(E,P,C,G) :- jadwalAcara(E,P,_,_,_,C,G).
acara(E,M,D,P) :- getAcara(E,Ep,keluarga,G),
near(P,Ep),
G \= shopping,
getDates(E,Em,Ds,De),
(allYearAcara(E) ; (Ds =< D, De >= D, Em =:= M)).
acaraTerdekat(E,P) :- near(P,X), getAcara(E,X,_,_).
resto(E,T) :- foodAvailableAt(E,T) ;
(getAcara(E,_,T,G), G = restaurant).
carioleholeh(P,Y) :-oleholeh(P,Y,Z),write(Z).
carihotel(X,Y) :-hotel(X,Y,C),write(C).
cekmurah(P) :-jadwalAcara(B,P,_,_,_,murah,_),write(B).
acara(X,Y) :-acara(X,Y,Z),write(Z).
menupenerbangan:-write('1. Jakartacity 2.medan 3.makassar 4.bali 5.manado'),nl,write('masukkan asal kota : '),read(Kot),nl,write('masukkan tujuan : '),read(Tuj),nl,penerbangan(Kot,Tuj),nl.
menuhargatiket:-write('1. Jakartacity 2.medan 3.makassar 4.bali 5.manado'),nl,write('masukkan asal kota : '),read(Kot),nl,write('masukkan tujuan : '),read(Tuj),nl,hargatiket(Kot,Tuj),nl.
menuhotel:-write('1.Jakartacity 2.medan 3.makassar 4.bali 5.manado'),nl,write('masukkan asal kota : '),read(Kot),nl,write('1. bintanglima 2.bintangempat 3.bintangtiga'),nl,write('masukkan kelas hotel: '),read(Hot),nl,carihotel(Kot,Hot),nl.
menuresto:-write('1.Jakartacity 2.medan 3.makassar 4.bali 5.manado'),nl,write('masukkan kota : '),read(Kot),nl,write('1.murah 2.mahal'),nl,write('masukkan kelas resto : '),read(Kel),nl,namaresto(Kot,Kel),nl.
menuoleholeh:-write('1.Jakartacity 2.medan 3.makassar 4.bali 5.manado'),nl,write('masukkan asal kota : '),read(Kot),nl,write('1.kerajinan 2.makanan'),nl,write('masukkan jenis oleholeh : '),read(Ole),nl,carioleholeh(Kot,Ole),nl.
menuacara:-write('1.Jakartacity 2.medan 3.makassar 4.bali 5.manado'),nl,write('masukkan asal kota : '),read(Kot),nl,write('1.keluarga 2.private'),nl,write('masukkan pilihan kategori : '),read(Kat),nl,acara(Kot,Kat),nl.
menu:-nl,
write('----travel menu----'),nl,
write('*******************'),nl,
write('1. menu penerbangan'),nl,
write('2. menu harga tiket'),nl,
write('3. menu hotel '),nl,
write('4. menu resto '),nl,
write('5. menu oleh-oleh '),nl,
write('6. menu acara '),nl,
write('7. keluar '),nl,
write('*******************'),nl,
write(' ---masukkan pilihan---'),
write(' '),read(Pil),
(
Pil=1->menupenerbangan,nl,
menu;
Pil=2->menuhargatiket,nl,
menu;
Pil=3->menuhotel,nl,
menu;
Pil=4->menuresto,nl,
menu;
Pil=5->menuoleholeh,nl,
menu;
Pil=6->menuacara,nl,
menu;
Pil=7->nl,
write('EXIT'),nl).
No comments:
Post a Comment