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

UptoLike

vvodwindow(2,(
б
+k),78,(6+k),3,0);
gotoxy(l,l);
writeC ' +
I
>);
k:=k+l;
end; end; k:=l; end;
if (key=chr(72)) and (o>l)then begin
o:=o-l;
clrscr;
if n>10*o then
for i:=(10*(o-l)+l) to 10*o do begin
with bbEi] do begin
vvodwindow(2,(6+k),78,(6+k),3,0);
gotoxy(l,l);
writeC |',Hw:8:l,'|',Tw:8:l,'|',Bf:8:l,' ',
Tf:8:l,' ',1:9:1,' ',DE1:9:1,' ',DE11:8:1,'
,F:8:1,' ');
end; k:=k+l;
end;
if n<=10*o then
begin
for i:=(10*(o-l)+l) to n do
begin
with bbEi] do begin
vvodwindow(2,(6+k),78,(6+k),3,0); gotoxy(l,l);
writeC |',Hw:8:l,'|',Tw:8:l,'|',Bf:8:l,'|',
Tf:8:l,' ',1:9:1,' ',DE1:9:1,' ',DE11:8:1,'
*,F:8:1,' ');
end; k:=k+l;