Автоматизация процесса расчета стальных конструкций балочной клетки. Макаров А.А - 170 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

begin
gotoxy(l.l);
write (
ааШ
: 12:1);
end;
if (yyl=iO) and (fl='y') then
begin
gotoxy(l,l);
write(aa[2]:12:1);
end;
if (yyl=14) and (fl='y') then
begin
gotoxy(l,l);
write(aa[3]:12:l);
end; end;
End;
procedure gosub;
begin
k:=r/2100000;
ll:=la*sqrt(k);
if 11<=2.5 then f:=l-(0.073-5.53*k)*ll*sqrt(11);
if 11>4.5 then f:=332/(ll*ll*(51-ll));
kl:=(0.0275-5.53*k)*ll*ll;
if (11>2.5) and (11<=4.5) then f:=1.47-13*k-(0.371-27.3*k)*
11+kl;
end;
procedure raschet;
label
10,19,20,29,30,39,40,49,50,59,60,69,70,100,110;
begin
i:=0; 10:
i:=i+l;
if i>70 then goto 19;
1а:=1е/гуоШ;
if la>120 then goto 10;
gosub;
si:=n/(f*a[i]);

Страницы