Sharecs.net
  • Trang chủ
  • Kho Tài Liệu – Báo Cáo
  • Thủ Thuật
    • Thủ thuật máy tính
      • Windows
      • MacOS
      • Linux
    • Thủ thuật internet
    • Thủ thuật phần mềm
  • Lỗi máy tính
    • Lỗi internet
    • Lỗi windows
    • Lỗi phần mềm
  • Lập Trình
    • Lập Trình Java
    • Lập trình Python
    • Lập Trình React Native
    • Code Hay
  • Linh Tinh
    • PhotoShop
    • Tải Video Wallpaper
    • Kho Tools
      • Cân Bằng Phương Trình Hóa Học
      • Custom Css Scrollbar – Render Code
      • Tạo Kí Tự Đặc Biệt Online
      • Tạo Deep Link
    • Tài Liệu – Luận Văn – Báo Cáo
    • Kho Theme Website WordPress
    • Phần Mềm
No Result
View All Result
  • Trang chủ
  • Kho Tài Liệu – Báo Cáo
  • Thủ Thuật
    • Thủ thuật máy tính
      • Windows
      • MacOS
      • Linux
    • Thủ thuật internet
    • Thủ thuật phần mềm
  • Lỗi máy tính
    • Lỗi internet
    • Lỗi windows
    • Lỗi phần mềm
  • Lập Trình
    • Lập Trình Java
    • Lập trình Python
    • Lập Trình React Native
    • Code Hay
  • Linh Tinh
    • PhotoShop
    • Tải Video Wallpaper
    • Kho Tools
      • Cân Bằng Phương Trình Hóa Học
      • Custom Css Scrollbar – Render Code
      • Tạo Kí Tự Đặc Biệt Online
      • Tạo Deep Link
    • Tài Liệu – Luận Văn – Báo Cáo
    • Kho Theme Website WordPress
    • Phần Mềm
No Result
View All Result
Sharecs.net
No Result
View All Result
Home Lập Trình Code Hay

Bài Tập Lập Trình Prolog Có Lời Giải – Hệ Chuyên Gia

by Nguyễn Tuấn
26/12/2021

Trong hệ chuyên gia chúng ta thường sử dụng ngôn ngữ lập trình Prolog, ngôn ngữ này thường được sử dụng trong lĩnh vực trí tuệ nhân tạo. Một chương trình Prolog là một cơ sở dữ liệu gồm các mệnh đề clause. Mỗi mệnh đề được xây dựng từ các vị từ predicat. Một vị từ là một phát biểu nào đó về các đối tượng có giá trị chân true hoặc fail. Hôm nay sharecs muốn giới thiệu tới các bạn một số mẫu bài tập căn bản để chúng mình học tập.

Mục Lục

  • Bài Tập Lập Trình Prolog Cơ Bản
    • Viết chương trình tính tổng từ 1 đến n chia hết cho 3
    • Viết chương trình tính tổng từ M đến N
    • Viết chương trình tính tổng các số chẵn từ 1 đến N
    • Viết chương trình tính tổng các số chia hết cho 3 từ 1 đến N
    • Viết chương trình tính tổng từ 1 đến N
    • Viết chương trình nhận biết số là chẵn hay lẻ
    • N giai thừa
    • Bài tập hợp (xâu)
    • Bài tập giao (xâu)
    • Bài tập giải phương trình Ax +B = C
    • Bài tập giải phương trình Ax +B = 0

Bài Tập Lập Trình Prolog Cơ Bản

Viết chương trình tính tổng từ 1 đến n chia hết cho 3
%chuong trinh tinh tong tu 1 den n CHIA HET CHO 3
predicates
	tong(integer,integer)
clauses
	tong(1,K) :-K=0, !.
	tong(N,K):-N mod 3 =0,
		N1 = N - 1,
		   tong(N1,K1),
		   K=K1+N.
	tong(N,K):- N mod 3 <> 0,
		N1 = N -1,
		tong(N1,K1),
		K = K1. %truong hop nay khong cong
Viết chương trình tính tổng từ M đến N
%chuong trinh tinh tong tu M den N
predicates
	tongMN (integer, integer, integer)
clauses
	tongMN (M, M, M) :- !.
	tongMN (M, N, K) :-
		    N1 = N - 1,
		    tongMN (M, N1, K1),
		    K = K1 + N.
