listati da Prolog2
listati da copiare e incollare su notes e salvare come file.PRO
richiamabili in ambiente Prolog

esci listaprolog.htm

/* 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).