/* gas1.mar */
/* legge dei gas isoterma */

domains
titolo,nome=symbol
S=integer

predicates
azione
opera
elabora(integer)
pressione
volume
goal azione.

clauses
azione:-
makewindow(1,5,1,"",1,1,20,78),opera.
opera:-
write("--------premi enter-----------"),nl,
readchar(_),clearwindow,
write("calcolo legge dei gas :ISOTERMA"),nl,
write("scrivi 1 per calcolo pressione"),nl,
write("scrivi 2 per calcolo volume"),nl,
write("scrivi 0 per finire "),nl,
write("scelta="),readint(S),
elabora(S).
elabora(1):-pressione.
elabora(2):-volume.
elabora(0):-exit.

pressione:-
write("calcolo pressione del gas"),nl,
write("scrivi volume1 in litri   ="),readreal(V1),
write("scrivi volume2 in litri   ="),readreal(V2),
write("scrivi pressione1 in atmosfere="),readreal(P1),
P2=P1*V1/V2,nl,
write("pressione:atmosfere=",P2),nl,opera.

volume:-
write("calcolo volume del gas"),nl,
write("scrivi volume1 in litri         ="),readreal(V1),
write("scrivi pressione1 in atmosfere  ="),readreal(P1),
write("scrivi pressione2 in atmosfere  ="),readreal(P2),
V2=P1*V1/P2,nl,
write("volume=litri:",V2),nl,opera.

+---------------------------------------------
¦+--------------------------------------------
+¦calcolo legge dei gas :ISOTERMA
+¦scrivi 1 per calcolo pressione
¦¦scrivi 2 per calcolo volume
¦¦scrivi 0 per finire
¦¦scelta=1
¦¦calcolo pressione del gas
¦¦scrivi volume1 in litri   =100
¦¦scrivi volume2 in litri   =50
¦¦scrivi pressione1 in atmosfere=2
¦¦
¦¦pressione:atmosfere=4
¦¦--------premi enter-----------
¦¦
¦¦
¦¦
+---------------------------------------------
¦+--------------------------------------------
+¦calcolo legge dei gas :ISOTERMA
+¦scrivi 1 per calcolo pressione
¦¦scrivi 2 per calcolo volume
¦¦scrivi 0 per finire
¦¦scelta=2
¦¦calcolo volume del gas
¦¦scrivi volume1 in litri         =100
¦¦scrivi pressione1 in atmosfere  =5
¦¦scrivi pressione2 in atmosfere  =10
¦¦
¦¦volume=litri:50
¦¦--------premi enter-----------
¦¦
¦¦
¦¦

ritorna