tabella2

tabulazione e formato

/* tabella2.pro */
/* tabulazione dati */
/* richiesta numero prove da eseguire */
/* imposta CICLO ripetitivo che dura fino */
/* alla condizione imposta di Contatore<PROVE */
/* o Contatore <> da Prove */

domains
 A,B,C,X,N = integer

predicates
 prepara
 azione(X)
 opera(C,N)
  

 goal
 prepara,
 azione(X),
 N=X+1, /* numero prove da eseguire */
 C=1, /* inizio contatore */
 opera(C,N).
 

clauses
 prepara:-
  makewindow(1,7,1,"finestra lavoro",1,1,20,70).
  azione(X):-
  write("scrivi numero prove da eseguire:"),
  readint(X),
  clearwindow().
  

  opera(C,N):-
   C<>N,!,     /* ripete finche C<>N */
               /* C<N o minore di N */
   attribute(3),
   write("prova numero....",C ),
   write("..scrivi un numero intero "),readint(B),
   Quadrato=B*B,
   attribute(5),
   write("quadrato......=",Quadrato),nl,
   Radice=sqrt(B),
   write("radice........=",Radice),nl,
   Log10=log(B)/log(10),
   write("logaritmo10...=",Log10),nl,
   sound(100,600),
   write("---------------------------------"),
   A1=C+1,nl,
   opera(A1,N).