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

UptoLike

ВУЗ: 

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

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

Рубрика: 

write ('='); end;
gotoxy(x2-xl,l); write
С
-
н
'); for i:=l to
(y2-yl) do begin
gotoxy(2,i); write('ll');
gotoxy(x2-xl,i); writeC Ip;
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); writeC'J"');
end;
procedure new_win(xl,yl,x2,y2,col_f:byte); begin
window(1,1,80,25);
textbackground(0);
textcolor(O); clrscr;
textbackground(
со
l_f); for i:=yl to y2
do for 5:=(xl+l) to (x2-l) do begin
gotoxy(j,i);
write('!'); end; END;
Procedure VvodWindow(xl,yl,x2,y2,coll,co!2:byte); Begin
Window(xl,yl,x2,y2);
TextColor(col2);

Страницы