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

UptoLike

ВУЗ: 

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

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

Рубрика: 

writeln(f4);
writeln(f4);
writeln(f4,'
РЕЗУЛЬТАТЫ РАСЧЕТА');
writeln(f4,
'—————————————————————————————————');
writeln(f4, ' 1.
БАЛКА ИЗ ДВУТАВРА ПО ГОСТ 8239
-
39 С
W=
',ЬЬС1]:6:2,' ');
writeln(f4,
>
———————————————————————————————————————————————————————————————————————————————————').
writeln(f4, ' 2.
БАЛКА ИЗ ДВУТАВРА ПО ТУ 14
-2-24-
72 С
W=
',ЬЬС23:б:2,' ');
writeln(f4,
'—————————————————————————————————————');
close(f4);
Windl(17,20,63,22,5,0, '
У
,5);
gotoxy(8,2);
write
('Документирование успешно завершено');
delay(2300);
End;
Procedure QUITE;
Var Chlrchar;
о
,k:integer; flag.flagl:integer;
Begin
n:=0;
for i:=l to 3 do if
aa[i]<>0 then n:=n+l; {if
n=0 then halt(l);>
raschet;
new_win(l,1,80,25,1);
windl(26
)
4,56,6
J
5,0,'y',l);
gotoxy(12,2); write('
РЕЗУЛЬТАТ
');
windl(5,20,75
J
22
5
5,0,'y',l);
gotoxy(7,2);
write
('Для завершения работы нажмите
ESC
. Для документ
-
ирования
F2.');
windl(3
5
ll,77,15,5,0,'y',l); textcolor(O);
gotoxy(3,2);

Страницы