peso molecolare

esci chimicaturbo.htm

program pesomo;
(* determinazione peso molecolare o peso formula *)
uses crt;
var p1,p2,p3,p4,peso:real;
numero,n1,n2,n3,n4:integer;

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

procedure pausa;
begin
writeln('premi enter');readln;
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);
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);
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);
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 programma:determinazione peso molecolare composto');
writeln('---------------------------------------------------');
writeln('premi enter');readln;
scelta;
end.