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

UptoLike

ВУЗ: 

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

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

Рубрика: 

procedure dok;
Begin
if n=Q then begin
new_Win(l,1,80,25,1);
windl(18,8,62,15,3,0,'y',3);
gotoxy(9,3);
write
('В документировании нет смысла:');
gotoxy(5,4);
write
(' данных нет');
gotoxy(5,5);
write
(' Если хотите получить пустой документ');
gotoxy(6,6);
write
(' нажмите
ENTER
,если не нужен
- ESC');
repeat
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);
wrlte
(' ДОКУМЕНТИРОВАНИЕ');
Windl(15,13,65,17,3,0,'
у
',5);
Windl(15,13,65,17,3,0,'
у
',5);
gotoxy(4,2);
writeC
Введите имя документа, в котором хотите');
gotoxy(4,3);
write
(' сохранить результат (длина имени с расши
-');
gotoxy(4,4);
write
(' рением не более 12 символов)');
vvodwindow(49,16,61,16,7,0);
gotoxy(l,l);

Страницы