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

UptoLike

gotoxy(3,8);
write(
');
gotoxy(3,9);
write(
>———————————————————————————————————————.—————————————————— ————————————————');
gotoxy(3,10);
write(
');
gotoxy(3,ll);
write(
' 3.
РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ СТАЖ, кг/см
2
')
;
gotoxy(3,12);
write(
');
End;
procedure Ocno_Curs(xxxl,yyyl,xxx2,yyy2,col_okno:integer;f1:
char);
Begin
VvodWindow(xxxl,yyyi,xxx2,yyy2,col_pkno,0);
begin
if (yyl=6) and (fl='y') then
begin
gotoxy(l,l);
write(aa[l]:i2:i);
end;
if (yyl=10) and (fl='y') then
begin
gotoxyCl.l);
write(aaC21:12:1);
end;
if (yyl=14) and (fl='y') then
begin
gotoxyd.l);
write(aa[3]:12:1);
end;