Program Kuadrat

Kali ini ane bakalan share tentang membuat program pengkuadratan bilangan pada software Turbo Prolog.
Selamat menyimak gan!

1. Buat predicates
    loop (integer,integer)

2. Buat clauses
    loop (N,B):-
    N<=B,
    M=N+1,
    Kuadrat=N*N,
    write (N," dikuadratkan menjadi ",Kuadrat),nl,
    loop(M,B).

3. Buat goal
    makewindow(1,5,7,"Kuadrat Bilangan",0,0,20,60),
    write("Input nilai batas bawah : "), readint(A),nl,
    write("Input nilai batas atas : "), readint(B),nl,
    loop(A,B).

4. Tekan Alt+R untuk menjalankan programnya

Kalau kurang jelas, tinggal klik imagenya gan. Sekian dari ane, semoga bermanfaat.