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

UptoLike

ВУЗ: 

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

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

Рубрика: 

write(
'———————————————————————————— ———————');
gotoxy(3,10); write(
');
gotoxy(3,ll);
write(
' 3. РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ СТАЖ, кг/см^
');
gotoxy(3,12);
write(
');
End; procedure Ocno_Curs(xxxl,yyyl,xxx2,yyy2,col_okno:integer;f1:
char);
Begin
VvodWindow(xxxl,yyyl,xxx2,yyy2,col_okno,0);
begin
if (yyl=6) and (fl='y') then
begin
gotoxy(l,l);
write(aa[l]:12:l); end;
if (yyl=10) and (fl='y') then
begin
gotoxy(l,l);
write(aaE2]:12:l); end;
if (yyl=14) and (fl='y') then begin
gotoxy(l,l); write(
ааСЗЗ
:12:1); end;
end; End;
procedure raschet;
label 10,19,20,30; begin
m:=q*l*l/8;

Страницы