PROGRAM SEDERHANA MENGGUNAKAN STRAWBERRY PROLOG

?-

  window( title("KOTAK"), pos(500, 200), size(300, 300)).

win_func(paint):-

pen(3 ,rgb(255, 0, 0)),

line(10, 10, 270, 10),

line(10, 70, 270, 70),

line(10, 135, 270, 135),

line(10, 200, 270, 200),

line(10, 250, 270, 250),

line(10, 10, 10, 250),

line(70, 10, 70, 250),

line(135, 10, 135, 250),

line(205, 10, 205, 250),

line(270, 10, 270, 250),

brush(rgb(255, 0, 0)),

ellipse(20, 20, 60, 60),

brush(rgb(255, 100, 0)),

ellipse(80, 20, 125, 60),

brush(rgb(255, 150, 190)),

ellipse(145, 20, 195, 60),

brush(rgb(255, 220, 160)),

ellipse(215, 20, 260, 60),

brush(rgb(0, 255, 0)),

ellipse(20, 80, 60, 125),

brush(rgb(0, 255, 100)),

ellipse(80, 80, 125, 125),

brush(rgb(0, 255, 200)),

ellipse(145, 80, 195, 125),

brush(rgb(200, 225, 140)),

ellipse(215, 80, 260, 125),

brush(rgb(0, 0, 255)),

ellipse(20, 145, 60, 190),

brush(rgb(0, 100, 255)),

ellipse(80, 145, 125, 190),

brush(rgb(100, 100, 255)),

ellipse(145, 145, 195, 190),

brush(rgb(200, 200, 255)),

ellipse(215, 145, 260, 190),

brush(rgb(150, 150, 150)),

ellipse(20, 210, 60, 240),

brush(rgb(255, 70, 120)),

ellipse(80, 210, 125, 240),

brush(rgb(50, 200, 0)),

ellipse(145, 210, 195, 240),

brush(rgb(50, 200, 150)),

ellipse(215, 210, 260, 240).

PENJELASAN

•   “?-“ adalah bentuk awal jika kita hendak membuat program di Starwberry Prolog
• -window( title("KOTAK"), pos(500, 200), size(300, 300)).Kalimat tersebut berfungsi untuk membuat sebuah jendela tampilan yang bernama KOTAK, berukuran 300x300 dengan posisi berada x=500 dan y=200 di layar kita
• win_func(paint):-Kalimat tersebut untuk mendeklarasikan fungsi paint
•  pen(3 ,rgb(255, 0, 0)),diatas berfungsi sebagai penanda bahwa kita akan menggunakan sebuah garis yg berketebalan “3” dengan warna “red”, berwarna “red” karena hanya warna red lah yg memiliki nilai, sedangkan warna lainnya memiliki nilai “0” alias nihil
• line(10, 10, 270, 10),statement disamping berfungsi untuk membuat sebuah garis, angka 10 pertama sebagai titik x1, 10 berikutnya sebagai y1, 270 sebagai x2 dan 10 terakhir sebagai y2.

• brush(rgb(255, 0, 0)),ellipse(20, 20, 60, 60),fungsi brush merupakan kalimat untuk mengisi warna pada fungsi dibawah kalimat brush.Ellipse merupakan sebuah fungsi untuk membuat lingkaran dengan cara kerja yang hampir sama dengan line, hanya saja angka2 pada ellipse sebenarnya akan membentuk sebuah persegi tetapi akan ditampilkan sebagai lingkaran.Karena ellipse berada dibawah brush, maka lingkaran tersebut akan berwarna merah.

OUTPUT