<< Chapter < Page Chapter >> Page >

Ví dụ: “Turbo prolog 2.0”

  1. Symbol: Là một kiểu sơ cấp, có hình thức giống chuỗi ký tự. Hằng symbol có hai dạng: Dãy các chữ, số và dấu gạch dưới viết liên tiếp, ký tự đầu phải viết thường (chẳng hạn: telephone_number); Dãy các ký tự ở giữa một cặp hai nháy kép (giống như chỗi ký tự)
  2. Một số phép toán của các kiểu

Phép toán số học

Phép toán Ý nghĩa Kiểu của đối số Kiểu kết quả
+ Cộng hai số Integer, real giống kiểu đối số
- Trừ hai số Integer, real giống kiểu đối số
* Nhân hai số Integer, real giống kiểu đối số
/ Chia hai số Integer, real giống kiểu đối số
Mod Phép chia lấy phần dư Integer Integer
Div Phép chia lấy phần nguyên Integer Integer

Phép toán quan hệ

Phép toán Ý nghĩa Kiểu của đối số Kết quả
< Nhỏ hơn Char, integer, real, string Yes hoặc No
<= Nhỏ hơn hay bằng Char, integer, real, string Yes hoặc No
= Bằng Char, integer, real, string Yes hoặc No
> Lớn hơn Char, integer, real, string Yes hoặc No
>= Lớn hơn hay bằng Char, integer, real, string Yes hoặc No
<>hay>< Khác Char, integer, real, string Yes hoặc No

Các vị từ như các hàm toán học

Vị từ Ý nghĩa Kiểu của đối số Kiểu kết quả Ví dụ
Sin(X) Tính sin của X real real
Tan(X) Tính tang của X real real
Arctan(X) Tính arctang của X real real
Exp(X) Tính eX real real
Ln(X) Tính logarit cơ số e của X real real
Log(X) Tính Logarit cơ số 10 của X real real
SQRT(X) Tính căn bậc hai của X real real
ROUND(X) Cho ta số nguyên là số X được làm tròn, dấu là dấu của X real integer round(2.3)=2round(2.5)=3round(-2.5)=-2round(-2.6)=-3
TRUNC(X) Cho phần nguyên của số X, dấu là dấu của X real integer trunc(2.5)=2trunc(-2.6)=-2
ABS(X) Cho ta trị tuyệt đối của X real real
Random(X) Cho ta số thực X nằm trong khoảng [0, 1) real real
Random(Y, X) Cho ta số nguyên X nằm trong khoảng [0, Y) real integer

Toán tử NOT(X) : Nếu X là Yes thì NOT(X) là No và ngược lại.

Các kiểu dữ liệu do người lập trình định nghĩa

  1. Kiểu mẩu tin:

Cú pháp:<tên kiểu mẩu tin>= tên mẩu tin (danh sách các kiểu phần tử)

Ví dụ:

Domains

ten, tac_gia, nha_xb, dia_chi = string

nam, thang, so_luong = integer

dien_tich = real

nam_xb = nxb(thang, nam)

do_vat = sach(tac_gia, ten, nha_xb, nam_xb); xe(ten, so_luong); nha(dia_chi, dien_tich)

predicates

so_huu(ten,do_vat)

clauses

so_huu(“Nguyen Van A”, sach(“Do Xuan Loi”, “Cau truc DL”, “Khoa hoc Ky thuat”, nxb(8,1985))).

so_huu(“Le thi B”, xe(“Dream II”, 2)).

so_huu(“Nguyen Huu C”, nha(“3/1 Ly Tu Trong, tp Can Tho”, 100.5))

  1. Kiểu danh sách

Cú pháp:<tên kiểu danh sách>=<tên kiểu phần tử>*

Ví dụ:

Domains

intlist = integer*

Một danh sách là một dãy các phần tử phân cách nhau bởi dấu phẩy và đặt trong cặp dấu ngoặc vuông.

Ví dụ:

[]% Danh sách rỗng

[1,2,3] % Danh sách gồm ba số nguyên 1, 2 và 3.

Cấu trúc của danh sách bao gồm hai phần: Phần đầu là phần tử đầu tiên của danh sách và phần đuôi là một danh sách của các phần tử còn lại.

Danh sách được viết theo dạng [X|Y] thì X là phần tử đầu và Y là danh sách đuôi. Chẳng hạn trong danh sách [1,2,3]thì đầu là số nguyên 1 và đuôi là danh sách [2,3].

Trong danh sách cũng có thể dùng biến tự do, chẳng hạn ta có thể viết [_|Y] để chỉ một danh sách có đầu là một phần tử nào đó và có đuôi là danh sách Y.

