Povny_text_posibnika_TMM
.pdfro:=0.38;
alfa:=20.0;
Writeln ('Введiть вихiднi данi:'); Writeln ('модуль зубцiв');
Readln (m);
Writeln ('кiлькiсть зубцiв першого колеса');
Readln (z1);
Writeln ('кiлькiсть зубцiв другого колеса'); Readln (z2);
CLRSCR;
p:=3.14*m;
r1:=m*z1/2;
r2:=m*z2/2; rb1:=r1*cos (alfa); rb2:=r2*cos (alfa); S:=3.14*m/2; rf1:=m*(z1/2-ha-c); rf2:=m*(z2/2-ha-c); aw:=m*(z1+z2)/2; h:=m*(2*ha+c); ra1:=m*(z1/2+ha);
ra2:=m*(z2/2+ha);
Writeln ('Результати синтезу:'); Writeln ('крок зачеплення р=', p:4:2);
Writeln ('радiуси дiлильних кiл r1=', r1:4:2);
Writeln (' r2=', r2:4:2);
Writeln ('радiуси основних кiл rb1=', rb1:4:2);
Writeln (' |
rb2=', rb2:4:2); |
Writeln ('товщина зубцiв S=', S:4:2); |
Writeln ('радiуси западин rf1=', rf1:4:2);
Writeln (' rf2=', rf2:4:2);
Writeln ('мiжосьова вiдстань aw=', aw:4:2); Writeln ('висота зубцiв h=', h:4:2);
Writeln ('радiуси вершин ra1=', rf1:4:2);
Writeln (' |
ra2=', rf2:4:2); |
Readln; |
|
End. |
|
211
.
.
………….
29,7 42¼. .
Times New Roman.
. . . ……
. . 2012–…..
,
. 21021, . , , 95.
, , . 114.
. (0432) 59-87-38.
3516 01.07.2009 .
21021, . , , 95.
, , . 114.
. (0432) 59-87-38.
3516 01.07.2009 .