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

UptoLike

ВУЗ: 

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

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

Рубрика: 

>
————————————————————————————————————————————————————————————————————————————————————— >);
writeln(f4, ' 5.
РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ
СТАЖ,
t
>20 мм, кг/см:
2
',аа[51:7:1,' ');
writeln(f4,
'——————————————————————————————————
————————————');
writeln(f4,
' 6.
ШАГ, см
',ааСб]:7:1,' ')
;
writeln(f4,
'———————————————————————————————————');
writeln(f4); writeln(f4);
writeln(f4,'
РЕЗУЛЬТАТ');
writeln(f4,
'——————————————————————————————————');
writeln(f4, ' Hw Tw I Bf Tf A DET DET1 F
');
writeln(f4,
'—————————————————————————————————');
for i:=l to n do begin
writeln(f4,' ',bb[i].Hw:6:l,'
',bbCi].Tw:6:l,'I',bbCi].
Bf:6:l,'r,bb[i].Tf:6:l
, ' ',bbCi].A:6:l,' ',bb[i3.DE1:6:1,'
',bb[i].DE11:6:1,'
'
f
bbCi].F:6:l,' ');
end;
writeln(f4,
'——————————————————————————————————');
close(f4);
Windl(17,20,63,22,3,0,'y',1);
gotoxy(8,2);
write
('Документирование успешно завершено');
delay(2300); End;
Procedure QUITE;
Var Chlrchar; o,k:integer; flag,flagl:integer; Begin
fl:=0;

Страницы