/* gas3.mar */
/* legge dei gas isocora */

domains
titolo,nome=symbol
S=integer

predicates
azione
opera
elabora(integer)
temperatura
pressione
tasto
goal azione.

clauses
azione:-
makewindow(1,5,1,"",1,1,20,78),opera.
opera:-
tasto,
write("calcolo legge dei gas :ISOCORA"),nl,
write("scrivi 1 per calcolo temperatura"),nl,
write("scrivi 2 per calcolo pressione"),nl,
write("scrivi 0 per finire "),nl,
write("scelta="),readint(S),
elabora(S).
elabora(1):-temperatura.
elabora(2):-pressione.
elabora(0):-exit.

pressione:-
write("calcolo pressione del gas"),nl,
write("scrivi pressione1 in atmosfere   ="),readreal(P1),
write("scrivi temperatura1 in C  ="),readreal(T1),
write("scrivi temperatura2 in C  ="),readreal(T2),
T1K=273+T1,
T2K=273+T2,
P2=P1*T2K/T1K,
write("pressione atmosfere           =",P2),nl,opera.

temperatura:-
write("calcolo temperatura del gas"),nl,
write("scrivi pressione1 in atmosfere   ="),readreal(P1),
write("scrivi pressione2 in atmosfere   ="),readreal(P2),
write("scrivi temperatura1 in C         ="),readreal(T1),
T1K=273+T1,
T2K=P2*T1K/P1,
write("temperatura in kelvin     =",T2K),nl,
T2=T2K-273,
write("temperatura in centigradi =",T2),nl,
opera.

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

+----------------------------------------
¦+---------------------------------------
+¦calcolo legge dei gas :ISOCORA
+¦scrivi 1 per calcolo temperatura
¦¦scrivi 2 per calcolo pressione
¦¦scrivi 0 per finire
¦¦scelta=1
¦¦calcolo temperatura del gas
¦¦scrivi pressione1 in atmosfere   =10
¦¦scrivi pressione2 in atmosfere   =30
¦¦scrivi temperatura1 in C         =20
¦¦temperatura in kelvin     =879
¦¦temperatura in centigradi =606
¦¦
¦¦
+-------------------------------------------------
¦+------------------------------------------------
+¦calcolo legge dei gas :ISOCORA
+¦scrivi 1 per calcolo temperatura
¦¦scrivi 2 per calcolo pressione
¦¦scrivi 0 per finire
¦¦scelta=2
¦¦calcolo pressione del gas
¦¦scrivi pressione1 in atmosfere   =10
¦¦scrivi temperatura1 in C  =30
¦¦scrivi temperatura2 in C  =60
¦¦pressione atmosfere           =10.99009901
¦¦

ritorna