Các hàm xuất nhập chuẩn

Xuất ra màn hình

  1. Write( Arg1, Arg2, … ,Argn) in ra màn hình giá trị của các đối số.
  2. Writef( Formatstring, Arg1, Arg2, … ,Argn) in ra màn hình giá trị của các đối số theo định dạng được chỉ định trong Formastring.

Trong đó Formastring là một chuỗi có thể là:

  • “%d”: In số thập phân bình thường; đối số phải là char hoặc integer.
  • “%c”: Đối số là một số integer, in ký tự có mã Ascci là đối số đó, chẳng hạn writef(“%c”,65) được A.
  • “%e”: In số thực dưới dạng lũy thừa của 10.
  • “%x”: In số Hexa; đối số phải là char hoặc integer.
  • “%s”: In một chuỗi hoặc một symbol.

Nhập vào từ bàn phím

  1. Readln(X): Nhập một chuỗi ký tự vào biến X.
  2. ReadInt(X): Nhập một số nguyên vào biến X.
  3. ReadReal(X): Nhập một số thực vào biến X.
  4. ReadChar(X): Nhập vào một ký tự vào biến X.

Kỹ thuật đệ quy

Đệ quy là kỹ thuật lập trình được sử dụng trong nhiều ngôn ngữ. Trong Turbo Prolog ta sử dụng đệ quy khi một vị từ được định nghĩa nhờ vào chính vị từ đó.

Như đã nói trong chương lập trình hàm, trong chương trình đệ quy phải có ít nhất một trường hợp dừng và lời gọi đệ quy phải chứa yếu tố dẫn đến trường hợp dừng. Trong Prolog, trường hợp dừng được thể hiện bằng một sự kiện, yếu tố dẫn đến trường hợp dừng thể hiện bằng một biến, liên hệ với biến ban đầu bởi một công thức.

Ví dụ 1: Tính n giai thừa.

Predicates

Facto (integer, integer)

Clauses

Facto(0,1):- !.

Facto(N, FactN) :- N>0, M = N – 1, facto(M, factM), factN = N*factM.

Ở ví dụ trên ta đã định nghĩa một vị từ dùng để tính giá trị giai thừa của một số tự nhiên, đối số thứ nhất là số cần tính giai thừa và đối số thứ hai dùng để nhận giá trị trả về.

Trường hợp dừng ở đây được xác đinh bởi sự kiện 0 giai thừa là 1.

Để tính N! ta tính M! với M= N-1. Yếu tố dẫn đến trường hợp dừng là biến M có giá trị bằng N-1.

Ví dụ 2: Xác định một phần tử trong danh sách các symbol

domains

symbol_list = symbol*

predicates

element1(integer,symbol_list,symbol)

element (integer,symbol_list,symbol)

clauses

% element1 không suy diễn ngược được

element1(1,[X|_],X).

element1(N,[_|L],Y):-M=N-1,

element1(M,L,Y).

% element có thể suy diễn ngược

element(1,[X|_],X).

element(N,[_|L],Y):-element(M,L,Y),

N=M+1.

Sự suy diễn thuận chiều là cho danh sách và vị trí, tìm được phần tử tại vị trí đó, chẳng hạn, nếu ta đưa vào goal element(2,[a,b,c,d],X) ta được X=b.

Sự suy diễn ngược ở đây là cho danh sách và phần tử, tìm được vị trí của phần tử đó, chẳng hạn, nếu ta đưa vào goal element(N,[a,b,c,d], b) ta được N=2.

Ví dụ 3: Sắp xếp một danh sách các số nguyên

domains

list=integer*

predicates

insert(integer,list,list)

sort(list,list)

clauses

insert(E,[],[E]).

insert(E,[A|B],[E,A|B]):-E<=A.

insert(E,[A|B],[A|C]):-E>A,insert(E,B,C).

sort([],[]).

sort([X|R1],L):-sort(R1,R),

insert(X,R,L).

Questions & Answers

