writeln('Значение диаметра впадин червяка df1[мм] = ',df1:8:3);
writeln;
if (z1=1)or(z1=2) then b1:=(11+0.06*z2)*m else
b1:=(12.5+0.09*z2)*m;
writeln('Значение длины нарезанной части червяка b1[мм] = ',b1:8:3);
writeln('Угол обхвата червяка колесом
2*delta=70...120');
writeln('Угол зацепления aw=20');writeln; d2:=m*z2;
da2:=m*(z2+2); df2:=m*(z2-2.4);
if z1=1 then kn:=2*m; if z1=2 then kn:=1.5*m
else kn:=m; dn:=da2+kn;
writeln('Значение делительного диаметра колеса d2[мм] = ',d2:8:3);
writeln('Значение диаметра вершин колеса da2[мм] = ',da2:8:3);
writeln('Значение диаметра впадин колеса df2[мм] = ',df2:8:3);
writeln('Значение начального диаметра колеса dn[мм] = ',dn:8:3);
b2:=0.75*da1;
writeln('Ширина венца зубчатого колеса b[мм]=',b2:5:2);
ham:=arctan(m*z1/d1); writeln('Значение делительного угла
подъема винтовой линии gamma[рад] =
',ham:5:3);
aw:=0.5*m*(z2+q);
writeln('Значение межосевого расстояния aw = ',aw:8:3);
i:=z2/z1;
writeln('Значение передаточного отношения i=',i:6:3);
end; begin
closegraph;
4:clrscr;
writeln('Выберете тип передачи (1- прямозубая;2-косозубая;3-червячная)');
read(rec); case rec of 1:pryam; 2:kosoz; 3:cherv;
end;
writeln('Для продолжения нажмите любую клавишу');
repeat until keypressed;clrscr; writeln('Желаете ли продолжить работу с
программой ? [1=да/2=нет]'); read(otv1);
if otv1=1 then goto 4; initgraph(gd,gm,'c:\tp\bgi');
exit end;
procedure point_3; label 1;
var i,z1,z2,x,z:integer;
g,c,s,d,u,t,e1,e2,f,f1,x1,amod2,amod3,zs,
kfs,kfl,yf,signfs,
signfa,signf0,sf,b1,b2,sh,sh1,aw,signh,yf
1,yf2,s1,s2,sn,
l,kb1,kb2,ep,sg,a1,a,amod,amod1:real;
ff:text;
w:array[1..35] of real; w1:array[1..11] of real;
q,kb,nh,siga,sign,sigb,sig:array[1..2] of
real;
procedure delw; var i:integer;
begin
for i:=1 to 35 do w[i]:=0; end;
begin closegraph;
1:clrscr;textbackground(1);clrscr; write('Введите тип материала колеса (1-
сталь;2-бронза;3-латунь) '); readln(x);
write('Введите коэффициент динамической нагрузки g = ');
readln(g);
write('Введите коэффициент динамичности внешней нагрузки c = ');
readln(c);
write('Введите коэффициент неравномерности нагрузки по длине зуба s = ');
readln(s);
write('Введите коэффициент длины зуба pciba = ');
readln(d);
write('Введите передаточное число u =
');
readln(u);
write('Введите крутящий момент на шестерне t = ');
readln(t);
write('Введите модуль упругости материала шестерни e1 = ');
readln(e1);
write('Введите модуль упругости материала колеса e2 = ');
readln(e2);
writeln('Введите число оборотов зубчатых колес q1,q2 ');
readln(q[1]);
readln(q[2]);
write('Введите срок службы зацепления l
= ');
readln(l);
write('Введите значение твердости шестерни kb1 = ');
readln(kb[1]);
write('Введите значение твердости колеса kb2 = ');
readln(kb[2]);
write('Введите допускаемый коэффициент безопасности sh = ');
readln(sh);
write('Введите допускаемый коэффициент безопасности для изгиба sh1 = ');
readln(sh1);
for i:=1 to 2 do begin nh[i]:=60*l*q[i]; sigb[i]:=(2*kb[i]+70)/sh;
if x=1 then x1:=2 else x1:=1.2; siga[i]:=x1*sigb[i]; f:=0.0012*sqr(sqr(kb[i]))/nh[i];
if x=1 then f1:=1/6;
if (x=2)or(x=3) then f1:=1/8; sign[i]:=sigb[i]*exp(f1*ln(f)); sig[i]:=sign[i];
if siga[i]<sign[i] then sig[i]:=siga[i];
if sigb[i]>sign[i] then sig[i]:=sigb[i];
end;
sg:=sig[1];
if sig[2]<sig[1] then sg:=sig[2]; ep:=2.0*e1*e2/(e1+e2); f1:=(t*g*c*s*ep)/(sqr(sg)*d*u); a1:=0.82*(u+1.0)*exp((1/3)*ln(f1)); assign(ff,'mechan3.dat'); reset(ff);
i:=1;
while not eoln(ff) do begin read(ff,w[i]);
i:=i+1;
end;close(ff);i:=1; repeat
i:=i+1;
aw:=w[i];
until w[i]>=a1;delw; sf:=1.75;kfs:=1;kfl:=1;
if kb[1]>kb[2] then signf0:=1.8*kb[2] else signf0:=1.8*kb[1];
signfa:=(signf0/sf)*kfs*kfl;
b2:=d*aw;b1:=1.12*b2;
amod2:=6.8*t*(u+1)/(u*a1*b1*signfa);
assign(ff,'mechan.dat');
reset(ff);
i:=1;
while not eoln(ff) do