note1

tabulazione e formato

/* note1.pro */
/* attivazione sonora */

domains
C,Durata,Frequenza = integer

predicates
 finestra
 azione(C,Durata,Frequenza)
  

 goal
 finestra,
 Frequenza=500,
 Durata=50,
 azione(10,Durata,Frequenza).
 

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

 azione(C,Durata,Frequenza):-
   C>0,!,
   sound(Durata,Frequenza),
   write("durata...",Durata,"\t..frequenza=",
   Frequenza),nl,
   C1=C-1,
   Durata1=Durata+10,
   Frequenza1=Frequenza+50,
   azione(C1,Durata1,Frequenza1).