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

UptoLike

ВУЗ: 

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

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

Рубрика: 

•Cf,
г
, rx, k, kl, 11, rxo, rxl, rx2, rx3,rx4: real; >
a, b,zo,ryo, ix,ixo, iy, iyl, al, a2, a3, iy3, iy2,bl,
ЬЕ
,
ЬЗ
: pr;
ij: integer;
fl,f2:text;
norn_f: string [121;
key:char;
xxl,xx2,yyl,yy2:integer;
zz,fl:integer;
aa: array[1..3] of real;
bb:array[1. .7] of real;
procedure windl(xl,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(0);
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('!');
end; END;
window(xl,yl,x2,y2);
textbackground(colf);
clrscr;
textcolor(colr);
gotoxy(2,l); write
('r');

Страницы