tabella1

tabulazione e formato

/* tabella1.pro */
/* tabulazione dati */

domains
 A,B,C,X = integer

predicates
 prepara
 azione(X)
 opera(C)
  

 goal
 prepara,
 azione(X),
 C=X,
 opera(C).
 

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):-
   C>0,!,
   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).