Программы расчета по определению AS в сжатом элементе прямоугольного сечения при случайных эксцентриатетах. Степанова Д.С - 2 стр.

{SR+}
{Определение Asв сжатом элементе прямоугольного профиля при случайных эксцентриситетах}
     user crt;
      type
            mass=array [1..6,1..16] of real;
            mass1=array [1..10,1..8] of real;
      lable 1,2;
      const
      b2:=mass= (0, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20),
      (0, 0.93, 0.925, 0.92, 0.915, 0.91, 0.905, 0.9, 0.895, 0.89, 0.88, 0.87, 0.855, 0.84, 0.825, 0.8),
      (0.25, 0.92, 0.92, 0.92, 0.915, 0.91, 0.905, 0.9, 0.89, 0.88, 0.868, 0.855, 0.838, 0.82, 0.8, 0.78),
      (0.5, 0.92, 0.92, 0.92, 0.915, 0.91, 0.905, 0.9, 0.885, 0.87, 0.855, 0.84, 0.82, 0.8, 0.775, 0.75),
      (0.75, 0.92, 0.915, 0.91, 0.905, 0.9, 0.88, 0.89, 0.878, 0.865, 0.848, 0.83, 0.808, 0.785, 0.755, 0.752),
      (1, 0.92, 0.915, 0.91, 0.905, 0.9, 0.89, 0.88, 0.87, 0.86, 0.84, 0.82, 0.795, 0.77, 0.735, 0.7));
      b1:=mass= ((0, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20),
      (0, 0.93, 0.925, 0.92, 0.915, 0.91, 0.905, 0.9, 0.895, 0.89, 0.875, 0.86, 0.845, 0.83, 0.815, 0.8),
      (0.25, 0.92, 0.915, 0.91, 0.905, 0.9, 0.89, 0.88, 0.875, 0.87, 0.853, 0.835, 0.82, 0.805, 0.765, 0.725),
      (0.5, 0.92, 0.915, 0.91, 0.905, 0.9, 0.89, 0.88, 0.865, 0.85, 0.83, 0.81, 0.795, 0.78, 0.715, 0.65),
      (0.75, 0.92, 0.915, 0.91, 0.9, 0.89, 0.88, 0.87, 0.85, 0.83, 0.803, 0.775, 0.74, 0.705, 0.653, 0.6),
      (1, 0.92, 0.915, 0.91, 0.9, 0.89, 0.875, 0.86, 0.835, 0.81, 0.775, 0.74, 0.685, 0.74, 0.685, 0.63, 0.59, 0.55));
      b3 mass=((0, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20),
      (0, 0.92, 0.92, 0.92, 0.915, 0.91, 0.9, 0.89, 0.88, 0.87, 0.87, 0.835, 0.8, 0.775, 0.75),
      (0.25, 0.925, 0.915, 0.91, 0.905, 0.9, 0.89, 0.88, 0.865, 0.85, 0.84, 0.83, 0.795, 0.76, 0.73, 0.7),
      (0.5, 0.92, 0.915, 0.91, 0.905, 0.9, 0.85, 0.87, 0.85, 0.83, 0.81, 0.79, 0.775, 0.72, 0.685, 0.65),
      (0.75, 0.92, 0.915, 0.91, 0.9, 0.89, 0.87, 0.86, 0.838, 0.815, 0.79, 0.765, 0.728, 0.69, 0.653, 0.615),
      (1, 0.92, 0.915, 0.91, 0.9, 0.89, 0.875, 0.86, 0.83, 0.8, 0.77, 0.74, 0.7, 0.66, 0.62, 0.58));
      var
            b, h, Rsc, Rb, gb, N, N1, 1, A:real;
            pp1, pp2 fb, alfa, As, t, mu2, mu1, As1, fr, ff: real;