t, y: array [-5 .. 5] of real;
/////Задача1>
//// Задача2 <, ax, bx: real;
na, pa, g: array [1 .. 6] of real;, ch1, cn1: array [1 .. 9] of real;, qh, qn, cc, ch, cn, Kkc, kkh, kkn, kdc, kdh, kdn, vvv, fi, lll, lll1, sig, fff, vvet: real;: boolean;
{$ R *. dfm} rasch (); j, i: integer;: = mz + mn + ms + mc;: = 2;: = pi * sqr (d)/4 * w0;: = 1000 * sqr (w0) * d/(sqr (h) * dt);
// showmessage (floattostr (f));: ​​= 0.65 * qubkor (v * dt/h); f <100 then: = 1/(0.67 +0.1 * sqrt (f) * 0.34 * qubkor (f)); vmax <= 2 then: = 0.532 * sqr (vmax) - 2.13 * vmax +3.13;: = vmax; begin: = 1;: = vmax * (1 +0.12 * sqrt (f)) ;;: = a * M * FF * mm * n/(sqr (h) * qubkor (v * dt));: = (5-F)/4 * h; i: = 1 to 4 doi = 1 then begin [i]: = 1.13/(0.13 * 4 +1); end; i = 2 then [i]: = cmax * (3-8 +6); i = 3 then [i]: = cmax * (3 * (1/81) - 8 * (1/27) +6 * (1/9)); i = 4 then [i]: = cmax * (3 * (1/(6 * 6 * 6 * 6) ) - 8 * (1/(6 * 6 * 6)) +6 * (1/(6 * 6)));
// begin; j: = 1 to 3 do beginj = 1 then x [j]: = xmax; j = 2 then x [j]: = 3 * xmax; j = 3 then x [j]: = 6 * xmax; i: = -5 to 5 do begini = -5 then y [i]: = -400; i = -4 then y [i]: = -300; i = -3 then y [i]: = -200; i = -2 then y [i]: = -100; i = -1 then y [i]: = -50; i = 0 then y [i]: = 0; i = 1 then y [i]: = 50; i = 2 then y [i]: = 100; i = 3 then y [i]: = 200; i = 4 then y [i]: = 300; i = 5 then y [i]: = 400; umax <= 5 then t [i]: = umax * sqr (abs (y [i]))/sqr (x [j]) t [i]: = 5 * sqr ( abs (y [i]))/sqr (x [j]); j = 1 then c1 [i]: = (1/sqr ((1 +5 * t [i]) +12.8 * sqr (t [i ]) +17 * sqr (t [i]) * t [i] +
.1 * sqr (t [i]) * sqr (t [i]))) * cmax; j = 2 then c2 [i]: = (1/sqr ((1 +5 * t [i]) +12.8 * sqr (t [i]) +17 * sqr (t [i]) * t [i] +
.1 * sqr (t [i]) * sqr (t [i]))) * c [3]; j = 3 then c3 [i]: = (1/sqr (( 1 +5 * t [i]) +12.8 * sqr (t [i]) +17 * sqr (t [i]) * t [i] +
.1 * sqr (t [i]) * sqr (t [i]))) * c [4];;;;; qubkor (x: real): real;: = exp (1/3 * ln (x));; koefm (x: real): real; koefms: string; ((x> = 20) and (x <24)) then koefm: = 3.0if ((x> = 24) and (x <28)) then koefm: = 3.2if ((x> = 28) and (x <32)) then koefm: = 3.4if ((x> = 32) and (x <36)) then koefm: = 3.6if ((x> = 36) and (x <40)) then koefm: = 3.8if ((x> = 40) and (x <44)) then koefm: = 4if ((x> = 44 ) and (x <48)) then koefm: = 3.7if ((x> = 48) and (x <52)) then koefm: = 3.4if ((x> = 52) and (x <56)) then koefm : = 3.1if ((x> = 56) and (x <60)) then koefm: = 2.8if ((x> = 60) and (x <64)) then koefm: = 2.5if ((x> = 64 ) and (x <68)) then koefm: = 2.2if ((x> = 78) and (x <72)) then koefm: = 1.9if ((x> = 72) and (x <76)) then koefm : = 1.6if ((x> = 76) and (x <80)) then koefm: = 1.3if ((x> = 80) and (x <84)) then koefm: = 1if ((x> = 84) and (x <88)) then koefm: = 1.1if ((x> = 88) and (x <92)) then koefm: = 1.2if ((x> =...
