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

UptoLike

ВУЗ: 

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

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

Рубрика: 

if n=0 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;
4
if key=chr(27)
then EXIT; if key=chr(13) then
break;
until false;
end;
пеи
_
УН
1(1,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,16,61,16,7,0);

Страницы