Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program stezenia;
- uses crt;
- var
- Cm,d,n1,n2,ms,mr,mrr,Cmol,Cp,M,x1,x2:real;
- const V=1;
- begin
- ClrScr;
- writeln('Podaj st©ľenie molowe:');
- readln(Cm);
- Cm:=Cm;
- while Cm<0 do
- begin
- writeln;
- writeln('St©ľenie nie moľe by† ujemne! Podaj poprawnĄ warto†:');
- readln(Cm);
- Cm:=Cm;
- end;
- writeln;
- writeln('Podaj g©sto† w jednostce [g/dm^3]:');
- read(d);
- d:=d;
- while d<0 do
- begin
- writeln;
- writeln('Gesto† nie moľe by† ujemna! Podaj poprawnĄ warto†: ');
- readln(d);
- d:=d;
- end;
- writeln;
- writeln('podaj mas© molowĄ:');
- read(M);
- M:=M;
- while M<0 do
- begin
- writeln;
- writeln('Masa molowa nie moľe by† ujemna! Podaj poprawnĄ warto†: ');
- readln(M);
- M:=M;
- end;
- writeln;
- n1:=Cm*V;
- writeln;
- writeln('liczba moli wynosi: ', n1:3:3,'[mol]');
- writeln;
- ms:=n1*M;
- writeln('masa substancji wynosi: ', ms:3:2,'[g]');
- writeln;
- Cp:=(Cm*M*100/d);
- if Cp>100 then
- writeln('Masa substancji jest wieksza od masy roztworu! Wprowadziles bledne dane.')
- else
- begin
- writeln('stezenie procentowe wynosi: ', Cp:3:2,'[%]');
- writeln;
- mrr:=(ms*100/Cp);
- writeln('masa roztworu wynosi: ', mrr:3:2,'[g]');
- writeln;
- mr:=mrr-ms;
- writeln('masa rozpuszczalnika wynosi: ', mr:3:2,'[g]');
- writeln;
- Cmol:=n1/mr;
- writeln('stezenie molalne wynosi: ', Cmol:3:4,'[mol/kg]');
- writeln;
- n2:=mr/18;
- x1:=(n1/(n1+n2));
- writeln('ulamek molowy substancji wynosi: ', x1:3:2);
- writeln;
- x2:=1-x1;
- writeln('ulamek molowy rozpuszczalnika wynosi: ', x2:3:2);
- readln;
- writeln;
- writeln('stezenie molowe to: ',Cm:4:3);
- writeln;
- writeln('gestosc to: ',d:2:4);
- writeln;
- writeln('masa molowa wynosi: ',M:4:2);
- end ;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement