Руководство к решению задач по механике материалов и конструкций. Егодуров Г.С - 226 стр.

       Otlet:char;
Begin
Clrscr;
Writeln(‘Размер вала’);
Writeln(‘d0(m),l(m)’);
Readln(d0,l);
Writeln(‘Нагрузка Te(Hm/m),’);
Readln(Te);
Writeln(‘Модуль сдвига G(Па’);
Readln(G);
Writeln(‘Введите показательстепени m’);
Readln(m);
Writeln(‘Число шагов интегрирования n’);
Readln(n);
Writeln(‘Результаты расчета’);
Writeln;
Writeln(‘z mm MH*m T MПа                 F рад      Wp см3);
Writeln;
h:=l/n;
n1:=n+1; {Количество узлов}
For i:=1 to n1 do
Beqin
z[i]:=h*(i-1);
If (z[i]=0) then d:=d0 else d:=d0*(1+exp(m*ln(z[i]/l)));
Ip[i]:=3.14*exp(4*ln(d)0/32;
Wp[i]:=2*Ip[i]/d;
End;
I1[1]:=0; i2[1]:=0;
For i:=1 to n do
Begin
I1[i+1]:=I1[i]+h*Te*(z[i]/Ip[i]+ z[i+1]/Ip[i+1])/2;
i2[i+1]:=i2[i]+h*(1/Ip[i]+ 1/Ip[i+1])/2;
end;
Mr:=I1[n+1]/i2[n+1];
Writeln(‘Реактивный момент Mr=’,Mr:4:0,’H*m’);
Writeln;
For i:=1 to n1 do
Begin
T[i]:=Te*z[i]-Mr;
Tau[i]:=T[i]/(Wp[i]);
End;
F[1]:=0;
For i:=1 to n do
F[i+1]:=F[i]+h/G*(T[i]/Ip[i]+T[i+1]/Ip[i+1])/2;
For I:=1 to n1 do
Beqin
Writerln(z[i]:5:3,T[i]:8:0,Tau[i]/1E6:9:1,F[i]:13:6);
End; Readln; End.




                                                226