listati da Prolog2
listati da copiare e incollare su notes e salvare come file.PRO
richiamabili in ambiente Prolog

esci listaprolog.htm

/* tabella5.pro */
/* variante di tabella4.pro */
/* tabella funzioni di SENO e COSENO */
/* per campo angoli da indicare */
/* per passo da indicare */

domains
A,C,X,Y,P,Q =integer

predicates
finestra
azione(C,A,Q)
chiede(X,Y,Q)

goal
finestra,
chiede(X,Y,Q),
A=X,
C=Y,
Q=P,
azione(C,A,Q).

clauses
finestra:-
makewindow(1,7,1,"",1,1,20,70).
chiede(X,Y,P):-
write("scrivi valore angolo al quale finire"),nl,
write("di calcolare SENO e COSENO "),nl,
readint(X),nl,
write("angolo dal quale iniziare "),
readint(Y),
write("scrivi passo angolare "),
readint(P),
clearwindow().
azione(C,A,Q):-
C<A,!,
Seno=sin(C*3.14/180),
Coseno=cos(C*3.14/180),
Tangente=tan(C*3.14/180),
attribute(4),
write("..angolo..",C),nl,
attribute(2),write("..seno=",Seno),nl,
attribute(3),
write("..coseno..",Coseno),nl,
attribute(5),
write("..tangente.",Tangente),nl,
write("---------------------------"),nl,
C1=C+Q,
sound(50,500),
azione(C1,A,Q).