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

esci listaprolog.htm

/* media3.pro */
/* richiesta dati interi */
/* calcola media aritmetica */
/* formattazione stampa dati con WRITEF */

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 numero intero="),readint(Intero),
Somma1=Somma+Intero,
writef("% somma parziale=",Somma1),nl,
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,
writef("% media =",Media),nl,nl.
fine:-
write("fine prova:premi Enter "),nl,
readchar(_),
clearwindow.