ch12ex07.pro

来自「prolog,人工智能推理程序,运行环境prolog」· PRO 代码 · 共 34 行

/*
   Turbo Prolog 2.0 Chapter 12, Example Program 7
   
   Copyright (c) 1986, 88 by Borland International, Inc
   
*/
   
domains
   person = p(name, age, telno, job)
   age = integer
   telno, name, job = string

predicates
   readperson(person)
   run

goal
   run.

clauses
   readperson(p(Name, Age, Telno, Job)) :-
      write("Which name ? "), readln(Name),
      write("Job ?"), readln(Job),
      write("Age ?"), readint(Age),
      write("Telephone no ?"), readln(Telno).

   run :-
      readperson(P), nl, write(P), nl, nl,
      write("Is this compound object OK (y/n)"),
      readchar(Ch), Ch='y'.

   run :-
      nl, nl, write("Alright, try again"), nl, nl, run.