peso moleolare e percentuale

esci chimicaturbo.htm

program pesomo1;
(* determinazione percentuali elementi in un composto e peso molecolare*)
uses crt;
var p1,p2,p3,p4,peso,pc1,pc2,pc3,pc4:real;
numero,n1,n2,n3,n4:integer;

procedure fine;
begin
writeln('premi enter');
readln;
end;

procedure pausa;
begin
writeln('premi enter');readln;
end;

procedure stampa2(x,y:real);
begin
writeln('percentuale primo elemento :',x:8:4);
writeln('percentuale secondo elemento :',y:8:4);
pausa;
end;

procedure stampa3(x,y,z:real);
begin
writeln('percentuale primo elemento :',x:8:4);
writeln('percentuale secondo elemento :',y:8:4);
writeln('percentuale terzo elemento :',z:8:4);
pausa;
end;

procedure stampa4(x,y,z,w:real);
begin
writeln('percentuale primo elemento :',x:8:4);
writeln('percentuale secondo elemento :',y:8:4);
writeln('percentuale terzo elemento :',z:8:4);
writeln('percentuale quarto elemento :',w:8:4);
pausa;
end;

procedure pro2;
begin
write('peso atomico primo elemento ');readln(p1);
write('indice primo elemento ');readln(n1);
write('peso atomico secondo elemento ');readln(p2);
write('indice secondo elemento ');readln(n2);
peso:=p1*n1+p2*n2;
writeln('peso molecolare = ',peso:8:4);
writeln('percentuale elemento = peso atomico*indice*100/peso molecolare');
pc1:=p1*n1*100/peso;
pc2:=p2*n2*100/peso;
stampa2(pc1,pc2);
pausa;
end;

procedure pro3;
begin
write('peso atomico primo elemento ');readln(p1);
write('indice primo elemento ');readln(n1);
write('peso atomico secondo elemento ');readln(p2);
write('indice secondo elemento ');readln(n2);
write('peso atomico terzo elemento ');readln(p3);
write('indice terzo elemento ');readln(n3);
peso:=p1*n1+p2*n2+p3*n3;
writeln('peso molecolare = ',peso:8:4);
writeln('percentuale elemento = peso atomico*indice*100/peso molecolare');
pc1:=p1*n1*100/peso;
pc2:=p2*n2*100/peso;
pc3:=p3*n3*100/peso;
stampa3(pc1,pc2,pc3);
pausa;
end;

procedure pro4;
begin
write('peso atomico primo elemento ');readln(p1);
write('indice primo elemento ');readln(n1);
write('peso atomico secondo elemento ');readln(p2);
write('indice secondo elemento ');readln(n2);
write('peso atomico terzo elemento ');readln(p3);
write('indice terzo elemento ');readln(n3);
write('peso atomico quarto elemento ');readln(p4);
write('indice quarto elemento ');readln(n4);
peso:=p1*n1+p2*n2+p3*n3+p4*n4;
writeln('peso molecolare = ',peso:8:4);
writeln('percentuale elemento = peso atomico*indice*100/peso molecolare');
pc1:=p1*n1*100/peso;
pc2:=p2*n2*100/peso;
pc3:=p3*n3*100/peso;
pc4:=p4*n4*100/peso;
stampa4(pc1,pc2,pc3,pc4);
pausa;
end;

procedure scelta;
var ancora:integer;
begin
clrscr;
writeln('scrivi numero elementi presenti nella formula:2,3,4 ');
write('oppure scrivi 0 per uscire da programma ');readln(numero);
clrscr;
case numero of
2:pro2;
3:pro3;
4:pro4;
0:fine;
end;
writeln('----------------------------');
writeln('altro problema:scrivi 1...fine:scrivi 2 ');readln(ancora);
if ancora =1 then scelta else fine;
end;


begin
clrscr;
writeln('funzione:determinazione percentuali elementi in composto e PM ');
writeln('---------------------------------------------------');
writeln('premi enter');readln;
scelta;
end.