home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl07.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
453b
|
20 lines
/* Program 7 */
/*
try entering "Albert" to the Please type a
name prompt
*/
predicates
reference(symbol,symbol)
goal
write("Please type a name :"),
readln(The_Name),
reference(The_Name,Phone_No),
write(The_Name,"'s phone number is ",Phone_No),nl.
clauses
reference("Albert", "01-123456").
reference("Betty", "01-569767").
reference("Carol", "01-267400").
reference("Dorothy","01-191051").