.
(N = 2) :
(1)
(2)
(3)
(4)
(5)
- ' ( );
- ;
- ' .
(6)
(7)
(8)
(9)
:
(10)
(11)
.(12)
, ' - , , - 1.
.
Turbo Pascal
Turbo Pascal:
:
Program kursovoj;
Var K, K1, G1, K2, G2, Pn, Pk, P, l1, l2, G, l, lz, Gz, S, q, f, C11, C12, C13, C33, C44, KM, GM, G12, G13, EM, E1, E3: real; f1: text;
Label M1;
begin
assign (f1; res1.pas);
rewrite (f1);
write (vvedite K1, G1, K2, G2, Pn, Pk);
read (K1, G1, K2, G2, Pn, Pk);
P:=Pn;
M1:
K:= K1*P+K2*(1-P);
l1:= K1+(2/3)*G1;
l2:= K2-(2/3)*G1;
G:=G1*P+G2*(1-P);
l:= l1*P+L2*(1-P);
Gz:= G1-G2;*
lz:= l1-l2;
S:= -(l+3*G)/(2*G*(l+2*G));
q:= -1/(l+2*G);
f:=1/(2*G);
C11:= l+2*G+P*(-1*P)*(q*l2+G2)/(1-q*(lz+Gz)*(1-2*P))+(S*lz*lz)/(1-S*Gz*(1-2*P));
C12:= l+P*(1-P)*((q*sqr(lz+Gz)/(1-q*(lz+Gz)*(1-2*P))+(S*Gz*Gz)/(1-S*Gz*(1-2*P)));
C13:= l+((P*(1-P)*q*lz*(lz+Gz))/(1-q*(lz+Gz)*(1-2*P)));
C44:= G+((P*(1-P)*f*Gz*Gz)/1-f*Gz*(1-2*P)));
C33:= l+2*G+((P*(1-P)*q*lz*lz)/(1-q*lz+Gz)*(1-2*P)));
E1:= ((C33*(C11+C12)-2*C13*C13)*(C11-C12)/(C33*C11-(C13*C13)));
E3:= ((C33*(C11+C12)-2*C13*C13))/(C11+C12));
G12:=(1/2)*(C11-C12);
G13:= C44;
Write(E1=, E1, E3=, E3, G12=, G12, G13=, G13);
GM:= G-((2*G*G*(K+2*G)*P*(1-P))/(5*G*(K+(4/3)*G)+2*Gz*(K+2*G)*(1-2*P)));
KM:= (K1*K2+(4/3)*G*K)/(K1*(1-P)+K2*P-(4/3)*G);
EM:= (q*KM*GM)/((3*KM)+GM);
Writeln (f1, GM=, GM, KM=, KM, EM=, EM);
P: =P+0.1
If P=0.5 then P:= P+0.1;
If P<= Pk then goto M1
end.
 ,
|  ,
|  ,
|  ,
|
| 13,2 | 21,9 |
|
|
|
ϳ Turbo Pascal :
| 0,3 | 0,4 | 0,6 | 0,7 |
 
| 397,6 | 527,0 | 669,0 | 648,9 |
| 1127,4 | 1486,9 | 2202,2 | 2555,7 |
| 913,1 | 1105,9 | 1248,6 | 1163,8 |
| 2163,4 | 1391,3 | 1365,9 | 1447,6 |
| 511,5 | 649,5 | 907,5 | 1049,7 |
| 1743,1 | -2870,4 | -1255,1 | -1208,7 |
| -0,137 | 0,157 | -0,180 | -0,192 |
, ' .
. 1
.2
, ' . 0,3 0,7.
' =, . G. ' , , .
= 0,6, .
1. .., ..
̳ , 1978 - 205 .
2. .. ..
. . .1984 - 114 .
3. .., .., . . ..
/
. - .: , 1984 - . 97-107.
4. .. . - :
5., 1997 - 398 .
