home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL23.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-01  |  620 b   |  23 lines
  1.               /* Program 23 */
  2. domains
  3.     person      = p(name,age,telno,job)
  4.     age         = integer
  5.     telno ,name,job = string
  6. predicates
  7.     readperson(person)
  8.     run
  9. goal
  10.     run.
  11. clauses
  12.     readperson(p(Name,Age,Telno,Job)):-
  13.         write("Which name ? "),readln(Name),
  14.         write("Job ?"),readln(Job),
  15.         write("Age ?"),readint(Age),
  16.         write("Telephone no ?"),readln(Telno).
  17.     run:-
  18.         readperson(P),nl,write(P),nl,nl,
  19.         write("Is this compound object OK (y/n)"),
  20.         readchar(Ch),Ch='y'.
  21.     run:-
  22.         nl,nl,write("Alright, try again"),nl,nl,run.
  23.