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

UptoLike

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

Рубрика:

ixl:pr; i J: integer;

fl,f2:text;

nom_f:stringC121;

key:char;

xxl,xx2,yyl,yy2:integer;

zz,fl:integer; aa:array

1..33 of

real; bb:arrayd. .61 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+1,y2+l); for

i:=(yl+l) to (y2+l) do begin

gotoxy(x2+l,i);

write('l'); end;

for i:=(xl+l) to (x2+l) do

begin gotoxy(i,y2+l);

write('i');

end; END;

window(xl,yl,x2,y2);

textbackground(colf);

clrscr;

textcolor(colr);

gotoxy(2,1); . writer ••');

for i:=3 to (x2-xl-l) do