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

UptoLike

ВУЗ: 

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

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

Рубрика: 

for i:=3 to (x2-xl-l) do
begin
gotoxy(i,l);
write ('-');
end;
gotoxy(x2-xl,l);
write('j');
for i:=l 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-yH-l);
write ('-');
end;
gotoxy(x2-xl,y2-yl+l);
write ('••');
end;
procedure new_win(xl,yl,x2,y2,col_f:byte);
begin
window(l,l,80,25);
textbackground(O);
textcolor(O); clrscr;
textbackground(col_f); for
i:=yl to y2 do for 3:=(xl+l)
to (x2-l) do begin
gotoxy(j,i);
write('•'); end;
END;
Procedure VvodWindow(xl,yl,x2,y2,coll,co!2:byte);

Страницы