xmedia1

iterazione e calcoli media

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