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

UptoLike

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;fl:
char);
Begin
VvodWindow(xxxl,yyyl,xxx2,yyy2,col_okno,0);
begin
if (yyl-6) and (fl='y') then
begin
gotoxy(l,l);
write(aaCl]:12:l);
end;
if (yyl=10) and (fl»'y') then
begin
gotoxy(l,l);
write(aaE2]:12:1);
end;
if (
УУ
1=14) and (fl='y') then
begin
gotoxy(l,l);
write(aaE3]:12:l); end; end;