stechiometria
esci chimicaturbo.htm
H2 + Cl2 >>> 2 HCl
Program stechi1;
(* problemi di stechiometria solo
con GRAMMI non MOLI o LITRI *)
uses crt;
VAR cr1,cr2,cp1,cp2,pr1,pr2,pp1,pp2:integer;
tr1,tr2,tp1,tp2,xr1,xr2,xp1,xp2,gr1,gr2,gp1,gp2:real;
a:integer;
procedure pausa;
begin
writeln('premi ENTER ');readln;
end;
procedure fine; (* conferma uscita operazione *)
begin
writeln('fine operazione:confermare :premi enter');
readln;
end;
procedure testo1;
begin
writeln('passa a chiedere PESI MOLECOLARI e COEFFICIENTI
stechiometrici');
writeln('CALCOLA prodotto tra coefficiente e peso molecolare G =
c * pm ');
writeln;
end;
procedure testo2;
begin
writeln('passa a chiedere MASSA nota in grammi ');
end;
procedure testo3;
begin
writeln('------------------------------------------------');
writeln('calcola grammi di sostanze richieste e ottenute ');
end;
procedure datir1;
begin
write('peso atomico o molecolare reattivo1 ');readln(pr1);
write('coefficiente stechiometrico reattivo1 ');readln(cr1);
tr1:=pr1*cr1;
writeln('grammi totali =',tr1:0:8);
end;
procedure datir2;
begin
write('peso atomico o molecolare reattivo2 ');readln(pr2);
write('coefficiente stechiometrico reattivo1 ');readln(cr2);
tr2:=pr2*cr2;writeln('grammi totali =',tr2:0:8);
end;
procedure datip1;
begin
write('peso atomico o molecolare prodotto1 ');readln(pp1);
write('coefficiente stechiometrico prodotto1 ');readln(cp1);
tp1:=pp1*cp1;writeln('grammi totali =',tp1:0:8);
end;
procedure datip2;
begin
write('peso atomico o molecolare prodotto2 ');readln(pp2);
write('coefficiente stechiometrico prodotto2 ');readln(cp2);
tp2:=pp2*cp2;writeln('grammi totali =',tp2:0:8);
end;
procedure massar1;
begin
write('grammi reattivo1 ');readln(gr1);
end;
procedure massar2;
begin
write('grammi reattivo2 ');readln(gr2);
end;
procedure massap1;
begin
write('grammi prodotto1 ');readln(gp1);
end;
procedure massap2;
begin
write('grammi prodotto2 ');readln(gp2);
end;
procedure calcola1;
begin
testo3;
xr2:=gr1*tr2/tr1;
xp1:=gr1*tp1/tr1;
writeln('grammi reattivo2 necessari xr2:=gr1*tr2/tr1; ',xr2:8:5);
writeln('grammi prodotto1 ottenuti xp1:=gr1*tp1/tr1; ',xp1:8:5);
end;
procedure calcola2;
begin
testo3;
xr1:=gr2*tr1/tr2;
xp1:=gr2*tp1/tr2;
writeln('grammi reattivo1 necessari xr1:=gr2*tr1/tr2; ',xr1:8:5);
writeln('grammi prodotto1 ottenuti xp1:=gr2*tp1/tr2; ',xp1:8:5);
end;
procedure calcola3;
begin
testo3;
xr1:=gp1*tr1/tp1;
xr2:=gp1*tr2/tp1;
writeln('grammi reattivo1 necessari xr1:=gp1*tr1/tp1; ',xr1:8:5);
writeln('grammi reattivo2 necessari xr2:=gp1*tr2/tp1; ',xr2:8:5);
end;
procedure calcola4;
begin
testo3;
xp1:=gr1*tp1/tr1;
xp2:=gr1*tp2/tr1;
writeln('grammi prodotto1 ottenuti xp1:=gr1*tp1/tr1; ',xp1:8:5);
writeln('grammi prodotto2 ottenuti xp2:=gr1*tp2/tr1; ',xp2:8:5);
end;
procedure calcola5;
begin
testo3;
xr1:=gp1*tr1/tp1;
xp2:=gp1*tp2/tp1;
writeln('grammi reattivo necessari xr1:=gp1*tr1/tp1; ',xr1:8:5);
writeln('grammi prodotto2 ottenuti xp2:=gp1*tp2/tp1; ',xp2:8:5);
end;
procedure calcola6;
begin
testo3;
xr1:=gp2*tr1/tp2;
xp1:=gp2*tp1/tp2;
writeln('grammi reattivo1 necessari xr1:=gp2*tr1/tp2; ',xr1:8:5);
writeln('grammi prodotto2 ottenuti xp1:=gp2*tp1/tp2; ',xp1:8:5);
end;
procedure calcola7;
begin
testo3;
xr2:=gr1*tr2/tr1;
xp1:=gr1*tp1/tr1;
xp2:=gr1*tp2/tr1;
writeln('grammi reattivo2 necessari xr2:=gr1*tr2/tr1; ',xr2:8:5);
writeln('grammi prodotto1 ottenuti xp1:=gr1*tp1/tr1; ',xp1:8:5);
writeln('grammi prodotto2 ottenuti xp2:=gr1*tp2/tr1; ',xp2:8:5);
end;
procedure calcola8;
begin
testo3;
xr1:=gr2*tr1/tr2;
xp1:=gr2*tp1/tr2;
xp2:=gr2*tp2/tr2;
writeln('grammi reattivo1 necessari xr1:=gr2*tr1/tr2; ',xr1:8:5);
writeln('grammi prodotto1 ottenuti xp1:=gr2*tp1/tr2; ',xp1:8:5);
writeln('grammi prodotto2 ottenuti xp2:=gr2*tp2/tr2; ',xp2:8:5);
end;
procedure calcola9;
begin
testo3;
xr1:=gp1*tr1/tp1;
xr2:=gp1*tr2/tp1;
xp2:=gp1*tp2/tp1;
writeln('grammi reattivo1 necessari xr1:=gp1*tr1/tp1; ',xr1:8:5);
writeln('grammi reattivo2 necessari xr2:=gp1*tr2/tp1; ',xr2:8:5);
writeln('grammi prodotto2 ottenuti xp2:=gp1*tp2/tp1; ',xp2:8:5);
end;
procedure calcola10;
begin
testo3;
xr1:=gp2*tr1/tp2;
xr2:=gp2*tr2/tp2;
xp1:=gp2*tp1/tp2;
writeln('grammi reattivo1 necessari xr1:=gp2*tr1/tp2; ',xr1:8:5);
writeln('grammi reattivo2 necessari xr2:=gp2*tr2/tp2; ',xr2:8:5);
writeln('grammi prodotto2 ottenuti xp1:=gp2*tp1/tp2; ',xp1:8:5);
end;
procedure pro1;
begin
testo1;datir1;datir2;datip1;testo2;massar1;calcola1;pausa;
end;
procedure pro2;
begin
testo1;datir1;datir2;datip1;testo2;massar2;calcola2;pausa;
end;
procedure pro3;
begin
testo1;datir1;datir2;datip1;testo2;massap1;calcola3;pausa;
end;
procedure pro4;
begin
testo1;datir1;datip1;datip2;testo2;massar1;calcola4;pausa;
end;
procedure pro5;
begin
testo1;datir1;datip1;datip2;testo2;massap1;calcola5;pausa;
end;
procedure pro6;
begin
testo1;datir1;datip1;datip2;testo2;massap2;calcola6;pausa;
end;
procedure pro7;
begin
testo1;datir1;datir2;datip1;datip2;testo2;massar1;calcola7;pausa;
end;
procedure pro8;
begin
testo1;datir1;datir2;datip1;datip2;testo2;massar2;calcola8;pausa;
end;
procedure pro9;
begin
testo1;datir1;datir2;datip1;datip2;testo2;massap1;calcola9;pausa;
end;
procedure pro10;
begin
testo1;datir1;datir2;datip1;datip2;testo2;massap2;calcola10;pausa;
end;
procedure scelta; (* procedura con scelta opzioni e uscita *)
var s,sn:string;opzione:integer;
begin
clrscr;
writeln('seleziona opzione possibili tipi di problemi:');
writeln('masse solo in grammi...non in moli o volumi ');
writeln('---------------------------------------------');
writeln('SINTESI.1,2,3..DECOMPOSIZIONE 4,5,6..COMBINAZIONE
7,8,9,10 ');
writeln('1...gA + xB ---> yAB :noti grammi di A ,calcola
grammi di B,AB');
writeln('2...xA + gB ---> yAB :noti grammi di B ,calcola
grammi di A,AB');
writeln('3...xA + yB ---> gAB :noti grammi di AB ,calcola
grammi di A,B');
writeln('4...gAB ---> xA + yB :noti grammi di AB ,calcola
grammi di A,B');
writeln('5...xAB ---> gA + yB :noti grammi di A ,calcola
grammi di AB,B');
writeln('6...xAB ---> yA + gB :noti grammi di B ,calcola
grammi di A,AB');
writeln('7...gA + xB ---> yC + zD :noti gA ,calcola grammi
B,C,D ');
writeln('8...xA + gB ---> yC + zD :noti gB ,calcola grammi
A,C,D ');
writeln('9...xA + yB ---> gC + zD :noti gC ,calcola grammi
A,B,D ');
writeln('10..xA + yB ---> zC + gD :noti gD ,calcola grammi
A,B,C ');
writeln('15...fine ');
writeln('scelta =');readln(opzione);
clrscr;
case opzione of
1:pro1;
2:pro2;
3:pro3;
4:pro4;
5:pro5;
6:pro6;
7:pro7;
8:pro8;
9:pro9;
10:pro10;
15:fine;
end;
writeln('altra operazione?Esperimenti?:premi S...fine:premi N ');
readln(sn);
if sn='S' then scelta ;
end;
begin (* programma di lancio *)
clrscr;
scelta;
end.