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

UptoLike

ВУЗ: 

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

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

Рубрика: 

read(f3,ojltil); close(f3); Nachalo;
textbackground(O); clrscr; Chapka;
xxl:=64; yyl:=6;
for i:=l to 3 do aaCi]:=0; for i:=l to 3 do
begin
ocno_curs(xxl,yy1,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,'
у
'); if yyl<12 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 begin
yyl:=yyl-4; end else

Страницы