/* matema.pro */
/* funzioni matematiche e altre */

domains
predicates
azione
goal azione.
clauses
azione:-
makewindow(1,7,1,"",0,0,25,80),
X=6,Y=8,
Somma=X+Y,Write(Somma),nl,
Differenza=Y-X,Write(Differenza),nl,
Prodotto=X*Y,write(Prodotto),nl,
Quoziente=Y/X,write(Quoziente),nl,
Divisione=Y div X,Write(Divisione),nl,
Resto=Y mod X,write(Resto),nl,
write("-----------------------------"),nl,
sound(100,600),
Radice=sqrt(100),write(Radice),nl,
Quadrato=X*X,write(Quadrato),nl,
Cubo=Quadrato*X,write(Cubo),nl,
Esponenziale=exp(3),write(Esponenziale),nl,
Arrotondato=round(123.56),write(Arrotondato),nl,
Assoluto=abs(-8),write(Assoluto),nl,
Logdecimale=log(1000)/log(10),write(Logdecimale),nl,
Lonaturale=ln(100),write(Lonaturale),nl,
Seno=sin(30*3.14/180),write(Seno),nl,
Coseno=cos(30*3.14/180),write(Coseno),nl,
Tangente=tan(30*3.14/180),write(Tangente),nl,
Arcotangente=arctan(2),write(Arcotangente),nl,
write("------------------------------------"),nl,
sound(100,700),
"asiatica"<>"mare",
"asiatica"="asiatica",
"asia">"alto",
"alto"<"asia",
sound(100,600).

+-----------------------------------------
¦14
¦2
¦48
¦1.3333333333
¦1
¦2
¦-----------------------------
¦10
¦36
¦216
¦20.085536923
¦124
¦8
¦3
¦4.605170186
¦0.49977010264
¦0.86615809441
¦0.57699640039
¦1.1071487178
¦------------------------------------
¦
¦Press the SPACE bar
¦

ritorna