Kuis 1,Bahasa Pemrograman

1. Program mengubah suatu bilangan desimal positif menjadi list yang berisi bentuk BINERnya.

• SCHEME

(define (listbiner n)

(if (= n 0) empty

(append (biner (floor(/ n 2)))(list (modulo n 2)))

)

)

• PROLOG

  

listbiner(0,[]):- !.

listbiner(N,X):-

T is // N 2,

listbiner(T,Y),

M is N mod 2,

(append(Y, [M],X).

2. Program mengambil bagian depan suatu list setelah dibelah 2. Jika panjang list ganjil, bulatkan ke bawah.

• PROLOG

ada 2 fungsi, yang pertama 'urusin dulu' PANJANG LIST

selanjutnya ambil setengah bagian yang terdepan, -nah lhoooo?:(

3. Program banyaknya bilangan yang dibagi oleh bilangan yang habis dibagi bilangan tertentu.

?- hitung(2,[1,2,3,4,5,6,7],K).

K=3

• PROLOG