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

Writeln(‘Размер балки’);
Writeln(‘l(mm),b(mm),h1(mm), h2(mm),t1(mm),t2(mm)’);
Readln(l,b,h1,h2,t1,t2);
Writeln(‘Нагрузка q(H/mm), Модуль упругости Е(MПа’);
Readln(q,E);
Writeln(‘Число шагов интегрирования n, координаты опор z2, z3(mm)’);
Readln(n,z2,z3);
Writeln(‘                Результаты расчета’);
Writeln;
Writeln(‘z mm MH*m S MПа               V mm T рад’);
Writeln;
a:=4*l;
z1:=a/n; {Шаг интегрирования }
n1:=n+1; {Количество узлов}
i1:=trunc(z3/z1+1); {Первая опора – номер узла}
i2:=trunc(z3/z1+1); { Вторая опора – номер узла }
R1:=7*q*l/2; R2:=R1;
For i:=1 to n1 do
Beqin
z:=z1*(i-1);
ZZ[I]:=z;
{Уравнение изгибающих моментов по участкам}
If (z>=0) and (z<=l) then M[i]:=-q*z*z/2;
If (z>l) and (z<=2*l) then M[i]:=- q*z*z/2+R1*(z-l)-4*q*(z-l)*(z-l)/2;
If (z>2*l) and (z<=3*l) then M[i]:=- q*z*z/2+R1*(z-l)-4*q*l*(z-3*l/2)+R2*(z-2*l);
{Геометрические характеристики}
If (z>=0) and (z<=l) then h:=h1+(h2-h1)*z/l;
If (z>1) and (z<=2*l) then h:=h2;
If (z>2*l) and (z<=3*l) then h:=h1+(h2-h1)*(3*l-z)/l;
Ix:=b*exp(3*ln(h))/12-(b-t1)*exp(3*ln(h-2*t2))/12;
Wx[I]:=2*Ix/h;
S[i]:=M[i]/Wx[i]; {Нормальные напряжения}
K[i]:=M[i]/(E*Ix); {Кривизна}
End;
T[1]:=0;
For i:=1 to n do T[i+1]:=T[i]+z1*(K[i]+K[i+1])/2;
V[1]:=0;
For i:=1 to n do V[i+1]:=V[i]+z1*(T[i]+T[i+1])/2;
c1:=(V[6]-V[16])/(2*l);
c2:=V[6]+c1*l;
For I:=1 to n1 do
Beqin
T[i]:=T[i]+c1; {Угол поворота}
V[i]:=-V[i]+c1*ZZ[i]+c2; {Прогиб}
Writerln(ZZ[i]:6:1,M[i]/1E3:9,S[i]:9:2,V[i]:8:2,T[i]:11:5);
End;
Readln; End.
                             12.3. Задачи для самостоятельного решения

       В задачах 1.4 на (рис.12.6) требуется для балок переменного сечения:
     8. Составить схему алгоритма решения задачи.




                                              235