Asalamualaikum…..Selamat berjumpa kembali pada tutorial mingguan(ehm….maksudnya). Kali ini kita akan mencoba membahas penggunaan Prolog dalam Looping.
Salah satu contoh soalnya adalah menghasilkan nilai pangkat dua (kuadrat) dari dua buah bilangan dengan nilai bawah (N1 = 6) sampai dengan nilai atas (N2 = 12).
Bagaimana prosedur pengoperasiannya dalam Prolog? Seperti biasa kita buat dulu coodingannya he5…. Berikut ini adalah contoh coodingnya :
output(N1,N2) :-N1>N2.
output(N1,N2) :- write(‘ kuadrat dari ‘),write(N1),write(‘ adalah ‘),Kuadrat is N1*N1,write(Kuadrat),nl,M is N1+1,output(M,N2).
Apa sih maksud cooding ini? Begini penjelasannya :
output(N1,N2) :-N1>N2.
Baris di atas maksudnya memberikan aturan bahwa nilai N1 lebih kecil dari nilai N2….. Ooooo begitu ya… trus baris ke dua maksudnya apa?
output(N1,N2) :- write(‘ kuadrat dari ‘),write(N1),write(‘ adalah ‘),Kuadrat is N1*N1,write(Kuadrat),nl,M is N1+1,output(M,N2).
Baris ke dua ini maksudnya output dari (N1,N2) ini adalah “kuadrat dari”, nilai N1,” adalah” lalu kita definisikan nilai kuadrat adalah N1*N1, lalu untuk nilai N2 merupakan hasil dari N1+1 hingga mencapai batasan atas yaitu N2=12 (nah disinilah fungsi loopingnya).
Untuk lebih jelasnya lebih enak langsung kita praktekan saja ke dalam Prolog. Seperti biasa kita tulis coodingannya di dalam notepad dan nanti di simpan dengan format namafile.pl seperti contoh pada gambar di bawah ini :
Nah kalau sudah selesai dan disimpan lalu kita coba consult ke dalam Prolog, lalu kita ujicoba coodingannya (moga-moga berhasil……) dengan cara mengetikkan :
Output(6,12).
Jangan lupa menambahkan “.” Nanti gagal lho kalau lupa, kalau berhasil maka hasilnya akan seperti gambar di bawah ini :
Alhamdulilah…. Ternyata berhasil he5……. Lanjut ke soal berikutnya yuk…
