PROLOG SWI perulangn bintang

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

loopb(D):-
(D>0,write('*'),
B is D-1,
loopb(B);
D=0,write("")).

perulangan:-
    write('=====perulangan====='),nl,
    write('jumlah perulangan:'),read(A),loopa(A,5).

Penjelasan perulangan proloc SWI

Loopa                        : loop yang memungkinkan satu set instruksi akan dieksekusi tetap beberapa kali

Loopb                        : loop yang memungkinkan satu set instruksi akan dieksekusi tetap beberapa kali

Write             : Perintah write digunakan untuk menuliskan output

Read               :Perintah read digunakan untuk menerima input, dengan posisi cursor