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

UptoLike

ВУЗ: 

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

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

Рубрика: 

'—————————————————————————————————————');
writeln(f2, ' 3.
КРЕСТОВОЕ СЕЧЕНИЕ ИЗ ДВУХ УГОЛКОВ А =
',ЬЬСЗ]:б:2,' ');
writeln(f2,
'—————————————————————————————————————');
writeln(f2, ' 4.
КОРОБЧАТОЕ СЕЧЕНИЕ ИЗ ДВУХ УГОЛКОВ А =
',bb
[4]:б:2,' ');
writeln(f2,
'—————————————————————————
——————————');
writeln(f2, ' 5.
КОРОБЧАТОЕ СЕЧЕНИЕ ИЗ ЧЕТЫРЕХ УГОЛКОВ А
= ',ЬЬС5]:б:2,' ');
writeln(f2,
'—————————————————————————————
———————————');
writeln(f2, ' 6.
КРЕСТОВОЕ СЕЧЕНИЕ ИЗ ЧЕТЫРЕХ УГОЛКОВ А
= ',ЬЬС63:6:2,' ');
writeln(f2,
'———————————————————————————————————');
writeln(f2, ' 7.
ДВУТАВРОВОЕ СЕЧЕНИЕ ИЗ ЧЕТЫРЕХ УГОЛКОВ
А= ',ЬЬС7]:6:2,' ');
writeln(f2,
>———————————————————————————————————————>).
close(f2);
Windl(17,20,63,22,3,0,'y',5);
gotoxy(8,2);
write
('Документирование успешно завершено');
delay(1500); End;
Procedure QUITE;
Var Chl:char; o,k:integer; flag,flagl:integer;
Begin
raschet;
new_win(l,1,80,25,1);
windl(25,2,55,4,3,0,'y',1);
gotoxy(12,2);
write
('РЕЗУЛЬТАТ ');
windl
(5,22,75,24,3,0,'у',1);
gotoxy(7,2);

Страницы