goal
	write("cho M:"),readint(M),
	write("cho N:"), readint(N),
	tongMN(M,N,X),
	write("ket qua:",X).
Viết chương trình tính tổng các số chẵn từ 1 đến N
/* chuong trinh tinh tong cac so chan tu 1 den N   */
predicates
	tongchan(integer,integer)
clauses
	tongchan(1,0) :- !.
	tongchan(N,K):- N mod 2 = 0,
	   	   N1=N-1,
		   tongchan(N1,K1),
		   K=K1+N.
	tongchan(N,K):- N mod 2 = 1, 
		   N1 = N-1,
	   	   tongchan(N1,K1),
		   K = K1.
Viết chương trình tính tổng các số chia hết cho 3 từ 1 đến N
/* chuong trinh tinh tong cac so chia het cho 3 tu 1 den N   */
predicates
	tongba(integer,integer)
clauses
	tongba(1,0) :- !.
	tongba(N,K):- N mod 3 = 0,
	   	   N1=N-1,
		   tongba(N1,K1),
		   K=K1+N.
	tongba(N,K):- N mod 3 <> 0, 
		   N1 = N-1,
	   	   tongba(N1,K1),
		   K = K1.
goal
	write("cho mot so nguyen: "),
	readint(N),
	tongba(N,K),
	write("tong ba toi ", N),
	write(" bang: ",K).
Viết chương trình tính tổng từ 1 đến N
/* chuong trinh tinh tong tu 1 den N   */
predicates
	tong(integer,integer)
clauses
	tong(1,1):- !.
	tong(N,K):- N1 = N-1,
	   	   tong(N1,K1),
		   K = K1+N.
Viết chương trình nhận biết số là chẵn hay lẻ
predicates
	le(interger)
clauses
	chan(N) :- N mod 2 = 0,
		 wite(N, "chan").
	le(N) :- wite(N, "le").
N giai thừa
predicates
	gt(interger, real)
	gt(interger, real, interger, real)
clauses
	gt(N, K) :- gt(N, K, 1, 1).
	gt(N, K, I, P) :- I1 = I + 1,
			P1 = P*I,
			gt(N, K, I1, P1).
	gt(N, K, N, K).
Bài tập hợp (xâu)
domains
	xau = interger*
predicates
	hop(xau, xau, xau)
clauses
	hop([], L, L). %khi lay het gia tri thi dung
	hop([N:T], L2, [N:L3]) :- hop(T, L2, L3).
Bài tập giao (xâu)
domains
	xau = interger*
predicates
	thuoc(xau, xau, xau)
	giao(xau, xau, xau)
clauses
	giao(_, _, [])
	hop([], L, L). %khi lay het gia tri thi dung
	hop([N:T], L2, [N:L3]) :- hop(T, L2, L3).
Bài tập giải phương trình Ax +B = C
hệ chuyên gia lập trình prolog
lập trình prolog
Bài tập giải phương trình Ax +B = 0
predicates
	pt(real, real)
clauses
	pt(0,0) :- write("phuong trinh vo so nghiem").
	pt(0,_) :- write("phuong trinh vo nghiem").
	pt(A, B) :- X=-B/A,
		  write("Nghiem la: ", X).
goal
	write("Cho gia tri A:"),
	readrea(A),
	write("Cho gia tri B:"),
	readrea(B),
	pt(A,B).

Cảm ơn các bạn đã ghé thăm. Chúc các bạn thành công!

5/5 - (2 bình chọn)
Tags: Hệ chuyên gia - Prolog
ShareSendTweetShare

Cùng chuyên mục

Bài Tập Lập Trình Prolog Có Lời Giải – Hệ Chuyên Gia

Trắc Nghiệm Hệ Chuyên Gia – PROLOG Có Đáp Án

08/01/2022
63
Load More
Subscribe
Notify of
guest

guest

3 Comments
Newest
Oldest Most Voted
Inline Feedbacks
View all comments

Tài nguyên

Cân bằng phương trình phản ứng hóa

Tạo deep link

Custom Css Scrollbar – Render Code

