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

UptoLike

ВУЗ: 

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

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

Рубрика: 

vvodwindow(20,2,60,2,3,0); gotoxy(15,1);
write('
введите
данное
');
ocno_curs(xxl,yyl,xxl+12,yyl,1,'n'); gotoxy(l,l);
if yyl=6 then prover(l); if yyl=10 then
prover(2); if yyl=14 then prover(3);
VvodWindow(20,2,60,2,l,0);
for j:=l to 40 do
begin
gotoxy(o,l);
write('i');
end;
window(60,2,61,2); gotoxy(l.l);
write('i'); q:=aaCl]; l:=aaC2];
r:=aa[31; end;
procedure dok; Begin
new_Win(l,l,80,25,1);
if n=0 then begin
windl(18,8,62,15,5,0,'y',5);
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;

Страницы