dana3

visualizza automaticamente archivio con dati e calcolo saldo (credito-debito)

/* dana3.pro */
nowarnings

include "ana2.dba"

domains
W = integer
H = char

predicates
cliente(W)
finestra
legenda
goal finestra,legenda,cliente(4).

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

legenda:-
write("nome","\tregione","\tcredito","\tdebito"),
write("\n========================================="),nl.

/* stampa archivio completo */
cliente(W):-
write("--------------------------------------------"),nl,
W<5,
 dati(N,R,C,D),
 S=C-D,
 write(N,"\t",R,"\t",C,"\t",D,"\tsaldo=",S),
 write("\tpremi enter"),nl,
 W1=W+1,
 readchar(H),
 cliente(W1).
 cliente(0).

/* ana2.dba */

domains
nome,regione = symbol
credito,debito = integer
predicates
dati(nome,regione,credito,debito)
clauses
dati(verdi,veneto,100,40).
dati(rossi,veneto,500,400).
dati(bassi,lazio,300,120).
dati(grassi,lazio,300,500).
dati(zanella,toscana,200,120).
dati(pascoli,toscana,120,100).