Program Bintang

Nah, disini ane bakalan kasih tau program untuk membuat sebuah tumpukkan bintang :D

1. Pertama, buat sebuah predicates

    loopa(integer,integer)
    loopb(integer,integer)



2. Selanjutnya, buatlah sebuah goal internal
 
    makewindow(1,7,7,"Bintang",0,0,20,60),
    readint(A), loopa(A,1).

"makewindow" itu berfungsi untuk membuat sebuah window atau jendela baru, sehingga ketika di run akan program akan menampilakan jendela baru yang kosong.


3. Kemudian, buat clauses

    loopa (A,B):-
    A>0,
    loopb(B,1),nl,
    C=A-1,
    D=B+1,
    loopa (C,D);
    A=0,nl.

    loopb (X,Z):-
    X>0,
    write("*"),
    Y=X-1,
    W=Z+1,
    loopb(Y,W),
    X=0.

tampilan akhirnya seperti ini gan

4. Terakhir tinggal menekan tombol Alt+R untuk menjalankan programnya dan akan menampilkan hasil seperti berikut :

dan kalau kita menginputkan angka "10" pada program, maka akan muncul seperti ini

Sekian ilmu yang bisa ane berikan kepada kalian semua, semoga bermanfaat gan.