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.