Si Budi

iden(n01,andi).

iden(n02,budi).

iden(n03,ina).

iden(n04,ina).

item(i01,anggur).

item(i02,jeruk).

item(i03,donut).

warna(w01,merah).

warna(w02,hijau).

warna(w03,coklat).

warna(w04,kuning).

rasa(r01,manis).

rasa(r02,masam).

menyukai(n01,i01,w01,r01).

menyukai(n02,i01,w02,r02).

menyukai(n03,i02,w04,r02).

menyukai(n04,i03,w03,r01).

manis1(Nama):-

   iden(No,Nama),rasa(Ra,manis),

   menyukai(No,_,_,Ra). 

Simple Dinamic Programming in Prolog

Hai...how are you?
Remember in Simple Programming In Prolog
We can make a simple programming in prolog  more dymanic. This program used  two Predikat Built-In, write( ) and read ( ). The purpose of making this program is to involve users in the calculation process, attention to the this program:

%fact
 
% rule
start:- write('This is a Simple Program in Prolog'),nl,
          write('Enter length of Rectangular: '),read(L),
          write('Enter width of Rectangular: '),read(W),
          Rectangular_Area is W*L,
          write('Length of rectangular Entered: '),write(L),nl,
          write('Width of Rectangular Entered: '),write(W),nl,
          write('Rectangular Area: '),write(Rectangular_Area).