home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / AIA2.PRO < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  58 lines
  1.  
  2. domains
  3.   city=string
  4.   kilo_meter=integer
  5.   
  6. database
  7.   distance(city,city,kilo_meter)
  8.   
  9. predicates
  10.   go
  11.   get_input(string)
  12.   first_comparison
  13.   second_comparison
  14.   print
  15.   compare(integer,integer)
  16.   comparison(string,string)
  17.  /* store(integer)*/
  18.   
  19. goal
  20.   makewindow(1,7,7," ",0,0,25,80),
  21.   go.
  22.   
  23. clauses
  24.   go:-
  25.     consult("route.dat"),
  26.     get_input(_),!,
  27.     retract(distance(X,City,Length)),
  28.     first_comparison,
  29.     second_comparison,
  30.     print,
  31.     fail.
  32.   get_input(X):-
  33.     write("Enter starting point"),nl,
  34.     readln(X).
  35.   first_comparison:-
  36.     distance(X,City2,Distance),
  37.     compare(_,_),
  38.     fail.
  39.   second_comparison:-
  40.     distance(City1,X,Distance),
  41.     compare(_,_),
  42.     fail.
  43.   print:-
  44.     !,
  45.     distance(City1,City2,Length),
  46.     comparison(_,_).
  47.   compare(Length,Distance).
  48.   /*  Length>Distance, 
  49.     Store(_).
  50.   Store(Distance).
  51.     free(Length),
  52.     Length=Distance.*/
  53.   comparison(City1,City2):-
  54.     City1=X,
  55.     write(City2),
  56.     free(X)σIASS1  BAK !ºσEST1   BAK z!¼OTEST1   PAS π!¡ÇAIASS1  PAS      !«WσECND   BAK "    !┤)
  57. SECND   PAS ╙!╖º    AIPBM1  PAS µ!║0AIPBM1D CHT Ü!└σIPBM1  BAK É!┴ÇFLOWA   CHT ╚ä¬
  58. ╟FLOWB   CHT æ⌐ñ╦èAIPBM1A CHT !╧AIPBM1B CHT <!╨AIPBM1C CHT w!╥AIPBM1A IMG █á╘AIPBM1B IMG 0 !╒AIPBM1C IMG w!╫AIPBM1D IMG Ñ!┘