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

UptoLike

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

Рубрика:

fl:=1/250; i:=0; 10: i:=i+l;

if i>23 then goto 19; sig:=m/c[i]/w[i]; if sig>r

then goto 10; f: =q*l*l*l*l/193536000/o;j [13; if f>fl

then goto 10; bb[13:=w[i3; 19: i:=0; 20: i:=i+l;

if i>60 then goto 30; si:=m/cl[i]/wlCil; if si>r then goto 20;

f2:=5/384*q/l.2*1*1*1*1/2100000/0j1[13; if f2>fl then goto 20;

bb[23:=wl[13; 30:exit; end;

procedure prover(i:integer); begin

{Si-}

readln(aaCi3);

while ioresultoo do

begin

VvodWindow(20,2,60,2,3

)

0); gotoxy(5,l);

write('

надо

целое

число

повторите

ввод

');

ocno_curs(xxl,yyl,xxl+12,yyl,1,'n'); gotoxy(l,l); {Si-}

readln(aaCi]); {Si+}

end; end;

procedure vvod_dan(num:integer); begin