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

UptoLike

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

Рубрика:

begin

gotoxy(i,l);

write ('-');

end;

gotoxy(x2-xl,l);

write('i');

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

gotoxy(2,i);

write('ll');

gotoxy(x2-xl,i);

write('l'); end; " gotoxy(2,y2-

yl+l); write ('"•');

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

begin

gotoxy(i,y2-yl+l); write

('-'); end; gotoxy(x2-

xl,y2-yl+l);

write('••'); end;

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

begin

window(1,1,80,25);

textbackground(O);

textcolor(O); clrscr;

textbackground(col_f); for

i:=yl to y2 do for j:=(xl+l)

to (x2-l) do begin gotoxy(j.i);

write('l');

end; END;

Procedure VvodWindow(xl,yl,x2,y2,coll,co!2:byte);

Begin