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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Nachalo;
textbackground(O);
clrscr; Chapka;
xxl:=64;
yyl:=6;
for i:=l to 3 do
aaEi]:=0; for i:=l
to 3 do begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
');
yyl:=yyl+4; end; yyl: =6;
repeat
ocno_curs(xxl,yyl,xxl+12,yyl,1,'
у
');
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,'y');
if yyl>6 then

Страницы