fy"> reset (fl); i: = l to 7 do readln (fl, x [i]); (fl);: = x [l];: = x [2];: = x [3];: = x [4];: = x [5]; c: = x [6]; k: = x [7];: = l;: = 0;: = (u/u2) ;
if ((z1c <16) or (z1c> 100)) then writeln ('неприпустиму кількість зубів
циліндричної шестерні '); ((zlk <16) or (zlk> 100)) then writeln (' неприпустиму кількість зубів
конічної шестерні '); II: = TI * 0.97 * ul;: = TII * 0.98 * u2;
n11: = nl/ul;: = n11/u2;: = n1 * 3.14/30;: = n11 * 3.14/30;: = n111 * 3.14/30; = 965;
SigmaHLim2: = 674;
9 * u2 * u2)));
zsum: = 2 * aw * 0.9659/m2; 1: = round (zsum) + l;: = zlc;: = zsum1-zl;
if (z1 + z2) <60 then writeln ('не виконується параметричне
обмеження для сумарного числа зубів циліндричної передачі ');: = 2 * aw * z2/zsum;
Ft: = 2 * TII [/ (dw2 * 0.001);: = 2 * aw-(z1 * m1/0.975);
b2: = psiBA * aw;: = 376 * sqrt (ll * ll * 1.07 * (z2/z1) * Ft/(b2 * d2));
if sigmaH> sigmaHP then writeln ('значення sigmah> sigmaHP');
CSigmaHLim1: = 965;: = 674;: = 60 * nl * t * 0.578;: = 60 * n1 * t * 0.578;: = 6.099 * 10000000;: = 2.686 * 10000000;
CZN1: = exp ((l/6) * ln (CNHIim1/Cnhe1));
if CsigmaH1
Csigmamin: = CsigmaH2;
CNFE1: = 60 * n1 * t * 0.503;: = 60 * n1 * t * 0.515;: = exp ((l/6) * ln (4000000/CNFE1));
CYN2: = exp ((l/6) * ln (4000000/CNFE2));
if CYN1 <1 then CYN1: = l; CYN2 <1 then 1.08 * TI)/(cz2 * m2 * 1.5915)); (sigmaFP1/stgmaFlim1)> (sigmaFP2/sigmaFlim2) then
sigf1: = (sigmaFP1/sigmaFiim1) else sigf1: = (sigmaFP2/sigmaFlim2); (CsigmaFP1/CsigmaFlim1)> (CsigmaFP2/CsigmaFlim2) then
sigf2: = (CsigmaFP1/CsigmaFlim1) else sigf2: = (CsigmaFP2/CsigmaFlim2); (sigmaFP1> sigmaFlim1) then writeln ('1 '); (sigmaFP2> sigmaFlim2) then writeln ('2'); (CsigmaFP1> csigmaFlim1) then writeln ('3 '); (CsigmaFP2> CsigmaFlim2) then writeln ('4'); (CsigmaHP sigmaFlim1) or (sigmaFP2> sigmaFlim2) or
(CsigmaFP1> CsigmaFliml) or (CsigmaFP2> CsigmaFlim2) then begin
writeln ('The functional limitation in the program FUNC has been violated');: = false;;
if (CsigmaHP aw)
then begin
writelnCThe functional limitation in the program FUNC has been violated ');: = false;; lim = true then begin [l]: = aw; [2}: = V; [3]: = abs ((sigmaHP/ ...
