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

UptoLike

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

Рубрика:

write('!');

end;

for i:=(xl+l) to (x2+l) do

begin

gotoxy(i,y2+i);

write('!'); end; END;

window(xl,yl,x2,y2);

textbackground(coif);

clrscr;

textcolor(colr);

gotoxy(2,l); write

');

for i:=S to (x2-xl-l) do

begin

gotoxy(i.l);

write ('-');

end;

gotoxy(x2-xl,i); write('|');

for i:=2 to (y2-yl) do begin

gotoxy(2,i);

writeC!');

gotoxy(x2-xl,i); write('B'); end;

gotoxy(2,y2-yl+l);

write ('"•');

for i:=3 to (x2-xl-l) do

begin

gotoxy(i,y2-yl+i);

write ('='); end;

gotoxy(x2-xl,y2-yl+l); writeC-»'); end;

procedure new_win(xl,yl,x2,y2,col_f:byte);