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

UptoLike

ВУЗ: 

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

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

Рубрика: 

key:=readkey;
if key=chr(27) then EXIT;
if key=chr(13) then break;
until false; end;
new_Win(l,1,80,25,1);
windl(29,6,50,10,3,0,'y',5);
gotoxy(3,3);
write('
ДОКУМЕНТИРОВАНИЕ
');
Windl(15,13,65,17,3,0,
'y',
5);
Windl(15,13,65,17,3,0,'y',5);
gotoxy(4,2);
write
(' Введите имя документа
;
в котором хотите');
gotoxy(4,3);
write('
сохранить результат (длина имени с расши
-');
gotoxy(4,4);
write
(' рением не более 12 символов)');
vvodwindow(49,16,61,16,7,0); gotoxy(l.l);
readln(nom_f);
vvodwindow(49,l6,61,l6,7,0);
gotoxy(l.l); write(nom_f);
assign(f2,nom_f); rewrite(f2);
writeln(f2,'
ДАННЫЕ
');
writeln(f2,
'———————————————————————————————————');
writeln(f2,
' 1.
УСИЛИЕ СЖАТИЯ, кг
',ааС1]:10:1,' ');
writeln(f2,
'———————————————————————————————————');
writeln(f2,

Страницы