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

UptoLike

ВУЗ: 

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

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

Рубрика: 

END;
window(xl,yl,x2,y2);
textbackground(
со
If);
clrscr;
textcolor(colr);
gotoxy(2,l); write
('r');
for i:=3 to (x2-xl-l) do
begin
gotoxy(i,l);
write ('-');
end;
gotoxy(x2-xl,l); write('-j'); for
i:=2 to (y2-yl) do begin
gotoxy(2,i);
writecp;
gotoxy(x2-xl
Д
);
write('|'); 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
f
yl,x2,y2,col_f:byte);
begin
window(1,1,80,25);
textbackground(O);
textcolor(O);
clrscr;
textbackground(col_f);
for i:=yl to y2 do

Страницы