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

UptoLike

xxl:=64;
yyl:=3;
for i:=l to 8 do
ааШ
:=0;
for i:=l
to 8 do begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
');
yyl:=yyl+2; end;
yyl:=3;
repeat
ocno_curs(xxl,yyl,xxl+12,yy1,1,'
у
');
key:=readkey; case key of
chr(80):begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
');
if yyl<17 then
begin
yyl:=yyl+2;
end
else begin
yyl:=3; end; end;
chr(72):begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
');
if yyl>3 then
begin
yyl:=yyl-2;
end else