Một số ví dụ về lập trình Prolog

**trungkiencnt** · 19-11-2007 18:32

Đây là những ví dụ mà Mr Giang cho chúng ta sáng nay! Bạn có thể tham khảo ở file đính kèm bên dưới.

CÁC CHỦ ĐỀ KHÁC:

Bộ cài đặt Prolog V2.0 chạy trên nền DOS (12/11/2007)
Giáo trình Trí tuệ nhân tạo (19/06/2007)
Ebook trí tuệ nhân tạo ( AI ) - Tiếng Việt (30/11/2007)
Mấy bác 45 ui up cho em xin mấy...... (22/10/2008)
Nội Dung ôn Tập Môn Trí Tuệ Nhân Tạo (01/12/2007)
Giáo trình trí tuệ nhân tạo - New (30/11/2007)
Chuyển nhà !!! (22/04/2010)
Các anh ơi giúp dùm em tìm slide hay ebook nói về phân lớp kNN... (28/04/2010)
giải bài tập Trí tuệ nhân tạo của Kiên Chuối (02/12/2007)

**nữ tu sĩ** · 19-11-2007 20:25

thanks pác Kiên chuối nhé.Hum đó đi thực hành wue^n hok cop về.............hi hi.............

**truong12a62009** · 30-11-2007 15:18

Ai có đề cương câu hỏi Trí tuệ Post lên cái ?

**Duyphongcnt** · 01-12-2007 07:55

môn này không có lý thuyết trong đề thi, các bác yên tâm mà ôn phần bài tập thôi..

**truong12a62009** · 02-12-2007 10:43

Kiểm tra số nguyên tố như sau

predicates
pro(integer)
kt(integer,integer)
loop(integer,integer,integer)

clauses

kt(N,KT1):-N=1,KT1=1.
kt(N,KT1):-N>1,M=N-1,loop(N,M,KT2),KT2=KT1.
loop(_,M,KT2):-M=1,KT2=1.
loop(N,M,KT2):-M>1,U=N/M,V=round(N/M),U=V,KT2=0.
loop(N,M,KT2):-M>1,U=N/M,V=round(N/M),U<>V,K=M-1,loop(N,K,KT3),KT2=KT3.
pro(T):-T=1,write("Is Primes!").
pro(T):-T=0,write("Not Is Primes!").
goal
clearwindow,write("N= "),readint(N),kt(N,T),pro(T).

//Có thể dùng hàm "mod" de kiểm tra sự chia hết hay không.

**bk04nb** · 02-12-2007 19:59

o`. Giải tiếp bài này nhé. Cũng tìm số nguyên tố. Nhưng liệt kê các số nguyên tố trong khoản N1 đến N2.
Bài 2. Tương tự nhưng với thuật toán Fibonaci. Hiển thị các số fibo theo thứ tự từ N1 đến N2

**trungkiencnt** · 02-12-2007 20:20

/*Chuong trinh kiem tra nguyen to*/
predicates
kt(integer,integer)
tieptuc(integer,real,real,integer)
clauses
kt(1,_):-write("Day la so nguyen to").
kt(2,_):-write("Day la so nguyen to").
kt(N,M):-N1=N-1,N2=M/N1,N3=round(M/N1),tieptuc(N1,N2,N3,M).
tieptuc(_,N2,N3,_):-N2=N3, write("Day khong phai la so nguyen to").
tieptuc(N1,N2,N3,M):-N2<>N3,kt(N1,M).
goal
clearwindow,write("Nhap N:"),readint(N),kt(N,N).

/*Chuong trinh tinh to hop chap K cua N*/
predicates
gt(real,real)
tohop(real,real,real)
clauses
gt(0,1):-!.
gt(N,Kq):-N1=N-1,gt(N1,Kq1),Kq=N*Kq1.
tohop(N,K,C):-gt(N,Ngt),gt(K,Kgt),Nk=N-K,gt(Nk,Nkgt),C=Ngt/(Kgt*Nkgt).
goal
write("nhap N="),readreal(N),
write("nhap K="),readreal(K),
tohop(N,K,C),
write("to hop chap ",K," cua ",N," la ",C)

Chủ đề: Một số ví dụ về lập trình Prolog

LinkBack

Công Cụ