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

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

Write (‘Введите параметр Rsc, ruc\см
2
: ’); ReadLn (Rsc);
Write (‘Введите параметр mu min : ’); ReadLn (M1);
Write (‘Введите параметр Gsr,ruc\см
2
: ’); ReadLn (Gsr);
HO:=H-A
W: = 0.85-0.008*q*Rb
If G < 1 tlen
Gr:=W/(1+Gsr/500*(1-W/1/1))
Else
Gr:=W/(1+GsR/400*(1-W/1.1));
Ar:= Gr* (1-0/5*Gr);
Am:=M/(G*Rb*b*h0*h0);
If Am < = Ar then begin
Q:=1-Sqrt (1-2*Am);
Q1:=1 – 0.5*Q;
As:=M/Rs/Q/HO;
Writeln (‘Dывод As, cv^2: ‘As:0:4);
end
else begin
As1:= (M-Ar*g*Rb*b*h0*h0)/(Rsc*(h0-a));
M1:= As1/b*h0;
If M <=M1 then
A_s:M1*b*h0
Else
A_s:As1;
As:=Rsc*A_s/Rs+g*Rb*Gr*b*h0/Rs;
Writeln (‘Вывод As? cv^2: ‘,As:0:4);
end;
end. 
            Write (‘Введите параметр Rsc, ruc\см2 : ’); ReadLn (Rsc);
            Write (‘Введите параметр mu min : ’); ReadLn (M1);
            Write (‘Введите параметр Gsr,ruc\см2 : ’); ReadLn (Gsr);

       HO:=H-A
       W: = 0.85-0.008*q*Rb
       If G < 1 tlen
              Gr:=W/(1+Gsr/500*(1-W/1/1))
       Else
              Gr:=W/(1+GsR/400*(1-W/1.1));
       Ar:= Gr* (1-0/5*Gr);
       Am:=M/(G*Rb*b*h0*h0);
       If Am < = Ar then begin
              Q:=1-Sqrt (1-2*Am);
              Q1:=1 – 0.5*Q;
              As:=M/Rs/Q/HO;
              Writeln (‘Dывод As, cv^2: ‘As:0:4);
       end
       else begin
              As1:= (M-Ar*g*Rb*b*h0*h0)/(Rsc*(h0-a));
              M1:= As1/b*h0;
              If M <=M1 then
                     A_s:M1*b*h0
              Else
                     A_s:As1;
              As:=Rsc*A_s/Rs+g*Rb*Gr*b*h0/Rs;
              Writeln (‘Вывод As? cv^2: ‘,As:0:4);
       end;
end.

Страницы