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

UptoLike

ВУЗ: 

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

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

Рубрика: 

write(
•
—————————————————————————————————————————————————————————————————————————————————');
end;
repeat
key:=readkey;
if (key=chr(80)) and (bbC10*o].Hw<>0) then begin
clrscr;
o:=o+l;
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,' ',DEll:8:l,'
\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 bbCi] do
begin
vvodwindow(E,(6+k),78,(6+k),3,0);
gotoxy(l,l);
write(' I'.HwiSil.'IMwiSii.'l'.Bfie:!,'!',
Tf:8:l,' ',1:9:1,' ',DE1:9:1,' ',DEll:8:l,'
\F:8:1,' ');
end;
k:=k+l;
end;
for i:=n+l to 10*o do
begin

Страницы