19. Программаның денесі берілген, толықтыр
…………..
…………..
T:=y*z/x;
…………..
…………..
20. Программаның, басы мен аяғы берілген, денесін жаз
Program syzyk;
Var a,b,c:byte; d,e:longint; x,y:real;
Begin readln(a);
…………….
…………….
Writeln(‘x=’,x:4:2); writeln(‘y=’,y:4:2);
Readln end.
Химия пәнінен алынған есептер
Есептің шарты берілген программасын жаз.
Егер заттың берілген газ көлемі және зат мөлшері белгілі болса, онда молярлық көлемді табатын программа жаз.
Есептің программасы құрылған шартын жаз.
Program tigizdik;
Var m,b: integer; s:real;
Begin read (m,v);
S (H2) = 2 г / моль /22.4л/моль = 0.089 г/л
S (ауа) = 29 г/моль /22.4л/моль = 1.295 г/л
S(CO2) = 44г/моль /22.4л/моль = 1.96г/л
S:= m/v
Write (S sqr (H) = 0.089 г/л; S (ауа) = 1.295 г/л; S(CO2) = 1.96г/л);
End.
Достарыңызбен бөлісу: |
