Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Povny_text_posibnika_TMM

.pdf
Скачиваний:
7
Добавлен:
17.05.2015
Размер:
14.48 Mб
Скачать

ro:=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 .

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]