Максимальное расстояние между узлами соединительных пластин или решетки 1=

5.4.3. ТЕКСТЫ ПРОГРАММ

Первая программа "БТЕК 1" предназначена для подбора цент­рально-сжатой колонны сплошного сечения. Расчет сводится к подбору семи вариантов сечений колонны из равнополочных уголков:

— из одного уголка;

— тавровое сечение из двух уголков;

— крестовое сечение из двух уголков;

— коробчатое сечение из двух уголков;

— коробчатое сечение из четырех уголков;

— крестовое сечение из четырех уголков;

— двутавровое сечение из четыырех уголков.

Результатом расчета является описание варианта и площадь се­чения одного уголка, по которой принимается по сортаменту номер уголка. Каждое сечение состоит из одинаковых равносторонних уголков по ГОСТу 8509-93\ Из подобранных вариантов выбирается более оптимальный или с учетом наличия уголка. Программа написана на языке Паскаль.

Текст программы приведен ниже:

Program uu; uses crt, graph; type pr=array C1..70] of real; var 1a,1e, si, n,f, r,rx, k,k1,11,rxo, rx1,rx2,rx3,rx4:rea1; a, b,zo, ryo, ix, ixo:pr; 1J: integer; f1,f2:text; ncm_f:strmgC121; key:char; xx1,xx2,yy1,yy2:integer; zz, f1:integer; aa:arrayC1..3] of rea1; bb:arrayd. .7] of rea1;

Procedure wind1(x1,y1,x2,y2:integer;coif, coir:byte;ten:char;co1t:

Byte);

Var i:integer; begin

If ten-‘y* then BEGIN

Window(1,1,80,25); textbackground(O); textco1or(co1t); gotoxy(x1+1,y2+1); for i:=(y1+1) to (y2+1) do begin gotoxy(x2+1,i);



.