9/(u5_1+u8_1+u10_1+u16_1+u75_1)};:=(q5_2+q8_2+q10_2+q16_2+q75_2+q11+q15)*dt/day;:=(q5_1+q8_1+q10_1+q16_1+q75_1)*dt/day;(q5,q8,q10,q16,q75,q11,q15);(PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,
q5,q8,q10,q16,q75,_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);(QQ:1:13);:=0;:=iter+1;(«JJ+JJ1=»,JJ+JJ1:1:1,« », Gam: 1:13);:=q5 + q8 + q10 + q16 + q75 + q11 + q15;
writeln («Q1 =», Q1: 1:13); abs (QQ-Q1)>=0.1 then:=dob*0.16;q10:=dob*0.16;q75:=dob*0.16;q8:=dob*0.151;q16:=dob*0.151;q11:=dob*0.108;q15:=dob*0.11;;;
Продовження додатка А (giv, gi, dt, t, PcpVII, p5_2, p8_2, p10_2, p16_2, p75_2, p11, p15,
q5_1, q5_2, q8_1, q8_2, q10_1, q10_2, q16_1, q16_2, q75_1, q75_2, q11, q15);
e5_2:=PcpVII-p5_2;_2:=PcpVII-p8_2;_2:=PcpVII-p10_2;_2:=PcpVII-p16_2;_2:=PcpVII-p75_2;:=PcpVII-p11;:=PcpVII-p15;:=e5_2*e5_2+e8_2*e8_2+e10_2*e10_2+e16_2*e16_2+e75_2*e75_2+e11*e11+e15*e15;(gi,dt,t,u5_2,u8_2,u10_2,u16_2,u75_2,u11,u15,_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2,e11,e15);_2:=1-(e5_2*e5_2)/(J1/7);_2:=1-(e8_2*e8_2)/(J1/7);_2:=1-(e10_2*e10_2)/(J1/7);_2:=1-(e16_2*e16_2)/(J1/7);_2:=1-(e75_2*e75_2)/(J1/7);:=1-(e11*e11)/(J1/7);:=1-(e15*e15)/(J1/7);:=(r5_2*u5_2+r8_2*u8_2+r10_2*u10_2+r16_2*u16_2+r75_2*u75_2+r11*u11+r15*u15)/7;
if J1> JJ then gam:=-gam/2gam:=gam * 2; (giv1, gi1, dt, t, PcpVIIa, p5_1, p8_1, p10_1, p16_1, p75_1,
q5_1, q5_2, q8_1, q8_2, q10_1, q10_2, q16_1, q16_2, q75_1, q75_2);
e5_1:=PcpVIIa-p5_1;_1:=PcpVIIa-p8_1;_1:=PcpVIIa-p10_1;_1:=PcpVIIa-p16_1;_1:=PcpVIIa-p75_1;:=e5_1*e5_1+e8_1*e8_1+e10_1*e10_1+e16_1*e16_1+e75_1*e75_1;(gi1,dt,t,u5_1,u8_1,u10_1,u16_1,u75_1,_1,e5_2,e8_1,e8_2,e10_1,e10_2,e16_1,e16_2,e75_1,e75_2);_1:=1-(e5_1*e5_1)/(J11/5);_1:=1-(e8_1*e8_1)/(J11/5);_1:=1-(e10_1*e10_1)/(J11/5);_1:=1-(e16_1*e16_1)/(J11/5); r75_1:=1 - (e75_1 * e75_1) / (J11 / 5);:=(r5_1 * u5_1 + r8_1 * u8_1 + r10_1 * u10_1 + r16_1 * u16_1 + r75_1 * u75_1) / 5;
if J11> JJ1 then gam1:=-gam1/2gam1:=gam1*2;:=(q5_2+q8_2+q10_2+q16_2+q75_2+q11+q15)*dt/day;:=(q5_1+q8_1+q10_1+q16_1+q75_1)*dt/day;(q5,q8,q10,q16,q75,q11,q15);(PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,PcpVIIa/1e6,PcpVII/1e6,
q5,q8,q10,q16,q75,_1,q5_2,q8_1,q8_2,q10_1,q10_2,q16_1,q16_2,q75_1,q75_2);:=J1;:=J11;{(JJ+JJ1)<0.9*(JJJ+JJJ1)}iter>1;
giv:=gi;:=gi1;:=t + dt;
if (round (t) mod (day * 30))=0 then (shit, q5: 1:13, «», py5: 1:13); (shit, q8: 1:13, « ; », py8: 1:13); (shit, q10: 1:13,« », py10: 1:13); (shit, q16: 1:13,« », py16: 1: 13); (shit, q75: 1:13, «», py75: 1:13); (shit, q11: 1:13, «», py11: 1:13); (shit, q15: 1:13, « »,py15:1:13);;:=(q5_2+q8_2+q10_2+q16_2+q75_2+q11+q15)*dt/day;:=(q5_1+q8_1+q10_1+q16_1+q75_1)*dt/day;:=Sum+Qdob;:=Sum1+Qdob1;(round(t) mod (day * 30))=0 then (shit, «VIIa: Qdob =», Sum1/1e3: 5:6, «Pcp / z =», PcpVIIa/1e6/z (PcpVIIa/1e6): 1:13, «Pcp =», PcpVIIa/1e6: 1:13); (round (t) mod (day * 30))=0 then (shit, «VII: Qdob =», Sum/1e3 : 5:6, «Pcp / z =», PcpVII/1e6/z (PcpVII/1e6): 1:13, «Pcp =», PcpVII/1e6: 1:13);
writeln («t =», t / day: 1:0);
until {pad} t>=day * 1440; («t =», t / day: 1:0); (shit, «VII: Qdob =», Sum/1e3: 5:6 , «Pcp / z =», PcpVII/1e6/z (PcpVII/1e6): 1:13, «Pcp =», PcpVII/1e6: 1:13); (shit, «VIIa: Qdob= », Sum1/1e3: 5:6,« Pcp / z=», PcpVIIa/1e6/z (PcpVIIa/1...
