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

UptoLike

ВУЗ: 

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

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

Рубрика: 

program kolonna; {Определение площади сечения продольной арматуры
внецентренно-сжатых элементов
элементовсимметричного
армирования}
user ctr ;
const beta=1;
label 1,2;
var
b, h, Rs, Rb, gb, N, Nl, M, Ml,l0, A, t, Eb, Es: real;
omega, alfa, alfal, ppl, kl, e0, el0, e, el: real;
M1, Mll, Yl, deltae, deltaem, al, h0, k2, k3: real;
mul, mu2, Ncr, dzr, d, aml, an, als, As, ds, ir, I, Is: real;
BEGIN
2: clrscr;
Writeln (‘введите размеры поперечного сечения колонны b и h (см)’);
readln (b, h);
Writeln (‘расчетную прочность арматуры Rs и бетоны Rb (Мпа) ’);
readln (Rs, Rb);
Writeln (‘модуль упругости арматуры Es и бетона Eb (Мпа)’);
readln (Es, Eb);
Write (‘коэффициент условия работы бетона’); readln (gb);
Writeln (‘введите характеристику бетона по плотности’);
Writeln (‘(1 - тяжелый
бетон, 2 – легкий бетон ’);
readln (ppl);
if ppl=1 then alfal:=0.85 else alfal:=0.8;
Writeln (‘полные наибольшие расчетные нагрузки М (kН*м) и N (kH)’);
readln (M, N);
Writeln (‘длительнодействующие нагрузки Мl (kН*м) и Nl (kH)’);
readln (Ml, Nl);
Write (‘расчетная длина колонны в метрах l= ’); readln (10);
Write (‘величина защитного слоя бетона (в см) а= ’); readln (al);
Write (‘задайте начальный коэффициент армирования ’); readln (mul);
A:=b*h; ir := sqrt (h*h/ l2); ppl:=10*100/ ir; h0 :=h-al;
If ppl<=40 then t:=l else
begin
kl:=604*Eb/ (sqr (10)*10000);
e0:=M*100/N; el0:=Ml*100/Nl;
e:=e0+h/2-al; el:=el0+h/2-al;
Ml:=N*e/100; Mll:=Nl*el/100;
Yl:=l+beta*Mll/Ml;
deltae:=e0/h; deltam:= 0.5-0.10*10*100/h-0.01*Rb;
if deltae<deltam then deltae:=deltam;
I:=b*h*h*h/12;
k2:= I/Yl*(0.11/(0.1+deltae)+0.1);
alfa:=Es/Eb;
l: Is:=mul*b*h0*sqr(0.5*h-al); 
program kolonna; {Определение площади сечения продольной арматуры
                           внецентренно-сжатых                       элементов
                           элементовсимметричного
                                                        армирования}
user ctr ;
const beta=1;
label 1,2;
var
       b, h, Rs, Rb, gb, N, Nl, M, Ml,l0, A, t, Eb, Es: real;
       omega, alfa, alfal, ppl, kl, e0, el0, e, el: real;
       M1, Mll, Yl, deltae, deltaem, al, h0, k2, k3: real;
       mul, mu2, Ncr, dzr, d, aml, an, als, As, ds, ir, I, Is: real;
BEGIN
2: clrscr;
Writeln (‘введите размеры поперечного сечения колонны b и h (см)’);
readln (b, h);
Writeln (‘расчетную прочность арматуры Rs и бетоны Rb (Мпа) ’);
readln (Rs, Rb);
Writeln (‘модуль упругости арматуры Es и бетона Eb (Мпа)’);
readln (Es, Eb);
Write (‘коэффициент условия работы бетона’); readln (gb);
Writeln (‘введите характеристику бетона по плотности’);
Writeln (‘(1 - тяжелый бетон, 2 – легкий бетон ’);
readln (ppl);
if ppl=1 then alfal:=0.85 else alfal:=0.8;
Writeln (‘полные наибольшие расчетные нагрузки М (kН*м) и N (kH)’);
readln (M, N);
Writeln (‘длительнодействующие нагрузки Мl (kН*м) и Nl (kH)’);
readln (Ml, Nl);
Write (‘расчетная длина колонны в метрах l= ’); readln (10);
Write (‘величина защитного слоя бетона (в см) а= ’); readln (al);
Write (‘задайте начальный коэффициент армирования ’); readln (mul);
A:=b*h; ir := sqrt (h*h/ l2); ppl:=10*100/ ir; h0 :=h-al;
If ppl<=40 then t:=l else
       begin
              kl:=604*Eb/ (sqr (10)*10000);
              e0:=M*100/N; el0:=Ml*100/Nl;
              e:=e0+h/2-al; el:=el0+h/2-al;
              Ml:=N*e/100; Mll:=Nl*el/100;
              Yl:=l+beta*Mll/Ml;
              deltae:=e0/h; deltam:= 0.5-0.10*10*100/h-0.01*Rb;
              if deltae

Страницы