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

UptoLike

Begin
VvodWindow(xxxl,yyyl,xxx2,yyy2,col_okno,0);
begin
if (yyl=3) and (fl='y') then
begin
gotoxyd,!);
write (
ааШ
: 12:1);
end;
if (yyl=5) and (fl='y') then
begin
gotoxy(l,l);
write(aa[2]:12:l);
end;
if (yyl=7) and (fl='y') then
begin
gotoxyd,!);
write(aaC3]:12:l);
end; if (yyl=9) and (fl='y')
then
begin
gotoxy(l,l);
write(aaC4]:!£:!);
end;
if (yyl=ll) and (fb'y') then
begin
gotoxy(l,l);
write(aa[53:12:l);
end;
if (yyl=13) and (fl='y') then
begin
gotoxy(l,l);
wrlte(aaC6]:12:l);
end;
if (yyl=15) and (fl='y') then
begin
gotoxy(l
f
l);
write(aa[?]:12:l);
end;