liste2

gestione ricerca dati entro limiti indicati

/* classi3.mar */
/* stampa elementi entro limiti assegnati */
/* valori interi  */
/* GOAL:run(integer,integer) */

nowarnings
domains
predicates
azione(integer,integer)
tasto
dati(symbol,integer)
run(integer,integer)
clauses
run(P,Q):-azione(P,Q).
 azione(P,Q):-
 makewindow(1,5,1,"",1,1,20,78),
 write("compresi tra ",P,"\t",Q),nl, 
 dati(X,A),
 A>=P,A<=Q,
 write(X,"\t",A),nl,fail;tasto.
 

 tasto:-
 makewindow(3,3,2,"",20,60,3,15),
 write("premi enter"),
 readchar(_),removewindow,
 gotowindow(1),clearwindow.
 

 dati(mario,5).
 dati(luigi,7).
 dati(anna,12).
 dati(aldo,23).
 dati(alvise,43).
 dati(alcide,34).
 dati(basso,31).
 dati(neri,13).
 dati(verdi,49).
 dati(maria,5).
 dati(luisa,7).
 dati(grassi,12).
 dati(bassi,23).
 dati(vera,43).
 dati(pasio,34).
 dati(grandi,31).
 dati(rossi,13).
 dati(alti,49).