'3':point_4_3; else goto 1; end; clearviewport; end;
procedure point_5_1; var t,d,a,ft,fr,fn:real; begin
closegraph;
clrscr;
writeln('Введите крутящий момент T='); gotoxy(28,1);
read(t);
writeln('Введите диаметр колеса d='); gotoxy(27,2);
read(d);
writeln('Введите угол альфа-дубль-в='); gotoxy(29,3);
read(a);
a:=a*3.14/180;
ft:=2*t/d;
fr:=ft*sin(a)/cos(a);
fn:=ft/cos(a);
writeln('Ft=',ft);
writeln('Fr=',fr);
writeln('Fn=',fn); repeat until keypressed;
initgraph(gd,gm,'c:\tp\bgi');
end;
procedure point_5_2;
var t,d,g,a,fi,ft1,ft2,fn,fr:real; begin
closegraph;
clrscr;
writeln('Введите крутящий момент Т2=');
gotoxy(28,1);
read(t);
writeln('Введите диаметр d2='); gotoxy(20,2);
read(d);
writeln('Введите делительный угол подъема винтовой линии гамма=');
gotoxy(55,3);
read(g);
g:=g*3.14/180;
writeln('Введите угол альфа-дубль-в='); gotoxy(28,4);
read(a);
a:=a*3.14/180;
writeln('Введите угол трения ='); gotoxy(22,5);
read(fi);
fi:=fi*3.14/180;
ft2:=2*t/d;
fr:=ft2*sin(a)/cos(a);
ft1:=ft2*sin(g+fi)/cos(g+fi);
fn:=ft2/(cos(g)*cos(a));
writeln;
writeln('Ft1=',ft1);
writeln('Fr=',fr);
writeln('Ft2=',ft2);
writeln('Fn=',fn); repeat until keypressed;
initgraph(gd,gm,'c:\tp\bgi');
end;
procedure point_5; label 1;
begin
1:clearviewport;
settextjustify(1,1);
setbkcolor(darkgray);
setcolor(white);
box(163,28,470,75,magenta);
settextstyle(1,0,1); outtextxy(320,50,'Выбор типа передачи'); box(180,140,460,210,cyan); settextjustify(0,1); outtextxy(200,160,'1. Прямозубая'); outtextxy(200,180,'2. Червячная'); repeat until keypressed;
key:=readkey; case key of '1':point_5_1; '2':point_5_2; else goto 1; end; clearviewport; end;
procedure point_6; var
d,Mp,sigma_i,Fx,sigma_s,t,tau,sigma:real; begin
closegraph;
textbackground(blue);
clrscr;
writeln('Введите диаметр сечения d[мм]='); gotoxy(31,1);
read(d);
writeln('Введите расчетный изгибающий момент Мр[Н*мм]=');
gotoxy(46,2);
read(Mp); sigma_i:=Mp/(0.1*d*d*d);
writeln('Введите силу, вызывающую сжатие или растяжение Fx[H]=');
gotoxy(54,3);
read(Fx); sigma_s:=Fx*4/(3.1415*d*d);
writeln('Введите крутящий момент Tх[Н*мм]='); gotoxy(34,4);
read(t);
tau:=t/(0.2*d*d*d); sigma:=sqrt((sigma_i+sigma_s)*(sigma_i+sigma_s )+3*tau*tau);
writeln;
writeln('Приведенное напряжение СИГМАпр=',sigma);
repeat until keypressed; initgraph(gd,gm,'c:\tp\bgi'); end;
procedure point_7; begin
setbkcolor(black);
clearviewport;
settextjustify(1,1);
setcolor(cyan);
outtextxy(320,50,'Программу разработали:'); outtextxy(320,70,'студент Камалов
Константин');
outtextxy(320,180,'доцент кафедры РЭУС'); outtextxy(320,200,'Андреев Игорь
Викторович');
repeat until keypressed; key:=readkey; clearviewport;
end;
procedure main_menu; label 1,2;
begin 2:settextjustify(1,1);
setbkcolor(darkgray);
setcolor(white);
box(163,28,470,75,magenta);
settextstyle(1,0,1); outtextxy(320,50,'Расчет зубчатой
передачи'); box(120,120,520,300,cyan); settextjustify(0,1); outtextxy(140,140,'1. Внешний вид
механизма');
outtextxy(140,160,'2. Расчет геометрии механизма');
outtextxy(140,180,'3. Прочностной расчет механизма');
outtextxy(140,200,'4. Расчет КПД механизма');
outtextxy(140,220,'5. Силовой расчет механизма');
outtextxy(140,240,'6. Расчет вала на прочность');
outtextxy(140,260,'7. Сведения об авторах'); outtextxy(140,280,'8. Выход из программы'); repeat until keypressed;
key:=readkey; case key of '1':point_1; '2':point_2; '3':point_3; '4':point_4; '5':point_5; '6':point_6; '7':point_7; '8':goto 1;