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

UptoLike

ВУЗ: 

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

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

Рубрика: 

read(fl,ix[i]); for
i:=l to 23 do
read(fl,iyCil); for
i:=l to 22 do
read(fl,al[13); for
i:=l to 22 do
read(fl,ixlCi]);
for i:=l to 22 do
read(fl,iyl[i]);
Nachalo;
textbackground(O);
clrscr; Chapka;
xxl:=64;
yyl:=6;
for i:=l to 3 do
aa[i]:=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,1,'
у
');
key:=readkey; case key of
chr(80):begin
ocno_curs(xxl,yyl,xxl+12,yyl,3,'
у
');
if yyl<13 then
begin
yyl:=yyl+4;
end

Страницы