predicates
pilih(integer)
zodiak(symbol)
sifat_zodiak(string)
gabung(symbol,string)
ciri(integer,symbol,string)
tampil(integer,symbol,string)
clauses
pilih(A):-
A>0,A<3.
zodiak(aries).
zodiak(taurus).
gabung(aries,"ambisius,percaya
diri,mandiri,tidak sabaran,namun semangat tinggi").
gabung(taurus,"praktis,setia,sabar
dan dapat dipercaya,tidak mudah marah,detail").
gabung(gemini,"sangat
antusias dan bersemangat dalam melakukan segala hal, komunikatif,
optimis").
gabung(cancer,"penuh
imajinasi,enerjik,dan setia,sensitif").
gabung(leo,"ambisi,
tegas, dan memiliki kepeercayaan diri yang sangat tinggi,keras, selalu
optimis").
gabung(virgo,"ramah,logis
dan analitis. Sabar dimana ada masalah,,anda menjadi problem solver").
gabung(libra,"mudah
bergaul, kreatif,diplomatis,dan idealis.Pesona anggun").
gabung(scorpio,"motivasi
tinggi,berambisi tinggi").
gabung(sagitarius,"rendah
hati, selalu berpikir positif,suka berbagi pengetahuan dan suka
bepergian").
gabung(capricorn,"penuh
tanggung jawab,disiplin diri cukup tinggi,sangat ambisius").
gabung(aquarius,"inovatif,toleransi
yang tinggi,sangat cerdik,sangat kreatif,mandiri").
gabung(pisces,"empati
tinggi,sabar,dan setia").
sifat_zodiak("ambisius,percaya
diri,mandiri,tidak sabaran,namun semangat tinggi").
sifat_zodiak("praktis,setia,sabar
dan dapat dipercaya,tidak mudah marah,detail").
sifat_zodiak("sangat
antusias dan bersemangat dalam melakukan segala hal, komunikatif,
optimis").
sifat_zodiak("penuh
imajinasi,enerjik,dan setia,sensitif").
sifat_zodiak("ambisi,
tegas, dan memiliki kepeercayaan diri yang sangat tinggi,keras, selalu
optimis").
sifat_zodiak("ramah,logis
dan analitis. Sabar dimana ada masalah,,anda menjadi problem solver").
sifat_zodiak("mudah
bergaul, kreatif,diplomatis,dan idealis.Pesona anggun").
sifat_zodiak("motivasi
tinggi,berambisi tinggi").
sifat_zodiak("rendah
hati, selalu berpikir positif,suka berbagi pengetahuan dan suka
bepergian").
sifat_zodiak("penuh
tanggung jawab,disiplin diri cukup tinggi,sangat ambisius").
sifat_zodiak("inovatif,toleransi
yang tinggi,sangat cerdik,sangat kreatif,mandiri").
sifat_zodiak("empati
tinggi,sabar,dan setia").
tampil(1,aries,"
(21 Maret - 19 April)").
tampil(2,taurus,"
(20 April - 20 Mei)").
tampil(3,gemini,"
(21 mei - 20 juni)").
tampil(4,cancer,"
(21 juni - 22 juli)").
tampil(5,leo,"
(23 juli - 22 agustus)").
tampil(6,virgo,"
(23 agustus - 22 sep)").
tampil(7,libra,"
(23 sep -22 okt)").
tampil(8,scorpio,"
(23 okt - 21 nov)").
tampil(9,sagitarius,"
(22 nov - 21 des)").
tampil(10,capricorn,"
(22 des - 19 januari)").
tampil(11,aquarius,"
(20 jan - 18 feb)").
tampil(12,pisces,"
(19 feb - 20 mar)").
ciri(1,aries,"ambisius,percaya
diri,mandiri,tidak sabaran,namun semangat tinggi.").
ciri(2,taurus,"praktis,setia,sabar
dan dapat dipercaya,tidak mudah marah,detail.").
ciri(3,gemini,"sangat
antusias dan bersemangat dalam melakukan segala hal, komunikatif,
optimis.").
ciri(4,cancer,"penuh
imajinasi,enerjik,dan setia,sensitif.").
ciri(5,leo,"ambisi,
tegas, dan memiliki kepeercayaan diri yang sangat tinggi,keras, selalu
optimis.").
ciri(6,virgo,"ramah,logis
dan analitis. Sabar dimana ada masalah,,anda menjadi problem solver.").
ciri(7,libra,"mudah
bergaul, kreatif,diplomatis,dan idealis.Pesona anggun.").
ciri(8,scorpio,"motivasi
tinggi,berambisi tinggi.").
ciri(9,sagitarius,"rendah
hati, selalu berpikir positif,suka berbagi pengetahuan dan suka
bepergian.").
ciri(10,capricorn,"penuh
tanggung jawab,disiplin diri cukup tinggi,sangat ambisius.").
ciri(11,aquarius,"inovatif,toleransi
yang tinggi,sangat cerdik,sangat kreatif,mandiri.").
ciri(12,pisces,"empati
tinggi,sabar,dan setia.").
ciri(_,salah,
", yang anda masukkan salah").
ciri(A,B,C):-
pilih(A),
zodiak(B),
gabung(B,C).
goal
write("pilih
zodiak anda :"),nl,
readint(A),nl,
tampil(A,B,Z),
write(A,".
",B,Z),nl,
ciri(A,B,C),
write("Zodiak
anda adalah ",B," , anda memiliki sifat ",C).
0 komentar:
Posting Komentar