tabella5

tabulazione e formato

/* 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).