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

UptoLike

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

Рубрика:

if (yyl=17) and (fl='y') then

begin gotoxy(l,l);

write(aa[8]:12:l); end; end;

End;

procedure raschet;

begin

rs:=ry*0.58;

ix:=tw*hw*hw*hw/12+2*(bf*tf*tf*tf/12+bf*tf*(0.5*hw+0.5*tf)*

(0.5*hw+0.5*tf));

w:=ix/(0.5Ahw+tf);

s:=tw*hw*hw/8+bf*tf*(0.5*hw+0.5*tf);

qm:=8*ry*w/(l*l); qq:=2*rs*ix*tw/s/l;

qf:=161280QOO*ix*yf/no/(1*1*1); bb[13:=qm;

bbC2]:=qq; bbC33:=qf; end;

procedure prover(i:integer);

begin

<Si->

readln(aa[i]);

{Si+>

while ioresultoO do

begin

VvodWindow(20,1,60,1,3,0);

gotoxy(5,l);

write

('надо целое число повторите ввод');

ocno_curs(xxl,yyl,xxl+12,yyl,1,'n');

gotoxy(l,l);

readln(aaEi]);

{Si+>