xmedia

iterazione e calcoli media

/* media.pro */

domains

predicates
finestra
azione
fine

goal finestra,azione,fine.

clauses
 finestra:-
 makewindow(1,7,1,"",1,1,20,70).
 

 azione:-
  A=5,B=6,C=7,
  Somma=A+B+C,
  Media=Somma/3,
  write("somma=",Somma),nl,
  write("media=",Media),nl,
  write("premi Enter "),nl,
  readchar(_),
  clearwindow,
  beep.

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