home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 01 / tracer / fakult.pro next >
Encoding:
Prolog Source  |  1988-11-01  |  586 b   |  40 lines
  1.  
  2. /* Testprogramm zur Demonstration des TRACER-Programmes  */
  3. /*                F A K U L T                            */
  4.  
  5. DOMAINS
  6.   x,y = integer
  7.  
  8. DATABASE  
  9.   /* Leer !!! */
  10.  
  11. PREDICATES
  12.   fakult(x,y)
  13.   los
  14.   ton(x)
  15.  
  16. GOAL
  17.   los.
  18.  
  19. CLAUSES
  20.  
  21. los:-
  22.   write("Beliebige Taste betätigen!"),readchar(_),nl,
  23.   fakult(6,Ergebnis),
  24.   write(Ergebnis).
  25.   
  26. fakult(1,1).
  27. fakult(X,Rest) :-
  28.   X>0 ,
  29.   X1=X-1,
  30.   write("Beliebige Taste betätigen!"),readchar(_),nl,
  31.   ton(X1),
  32.   fakult(X1,FakultX1),
  33.   Rest=X*FakultX1.
  34.  
  35. ton(0).
  36. ton(M):-
  37.   M1=M-1,
  38.   beep,
  39.   ton(M1).
  40.