Bài Viết Nổi Bật

  • Bài Tập Code Python Đơn Giản Có Lời Giải – Phần 1

    Bài Tập Code Python Đơn Giản Có Lời Giải – Phần 1

    1 shares
    Share 0 Tweet 0
  • Download Video Wallpaper Agatsuma Zenitsu – Anime Kimetsu No Yaiba

    45 shares
    Share 0 Tweet 0
  • Hướng Dẫn React Native Build apk File

    0 shares
    Share 0 Tweet 0
  • 500 Câu Trắc Nghiệm Mạng Máy Tính Phần 1 Có Đáp Án

    0 shares
    Share 0 Tweet 0
  • 500 Câu Trắc Nghiệm Mạng Máy Tính Phần 2 Có Đáp Án

    0 shares
    Share 0 Tweet 0
  • Trending
  • Comments
  • Latest
Download Video Wallpaper Agatsuma Zenitsu – Anime Kimetsu No Yaiba

Download Video Wallpaper Agatsuma Zenitsu – Anime Kimetsu No Yaiba

19/02/2023
Bài Tập Code Python Đơn Giản Có Lời Giải – Phần 1

Bài Tập Code Python Đơn Giản Có Lời Giải – Phần 1

31/08/2020
500 Câu Trắc Nghiệm Mạng Máy Tính Phần 1 Có Đáp Án

500 Câu Trắc Nghiệm Mạng Máy Tính Phần 1 Có Đáp Án

23/08/2021
Hướng dẫn cài đặt React Native trên Windows – Phần 1

Hướng Dẫn React Native Build apk File

14/11/2020
Thư viện đồ họa trong Python – Source Code Bắn Pháo Hoa

Thư viện đồ họa trong Python – Source Code Bắn Pháo Hoa

18/03/2023
Chia sẻ quá trình để xây dựng 1 group Facebook cho newbie

Chia sẻ quá trình để xây dựng 1 group Facebook cho newbie

18/03/2023
Tính tổng – Two Sum Leetcode

Tính tổng – Two Sum Leetcode

14/03/2023
So sánh If Else và Switch Case

So sánh If Else và Switch Case

21/02/2023

Phản hồi gần đây

  • luan trong Thư viện đồ họa trong Python – Vẽ doraemon
  • tuan trong Nhận Diện Chó Mèo Python – Tensorflow – Neural Network – Deep Learning
  • Lê Thị Vân trong Fake Giấy Tờ Xác Minh Doanh Nghiệp Trên Facebook
  • Crom trong Cách Kích Hoạt Key Win 11 Bản Quyền –Active Win 11 – Win 10 Free

Donate

Mời Share’cs ly Cafe 

Liên hệ quảng cáo

Email: Sharecs.net@gmail.com

Hợp tác nội dung: Sharecs rất vinh dự được mời các bạn đóng góp những sản phẩm thiết kế, thủ thuật hay những chia sẻ hữu ích… để cùng chia sẻ rộng rãi tới mọi người!

Giới Thiệu

Sharecs.net là một website/blog cá nhân, chuyên chia sẻ những kiến thức xoay quanh công nghệ như máy tính, internet, phần mềm, lập trình,... Mình hi vọng, Sharecs sẽ mang lại những kiến thức mà bạn chưa từng được học trên ghế nhà trường!

  • Giới Thiệu & Liên Hệ
  • Chính Sách Bảo Mật

CopyRight By Sharecs.net DMCA.com Protection Status

No Result
View All Result
  • Trang chủ
  • Kho Tài Liệu – Báo Cáo
  • Thủ Thuật
    • Thủ thuật máy tính
      • Windows
      • MacOS
      • Linux
    • Thủ thuật internet
    • Thủ thuật phần mềm
  • Lỗi máy tính
    • Lỗi internet
    • Lỗi windows
    • Lỗi phần mềm
  • Lập Trình
    • Lập Trình Java
    • Lập trình Python
    • Lập Trình React Native
    • Code Hay
  • Linh Tinh
    • PhotoShop
    • Tải Video Wallpaper
    • Kho Tools
      • Cân Bằng Phương Trình Hóa Học
      • Custom Css Scrollbar – Render Code
      • Tạo Kí Tự Đặc Biệt Online
      • Tạo Deep Link
    • Tài Liệu – Luận Văn – Báo Cáo
    • Kho Theme Website WordPress
    • Phần Mềm

CopyRight By Sharecs.net DMCA.com Protection Status