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