Pada kesempatan kali ini , ilmu yang saya dapat dari Lab
universitas gunadarma yaitu tentang Pemrograman Strawberry Prolog , pada tugas
Laporan akhir saya disuruh untuk membuat pemandagan Gunung menggunakan
Strawberry prolog , buat yang belum tahu tentang strawberry prolog ini saya
jelaskan secara singkat sajah , Prolog adalah bahasa pemrograman logika atau
disebut juga sebagai bahasa non-procedural. Nama Prolog merupakan singkatan
dari “Programming in Logic“. Ide untuk mengembangkan pemrograman dalam logika,
pertama kali dilakukan oleh Robert Kowalski di Edinburgh, Skotlandia pada tahun
1970-an. Berbeda dengan bahasa pemrograman yang lain, yang menggunakan
algoritma konvensionl sebagai teknik pencariannya seperti pada Delphi, Pascal,
Basic, Cobol dan bahasa pemrograman yang sejenisnya, maka prolog menggunakan
teknik pencarian yang di sebut heuristik (heutistic) dengan menggunakan pohon
logika.
Listing Progamnya :
?-
window( _,_,win_func(),"Gunung_GUMDI",0,0,800,600).
win_func(paint):-
%Background/Langit
pen(0,rgb(0,200,255)),
brush(rgb(0,204,255)),
rect(0,0,800,600),
%Tanah1
pen(0,rgb(102,204,0)),
brush(rgb(102,204,0)),
rect(0,343,790,560),
%Gunung
pen(10,rgb(129,129,129)),
brush(rgb(129,129,129)),
fill_polygon(415,340,785,340,583,135),
pen(10,rgb(129,129,129)),
brush(rgb(129,129,129)),
fill_polygon(0,343,400,343,200,137),
%Jalan
pen(0,rgb(128,128,128)),
brush(rgb(80,80,80)),
fill_polygon(380,345,400,345,300,560,200,560),
pen(3,rgb(204,255,255)),
line(390,345,250,560),
%Matahari
pen(5,rgb(250,250,0)),
line(495,35,575,125),
line(535,25,535,135),
line(575,35,495,125),
line(480,80,590,80),
pen(5,rgb(0,204,255)),
brush(rgb(255,255,0)),
ellipse(495,40,575,120),
%Sawah1
pen(10,rgb(75,65,30)),
brush(rgb(75,65,30)),
rect(420,400,615,470),
pen(3,rgb(35,65,0)),
line(435,415,445,425),
line(445,425,455,415),
line(445,410,445,425),
line(505,415,515,425),
line(515,425,525,415),
line(515,410,515,425),
line(575,415,585,425),
line(585,425,595,415),
line(585,410,585,425),
line(435,455,445,465),
line(445,465,455,455),
line(445,450,445,465),
line(505,455,515,465),
line(515,465,525,455),
line(515,450,515,465),
line(575,455,585,465),
line(585,465,595,455),
line(585,450,585,465).
Output Progamnya :
