Menggambar Rumah dengan program Strawberry Prolog

Assalamu'alaikum warahmatullahi wabarakatuh

Whaddup kawan blogger, pada postingan kali ini saya mau sharing source code program C hasil dari praktikum Pengantar Kecerdasan Buatan (Artificial Intelligence)  di Kampus nih.

Software: Strawberry Prolog
Bidang   : Artificial Intelligence

Listing Program


?-

  brush(system_color(window)),

  window(_,_,win_func(_),"rumah andi",200,200,300,300).

win_func(paint):-

  pen(5,rgb(0,0,0)),

% membuat bagian rumah

  line(75,25,25,100),

  line(75,25,125,100),

  line(75,25,200,25),

  line(200,25,250,100),

  line(25,100,250,100),

  line(25,100,25,200),

  line(125,100,125,200),

  line(250,100,250,200),

  line(25,200,250,200),

% membuat pintu rumah

  line(50,150,50,200),

  line(100,150,100,200),

  line(50,150,100,150),

% membuat jendela rumah

  line(145,115,145,145),

  line(175,115,175,145),

  line(145,115,175,115),

  line(145,145,175,145),

fail.

Output Program

Semoga postingan ini bermanfaat :)

Wassalamu'alaikum warahmatullahi wabarakatuh