Программа расчета по определению площади сечения напрягаемой арматуры изгибаемых элементов таврового сечения. Степанова Д.С - 2 стр.

{-- Определение площади сечения напрягаемой арматуры --------}
{----------для случая 1 таврового сечения ----------}
Program Arm;
       User CRT;
       Var
              {вводимые величины}
              M : real;
              B : real;
              H0 : real;
              B1 : real;
              R1 : real;
              G : real;
              R2 : real;
              Q : real;
              M1 : real;
              N : real;
              Cls : byte;
              Rsh: real;
              L : real;
              Np : byte;

             {вводимые величины}
             Rb : real;
             W : real;
             A1 : real;
             M2 : real;
             Q3 : real;
             Q2 : real;
             Q1 : real;
             A : real;
             A2 : real;
             G1 : real;
             P : real;
             Gsp: real;
             d Gsp : real;
             Gsr : real;

begin
        Write (введите параметр М, Н*мм:’); ReadLn (M);
        Write (введите параметр b, мм:’); ReadLn (B);
        Write (введите параметр h0, мм:’); ReadLn (H0);
        Write (введите параметр b’’f, мм:’); ReadLn (B1);
        Write (введите параметр b’’f, мм:’); ReadLn (H1);
        Write (введите параметр L, м:’); ReadLn (L);
        Write (введите число напрягаемых стержней, шт:’); ReadLn (Hp);
        Write (введите параметр Rb, MПa:’); ReadLn (R1);
        Write (введите параметр g b2:’); ReadLn (G);
        Write (введите параметр Rsh, MПa:’); ReadLn (Rsh);