how did you get 1640
Noor Reply
If auger is pair are the roots of equation x2+5x-3=0
Peter Reply
Wayne and Dennis like to ride the bike path from Riverside Park to the beach. Dennis’s speed is seven miles per hour faster than Wayne’s speed, so it takes Wayne 2 hours to ride to the beach while it takes Dennis 1.5 hours for the ride. Find the speed of both bikers.
MATTHEW Reply
420
Sharon
from theory: distance [miles] = speed [mph] × time [hours] info #1 speed_Dennis × 1.5 = speed_Wayne × 2 => speed_Wayne = 0.75 × speed_Dennis (i) info #2 speed_Dennis = speed_Wayne + 7 [mph] (ii) use (i) in (ii) => [...] speed_Dennis = 28 mph speed_Wayne = 21 mph
George
Let W be Wayne's speed in miles per hour and D be Dennis's speed in miles per hour. We know that W + 7 = D and W * 2 = D * 1.5. Substituting the first equation into the second: W * 2 = (W + 7) * 1.5 W * 2 = W * 1.5 + 7 * 1.5 0.5 * W = 7 * 1.5 W = 7 * 3 or 21 W is 21 D = W + 7 D = 21 + 7 D = 28
Salma
Devon is 32 32​​ years older than his son, Milan. The sum of both their ages is 54 54​. Using the variables d d​ and m m​ to represent the ages of Devon and Milan, respectively, write a system of equations to describe this situation. Enter the equations below, separated by a comma.
Aaron Reply
find product (-6m+6) ( 3m²+4m-3)
SIMRAN Reply
-42m²+60m-18
Salma
what is the solution
bill
how did you arrive at this answer?
bill
-24m+3+3mÁ^2
Susan
i really want to learn
Amira
I only got 42 the rest i don't know how to solve it. Please i need help from anyone to help me improve my solving mathematics please
Amira
Hw did u arrive to this answer.
Aphelele
hi
Bajemah
-6m(3mA²+4m-3)+6(3mA²+4m-3) =-18m²A²-24m²+18m+18mA²+24m-18 Rearrange like items -18m²A²-24m²+42m+18A²-18
Salma
complete the table of valuesfor each given equatio then graph. 1.x+2y=3
Jovelyn Reply
x=3-2y
Salma
y=x+3/2
Salma
Hi
Enock
given that (7x-5):(2+4x)=8:7find the value of x
Nandala
3x-12y=18
Kelvin
please why isn't that the 0is in ten thousand place
Grace Reply
please why is it that the 0is in the place of ten thousand
Grace
Send the example to me here and let me see
Stephen
A meditation garden is in the shape of a right triangle, with one leg 7 feet. The length of the hypotenuse is one more than the length of one of the other legs. Find the lengths of the hypotenuse and the other leg
Marry Reply
how far
Abubakar
cool u
Enock
state in which quadrant or on which axis each of the following angles given measure. in standard position would lie 89°
Abegail Reply
hello
BenJay
hi
Method
I am eliacin, I need your help in maths
Rood
how can I help
Sir
hmm can we speak here?
Amoon
however, may I ask you some questions about Algarba?
Amoon
hi
Enock
what the last part of the problem mean?
Roger
The Jones family took a 15 mile canoe ride down the Indian River in three hours. After lunch, the return trip back up the river took five hours. Find the rate, in mph, of the canoe in still water and the rate of the current.
cameron Reply
Shakir works at a computer store. His weekly pay will be either a fixed amount, $925, or $500 plus 12% of his total sales. How much should his total sales be for his variable pay option to exceed the fixed amount of $925.
mahnoor Reply
I'm guessing, but it's somewhere around $4335.00 I think
Lewis
12% of sales will need to exceed 925 - 500, or 425 to exceed fixed amount option. What amount of sales does that equal? 425 ÷ (12÷100) = 3541.67. So the answer is sales greater than 3541.67. Check: Sales = 3542 Commission 12%=425.04 Pay = 500 + 425.04 = 925.04. 925.04 > 925.00
Munster
difference between rational and irrational numbers
Arundhati Reply
When traveling to Great Britain, Bethany exchanged $602 US dollars into £515 British pounds. How many pounds did she receive for each US dollar?
Jakoiya Reply
how to reduced echelon form
Solomon Reply
Jazmine trained for 3 hours on Saturday. She ran 8 miles and then biked 24 miles. Her biking speed is 4 mph faster than her running speed. What is her running speed?
Zack Reply
d=r×t the equation would be 8/r+24/r+4=3 worked out
Sheirtina
Got questions? Join the online conversation and get instant answers!
Jobilize.com Reply

Get Jobilize Job Search Mobile App in your pocket Now!

Get it on Google Play Download on the App Store Now




Source:  OpenStax, Ngôn ngữ lập trình. OpenStax CNX. Jul 29, 2009 Download for free at http://cnx.org/content/col10783/1.1
Google Play and the Google Play logo are trademarks of Google Inc.

Notification Switch

Would you like to follow the 'Ngôn ngữ lập trình' conversation and receive update notifications?

Ask