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

UptoLike

ВУЗ: 

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

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

Рубрика: 

gotoxy(3,12);
write(
' 6.
ШАГ, см
');
End;
procedure Ocno_Curs(xxxl,yyyl,xxx2,yyy2,col_okno:integer;fl:char);
Begin
VvodWindow(xxxl,yyyl,xxx2,yyy2,col_okno,0);
begin
if (yyl=5) and (fl='y') then
begin
gotoxyd.D;
write(aa[l]:12:l);
end;
if (yyl=7) and (fl='y') then
begin
gotoxyd.D;
write(aaC2]:12:l);
end;
if (yyl=9) and (fl='y') then
begin
gotoxy(l,l);
write(aa[3]:12:l);
end;
if (yyl=ll) and (fl='y') then
begin
gotoxyd.D;
write(aaC4]:12:1);
end;
if (yyl=13) and (fl='y') then
begin
gotoxy(l,l);
write(aaC5]:12:1);
end;
if (yyl=15) and (fl='y') then
begin
gotoxy(l.l);
write(aa[63:12:l);
end;

Страницы