ВУЗ:
Составители:
Рубрика:
5.2.3. ТЕКСТ ПРОГРАММ "
BALKA 2"
Программа предназначена для расчета стальных составных балок
двутаврового сечения. Расчет заключается в подборе множеств вари
-
антов сечений, начиная от минимальной высоты балки до высоты двух
метров с заданным шагом изменения высоты балки. Для каждого вари
-
анта подбирается минимальное сечение с необходимыми проверками по
прочности и жесткости. По результатам расчета можно выбрать необ
-
ходимый вариант сечения. Сечение может быть принято оптимальное,
заданной высоты или принято по наличию сортамента. Толщины приня
-
тых листов дискретны сортаменту. Программа написана на языке Пас
-
каль.
Текст программы приведен ниже:
program uu; uses
crt,graph;
var key:char;
xxl,yyl:integer;
i,j,n,fl:integer;
q,1,ryl,ry2,ry3,s:real;
f4:text;
nom_f:string
С
123;
aa:array[1..6] of real;
bb:arrayCl..150] of record
hw,tw,bf,tf,a,del,dell,f:real;
end;
procedure windl(xl,yl,x2,y2:integer;coif,coir:byte;ten:char;colt:
byte);
Страницы
- « первая
- ‹ предыдущая
- …
- 97
- 98
- 99
- 100
- 101
- …
- следующая ›
- последняя »
