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

UptoLike

ВУЗ: 

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

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

Рубрика: 

ij.n: integer;
f3,f4:text;
nom_f:stringC12];
key:char;
xxl,xx2,yyl,yy2:integer;
zz,fl:integer; • aa:array[1. .33 of
real; bb:arrayCl..71 of real;
procedure windl(xi,yl,x2,y2:integer;coif,coir:byte;ten:char;colt:
byte);
var i:integer;
begin *•
if ten='y' then
BEGIN
window(1,1,80,25);
textbackground(O);
textcolor(colt);
gotoxy(xl+l,y2+l); for
i:=(yl+l) to (y2+l) do begin
gotoxy(x2+l,i);
write('I'); end;
for i:=(xl+l) to (x2+l) do
begin
gotoxy(i,y2+l);
write('l'); end;
END;
window(xl,yl,x2,y2);
textbackground(colf);
clrscr;
textcolor(colr);
gotoxy(2,l); write
('r');
for i:=3 to (x2-xl-l) do
begin gotoxy(i,l);

Страницы