listati da Turbo Prolog
listati da copiare e incollare su notes e salvare con "tutti i file",come file.PRO
richiamabili in ambiente Prolog

esci listaprolog.htm

/* reg3.pro */
/* richiesta dati numerici e uso finestra */
/* esegue operazioni su numeri inseriti */

domains
X,Z,E = integer
Y = real
clauses
goal
clearwindow,
makewindow(1,7,3,"",1,1,20,70),
attribute(3),
write("scrivi angolo intero..30:"),readint(X),
write("scrivi numero reale 12.7:"),readreal(Y),
write("scrivi intero 10,20,100.:"),readint(Z),
write("scrivi intero 2,3,4.....:"),readint(E),
Seno=sin(X*3.14/180),
Coseno=cos(X*3.14/180),
Tangente=tan(X*3.14/180),
Arcotangente=arctan(E),
Assoluto=abs(Y),
Arrotondato=round(Y),
Logaritmonaturale=ln(Z),
Logaritmodecinale=LOG(Z)/LOG(10),
Esponenziale=exp(E),
cursor(4,2),attribute(5),
write("seno di..........=",X,".....",Seno),
cursor(5,2),
write("coseno di....... =",X,".....",Coseno),
cursor(6,2),
write("tangente di......=",X,".....",Tangente),
cursor(7,2),
write("arcotangente di..=",E,".....",Arcotangente),
cursor(8,2),
write("assoluto di......=",Y,".....",Assoluto),
cursor(9,2),
write("arrotondato di...=",Y,".....",Arrotondato),
cursor(10,2),
write("esponenziale di..=",E,".....",Esponenziale),
keypressed.