" "
( )
,
2
-16- . .
. . .
, , . , , , .
| P, V, T |
| . 1 |
, , , . , , , . , , , .
, , , . , , , , .
, .
1. ,
2. . ,
3. . ,
: , .
, (1)
- , 
- , , 
- .
(1),
, (2)
, 
.
(1) (2) (. 1).
, (2) . , . :
|
|
|
1 
.
(1) 
,
. (3)
.
(2)
. (4)
, , , (4) .
(5)
, (4), (5) .
-
. (6)
-------------------------------------------------------------------------------------------------
- . , ( ). , :
1. , (6)
2. ,
3.
, 
, 
, ,
4.
5.
6.
1.
2.
3.
4. 
5. 
. , : () , ()
6. 
. , : () , ()
7. 
. , () . , () .
, (1)
- , - , , - .
. 
.
. 1 
.
.
.
.
Pascal ABC, 
.
//
6 . 
.
|
|
|
tt:=0.001; { } p0:=2;nm:=1;t0:=323;v0:=0.1;r0:=8.31;
For j:=1 to 5 do
begin
{ }
Nm:=1; { }
Tk:=T0+(j-1)*50;{ }
V:=V0; { }
P:=P0; { }
G:=5/3; { }
C:=Exp(G*Ln(Nm*R0*Tk))/Exp((G-1)*Ln(P));{ }
For i:=1 to 200000 do
begin
V:=V+tt;
P:=C*Exp((-G)*Ln(V));
Tk:=P*v/(Nm*R0);
SetPixel(X0+round(V*40*MasX),Y0-round(P*40*MasY), clTeal);
{SetPixel(X0+round(Tk*40*MasX),Y0-round(P*40*MasY), clNavy); }
{ SetPixel(X0+round(Tk*40*MasX),Y0-round(V*40*MasY), clPurple); }
end;
end;
| 6. |
, . 7, 8.
| 7. X=T,K Y=P, |
| 8. (70) |
7 . , , .
8 , . , .
1. ,
2. . ,
3. . ,
