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

UptoLike

ВУЗ: 

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

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

Рубрика: 

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);
writer-"');
end;
procedure new_win(xl,yl,x2,y2,col_f:byte);
begin
window(1,1,80,25);
textbackground(0);
textcolor(O);
clrscr;
textbackground(col_f); for i:=yi
to y2 do for
з
:=(
х
1+1) to (x2-l)
do begin gotoxy(j,i);
write('i');
end;
END;
Procedure VvodWindow(xl,yl,x2,y2,coli,co!2:byte);
Begin
Window(xl,yl,x2,y2);
TextColor(col2);
TextBackGround(coll); clrscr;
End;
procedure Nachalo;
Begin
new_win(l,1,80,25,1); windl(8,5,71,20,3,0,'y',3);
gotoxy(7,3);
write('
ПРОГРАММА
ПРЕДНАЗНАЧЕНА
ДЛЯ
РАСЧЕТА
СТАЛЬНЫХ
СОСТАВНЫХ
');

Страницы