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

esci listaprolog.htm

domains
Somma,Prodotto,Differenza,A,B,C=integer
Quoziente,Radice=real

predicates
azione
goal azione.

clauses
azione:-
makewindow(1,2,3,"prove",0,0,15,50),nl,
write("scrivi numero intero="),readint(A),nl,
write("scrivi numero intero="),readint(B),nl,
Somma=(A+B),
Prodotto=(A*B),
Differenza=(A-B),
cursor(5,10), /*riga colonna*/
write("somma di ",A," + ",B,"=",Somma),nl,
cursor(6,10),
write("prodotto =",Prodotto),nl,
cursor(7,10),
write("differenza=",Differenza),nl,
Quoziente=(A/B),
cursor(8,10),
write("quoziente =",Quoziente),nl,
write("---------------------------"),nl,
C=100,
Radice=sqrt(C),nl,
write("radice quadrata di ",C," = ",Radice).