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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Write (введите параметр Rs, МПа:’); ReadLn (R2);
Write (введите параметр mu min:’); ReadLn (M1);
Write (введите параметр nu:’); ReadLn (N);
Writeln (‘введите класс арматуры:’);
Writeln (‘1) A-I.. A-III, A-IIIв, Bp-I’);
Writeln (‘2) A-IV.. A-VI, B-II, Bp-II, K-7, K-19’);
ReadLn (Cls);
R1 :=G*R1;
if M>R1*B1*H1*(H0-0.5*H1) then begin
Writeln (‘Условие равновесия не выполняется.’);
Halt;
end;
Q:=0.75*Rsh;
P:=30+360/L;
If Q+P> Rsh then begin
WritLn (‘Условие не выполняется.’);
Hilt;
end;
dGsp :=0.5*P/Q*(1+1/Sqrt(Np));
Gsp:=1-dGsp;
Q:=Gsp*Q;
W:=0.85-0.008*R1;
case Cls of
1: Q1:=R2-Q;
2: Q1 :=R2+400-Q;
else
Q1:=R2+400-Q;
end;
if G<=1 then
Q2:=W/(1+Q1/500*(1-W/1.1))
else
Q2:=W/(1+Q1/400*(1-W/1.1))
repeat
A:=M/R1/B1/H0/H0;
Q3:=1-sqrt (1-2*A);
H0:=H0+50;
Unitel Q3 <= Q2;
H0:=H0-50
G1:=N-(N-1)*(2*Q3/Q2-1);
if G1 >= N then G1 :=N;
if H1/H0 <= 0.2 then
A1:=M/G1/R2/(1-0.5*Q3)/h0
else
A1:=Q3*B1*H1*R1/G1/R2;
M2:=A1/B/H0;
If M2 >= M1 then
A2:=A1 
         Write (введите параметр Rs, МПа:’); ReadLn (R2);
         Write (введите параметр mu min:’); ReadLn (M1);
         Write (введите параметр nu:’); ReadLn (N);
         Writeln (‘введите класс арматуры:’);
         Writeln (‘1) A-I.. A-III, A-IIIв, Bp-I’);
         Writeln (‘2) A-IV.. A-VI, B-II, Bp-II, K-7, K-19’);
         ReadLn (Cls);

         R1 :=G*R1;
         if M>R1*B1*H1*(H0-0.5*H1) then begin
               Writeln (‘Условие равновесия не выполняется.’);
               Halt;
         end;
         Q:=0.75*Rsh;
         P:=30+360/L;
         If Q+P> Rsh then begin
               WritLn (‘Условие не выполняется.’);
               Hilt;
         end;
         dGsp :=0.5*P/Q*(1+1/Sqrt(Np));
         Gsp:=1-dGsp;
         Q:=Gsp*Q;
         W:=0.85-0.008*R1;
         case Cls of
               1: Q1:=R2-Q;
               2: Q1 :=R2+400-Q;
         else
               Q1:=R2+400-Q;
         end;
         if G<=1 then
               Q2:=W/(1+Q1/500*(1-W/1.1))
         else
               Q2:=W/(1+Q1/400*(1-W/1.1))
repeat
      A:=M/R1/B1/H0/H0;
      Q3:=1-sqrt (1-2*A);
      H0:=H0+50;
Unitel Q3 <= Q2;
H0:=H0-50
G1:=N-(N-1)*(2*Q3/Q2-1);
if G1 >= N then G1 :=N;
if H1/H0 <= 0.2 then
      A1:=M/G1/R2/(1-0.5*Q3)/h0
else
      A1:=Q3*B1*H1*R1/G1/R2;
M2:=A1/B/H0;
If M2 >= M1 then
      A2:=A1

Страницы