92) and (x <96)) then koefm: = 1.3if ((x> = 96) and (x <100)) then koefm: = 1.4if ((x> = 100) and (x <104)) then koefm: = 1.5if ((x> = 104) and (x <108)) then koefm: = 1.6if ((x> = 108) and (x <112)) then koefm: = 1.7if ((x> = 112) and (x <116)) then koefm: = 1.8if ((x> = 116) and (x <120)) then koefm: = 1.9begin// showdialog ('коеф m не заданий', 'ввеедіте коеф м', koefms);
// koefm: = strtofloat (koefms);: = 0;;;
// procedure koef ();
// begin
// bx: = koefm (ax);
// end; rach2 (); i: integer; i: = 1 to 6 do [i]: = pa [i] * n2/100; [1]: = 0.11; [2 ]: = 0.16; [3]: = 0.33; [4]: ​​= 0.34; [5]: = 0.37; [6]: = then beginlll <= 10 then begin sig: = 2 endif lll <= 20 then begin sig: = 4 endif lll <= 40 then begin sig: = 6 endif lll <= 60 then begin sig: = 8 endif lll <= 80 then begin sig: = 10 endif lll <= 100 then begin sig: = 13 endif lll <= 150 then begin sig: = 19 endif lll <= 200 then begin sig: = 24 endif lll <= 250 then begin sig: = 30 endelse beginlll <= 10 then begin sig: = 1 endif lll <= 20 then begin sig: = 2 endif lll <= 40 then begin sig: = 4 endif lll <= 60 then begin sig: = 6 endif lll <= 80 then begin sig: = 8 endif lll <= 100 then begin sig: = 10 endif lll <= 150 then begin sig: = 14 endif lll <= 200 then begin sig: = 18 endif lll <= 250 then begin sig: = 22 end; fi <30 then fi: = 30;: = 2 * qc/(sin (fi/57.296) * sqrt (2 * pi * sig * vvet)) + fff;: = 2 * qc/(sin (fi/57.296) * sqrt (2 * pi * sig * vvet)) + fff;: = 2 * qc/(sin (fi/57.296) * sqrt (2 * pi * sig * vvet)) + fff; i: = 1 to 9 do beginday then begini = 1 then begin sig: = 2; endif i = 2 then begin sig: = 4; endif i = 3 then begin sig: = 6; endif i = 4 then begin sig: = 8; endif i = 5 then begin sig: = 10; endif i = 6 then begin sig: = 13; endif i = 7 then begin sig: = 19; endif i = 8 then begin sig: = 24; endif i = 9 then begin sig: = 30; endelse begini = 1 then begin sig: = 1; endif i = 2 then begin sig: = 2; endif i = 3 then begin sig: = 4; endif i = 4 then begin sig: = 6; endif i = 5 then begin sig: = 8; endif i = 6 then begin sig: = 10; endif i = 7 then begin sig: = 14; endif i = 8 then begin sig: = 18; endif i = 9 then begin sig: = 22; end ;
///fff: = 20; [i]: = 2 * qc/(sin (fi/57.296) * sqrt (2 * pi * sig * vvet)) + fff; [i] : = 2 * qh/(sin (fi/57.296) * sqrt (2 * pi * sig * vvet)) + fff; [i]: = 2 * qn/(sin (fi/57.296) * sqrt (2 * pi * sig * vvet)) + fff; end;
end;.
