Tutorial Practical Exercise chapter 6

Practical Exercise chapter 6 (Looping)

1. Tentukan sebuah predikat yang menampilkan nilai kuadrat dari integer N1 sampai N2, dimana N1=6 dan N2=12.

Jawab:

(a) Pertama buat file text baru, dan kemudian tuliskan source code berikut.

Writesquares(6):-write(36),nl. Merupakan perintah pertama yang akan dieksekusi oleh program. Karena N1 = 6, maka pada baris pertama yang ditulis adalah 36 sebagai hasil kuadrat dari 6.

Writesquares(N):-N>6, N1 is N-1,writesquares(N1),Nsq is N*N,write(Nsq),nl. Ini merupakan perintah perulangan (looping) yang akan dieksekusi. Disini nilai N harus lebih dari 6.

(b) Setelah itu simpan file text itu dengan nama exercise 6a dan berformat .pl

(c) Buka aplikasi ProLog Anda. Kemudian pada menu File, pilih Consult. Setelah itu carilah lokasi file exercise 6a.pl yang telah Anda buat

(d) Setelah itu akan muncul tampilan seperti dibawah

(e) Tuliskan perintah writesquares(12). Setelah itu akan muncul hasil kuadrat dari 6 sampai 12. Tampilannya seperti dibawah ini

Perhatikan bahwa hasil ditampilkan merupakan hasil kuadrat mulai dari N1=6 sampai N2=12

2. Tentukan sebuah predikat yang membaca serangkaian inputan oleh pengguna dan menampilkan semua sebelum baris baru atau karakter “?”

(a) Pertama buat file text baru, dan kemudian tuliskan source code berikut.

(b) Setelah itu simpan file text itu dengan nama exercise 6b dan berformat .pl

(c) Buka aplikasi ProLog Anda. Kemudian pada menu File, pilih Consult. Setelah itu carilah lokasi file exercise 6b.pl yang telah Anda buat

(d) Tuliskan perintah go. Kemudian tekan enter.

Setelah itu masukkan kata/kalimat(jika menggunakan spasi, sebaiknya diganti dengan underline (_))

(e) Jika pada kata atau kalimat yang Anda masukkan ada tanda tanya (?), maka ProLog hanya akan membaca kata/kalimat yang diketik sebelum tanda tanya

Perhatikan bahwa “so_much” tidak ikut terbaca oleh ProLog karena syarat yang diminta jika ada tanda tanya (?), maka ProLog akan menganggap program selesai.

3. Menggunakan klausa database Person pada bagian 6.3.1, tentukan profesi dari mereka yang berusia diatas 40 tahun.

(a) Pertama buat file text baru, dan kemudian tuliskan source code berikut:

Person(john,smith,45,london,doctor). Dan lainnya, merupakan database person.

Kemudian predicate ageprofessions, berguna untuk mencari profesi dari database yang objectnya berusia diatas 40 tahun.

"karena gambarnya kurang jelas, ini source odenya:

person(john,smith,45,london,doctor).
person(martin,williams,33,birmingham,teacher).
person(henry,smith,26,manchester,plumber).
person(jane,wilson,62,london,teacher).
person(mary,smith,29,glasgow,surveyor).

ageprofessions:-person(Forename,Surname,Age,_,Professions),Age>40,
write(Forename),write(' '),write(Surname),write(' '),write(Age),

write(' profession is '),write(Professions),nl,
fail.
ageprofessions.

(b) Setelah itu simpan file text itu dengan nama exercise 6c dan berformat .pl

(c) Buka aplikasi ProLog Anda. Kemudian pada menu File, pilih Consult. Setelah itu carilah lokasi file exercise 6c.pl yang telah Anda buat

(d) Setelah itu akan muncul tampilan seperti dibawah

(e) Tuliskan ageprofessions. Kemudian tekan enter, maka akan muncul tampilan seperti berikut:

Prolog telah menampilkan profesi dari Person yang memiliki usia diatas 40 tahun.

Sekian Tutorial kali ini.. semoga bermanfaat..!
Salam Super...!