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

UptoLike

ВУЗ: 

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

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

Рубрика: 

write
('Документирование успешно завершено');
delay(1500); End;
Procedure QUITE;
Var Chl:char; o,k:integer; f lag,f lagl:in*teger;
Begin
raschet;
new_win(l,1,80,25,1);
windl(25,2,55,4,3,0,'y',l);
gotoxy(12,2);
write('
РЕЗУЛЬТАТ
'); windl(5,22,75,24,3,0,'
у
',1);
gotoxy(7,2);
write
('Для завершения работы нажмите
ESC
. Для документи
-
рования
F2.'); windl
(3,7,77,19,3,0,'у',1);
textcolor(O);
gotoxy(3,2); write(
' 1. СЕЧЕНИЕ ИВ ДВУХ ДВУТАВРОВ А =
',bbClJ:12:2);
gotoxy(3,3);
write(
'—————————————————————————————————————');
gotoxy(3,4);
write(
' 2. МИНИМАЛЬНОЕ РАССТОЯНИЕ МЕЖДУ Ц.Т. ВЕТВЕЙ
b =
',bb[2]:12:2);
gotoxy(3,5);
write(
'——————————————————————————————
———————');
gotoxy(3,6);
write(
'3.МАКСИМАЛЬНОЕ РАССТОЯНИЕ МЕВДУ УЗЛАМИ РЕШЕТКИ 1= ',ЬЬЕ31:12:2);
gotoxy(3,7); write(
'———————————————————————————————————');
gotoxy(3,8);
write(

Страницы