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

UptoLike

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

Рубрика:

Nachalo;

textbackground(0);

clrscr;

Chapka;

xxl:=64;

УУ

1:=

;

for i:=1 to 3 do

aaCi]:=0; for i:=l

to 3 do begin

ocno_curs(xxl,yyl,xxl+12,yyl,3,'y');

yyl:=yyl+4; end; yyl:=6;

repeat

ocno_curs(xxl,yyl,xxl+12,yyl,l,'y');

key:=readkey; case key of

chr(80):begin

ocno_curs(xxl,yyl,xxl+12,yyl,3,'y');

if yyl<13 then

begin

yyl:=yyl+4;

end

else begin

yyl:=6; end; end;

chr(72):begin

ocno_curs(xxl,yyl,xxl+12,yyl,3,'

');

if yyl>6 then