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

esci listaprolog.htm

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