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

esci listaprolog.htm

/* media1.pro */
/* richiesta dati interi */
/* calcola media aritmetica */

nowarnings

domains
predicates
finestra(integer)
fine
azione(integer,integer,integer)


goal finestra(X),azione(X,0,X),fine.

clauses
finestra(X):-
makewindow(1,7,1,"",1,1,20,70),
write("indica numeri da inserire "),
readint(X),clearwindow.

azione(C,Somma,X):-
C>0,!,
write("scrivi intero="),readint(Intero),
Somma1=Somma+Intero,
write("somma parziale=",Somma1),nl,
C1=C-1,
azione(C1,Somma1,X).
azione(0,Somma1,X):-
Media=Somma1/X,nl,
write("media aritmetica=",Media),nl,nl.

fine:-
write("fine prova:premi Enter "),nl,
readchar(_),
clearwindow.