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

UptoLike

ВУЗ: 

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

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

Рубрика: 

for i:=l to 6 do aaCil:=0; for i:=l to 6 do
begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
'); yyl:=yyl+2; end; yyl:=5; 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,'
у
'); if yyl<15 then begin
yyl:=yyl+2; end
else begin yyl:=5; end; end;
chr(72):begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
'); if yyl>5 then begin
yyl:=yyl-2; end else begin yyl:=15; end; end;
chr(13):vvod_dan(yyl); Chr(27):QUITE; end; until
false;

Страницы