mac2

/* chiede3 */
/* richiesta dati e attivazione con menu inserito in programma */
/* legge generale dei gas in funzione di dati da inserire             */

/* con prima opzione si deve calcolare la pressione ,inserendo volume,Temperatura,massa,PM */

ese:-whide(chiede1),ese1.

verifica(1):-nl,pressione.
verifica(2):-nl,volume.
verifica(3):-nl,temperatura.
verifica(4):-nl,pesomolecolare.
verifica(5):-nl,massa.
verifica(6):-nl,fine.

pressione:-nl,
prompt_read(['volume in litri='],Volume),nl,
prompt_read(['temperatura in kelvin='],Temperatura),nl,
prompt_read(['massa in grammi='],Massa),nl,
prompt_read(['peso molecolare='],Pesom),nl,
Pressione is (Massa*0.082*Temperatura)/(Volume*Pesom),
write(['pressione in atmosfere=',Pressione]),nl,
message('premi enter'),
wfront(menu),ese1.

volume:-nl,
prompt_read(['pressione in atmosfere='],Pressione),nl,
prompt_read(['temperatura in kelvin='],Temperatura),nl,
prompt_read(['massa in grammi='],Massa),nl,
prompt_read(['peso molecolare='],Pesom),nl,
Volume is (Massa*0.082*Temperatura)/(Pressione*Pesom),
write(['volume in litri=',Volume]),nl,
message('premi enter'),
wfront(menu),ese1.

temperatura:-nl,
prompt_read(['volume in litri='],Volume),nl,
prompt_read(['pressione in atmosfere='],Pressione),nl,
prompt_read(['massa in grammi='],Massa),nl,
prompt_read(['peso molecolare='],Pesom),nl,
Temperatura is (Pressione*Volume*Pesom)/(Massa*0.082),
write(['temperatura in kelvin=',Temperatura]),nl,
message('premi enter'),
wfront(menu),ese1.

pesomolecolare:-nl,
prompt_read(['volume in litri='],Volume),nl,
prompt_read(['temperatura in kelvin='],Temperatura),nl,
prompt_read(['massa in grammi='],Massa),nl,
prompt_read(['pressione in atmosfere='],Pressione),nl,
Pesom is (Massa*0.082*Temperatura)/(Pressione*Volume),
write(['peso molecolare=',Pesom]),nl,
message('premi enter'),
wfront(menu),ese1.

massa:-
prompt_read(['volume in litri='],Volume),nl,
prompt_read(['temperatura in kelvin='],Temperatura),nl,
prompt_read(['pressione in atmosfere='],Pressione),nl,
prompt_read(['peso molecolare='],Pesom),nl,
Massa is (Pressione*Volume*Pesom)/(0.082*Temperatura),
write(['massa in grammi=',Massa]),nl,
message('premi enter'),
wfront(menu),ese1.

fine:-nl,
write('chiamata per fine operazione'),
message('premi enter'),
uscita.

uscita:-
wfront(chiede1).

ese1:-
whide(chiede1),wfront(user),nl,
write('seleziona opzione desiderata'),nl,
write('indicare incognita da trovare'),nl,
write('1....pressione ATMOSFERE'),nl,
write('2....volume LITRI'),nl,
write('3....temperatura KELVIN'),nl,
write('4....peso molecolare'),nl,
write('5....massa in grammi'),nl,
write('6....fine'),nl,
prompt_read(['scrivi numero opzione'],N),nl,
verifica(N).

con la prima opzione viene fornita la pressione del gas (1.23 atmosfere)