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

UptoLike

ВУЗ: 

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

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

Рубрика: 

-
крестовое сечение из четырех уголков;
-
двутавровое сечение из четырех уголков.
Результатом расчета является описание варианта и площадь се
-
чения одного уголка, по которой принимается по сортаменту номер
уголка. Каждое сечение состоит из одинаковых равносторонних уголков
по ГОСТу 8509
-93\
Из подобранных вариантов выбирается более
оптимальный или с учетом наличия уголка. Программа написана на
языке Паскаль.
Текст программы приведен ниже:
program uu; uses
crt,graph; type
pr=array Cl..70] of real; var
la,le,si,n,f,r,rx,k,kl,ll,rxo,rxl,rx2,rx3,rx4:real;
a,b,zo,ryo,ix,ixo:pr; 1J: integer; fl,f2:text;
nom_f:string
С
121; key:char;
xxl,xx2,yy1,yy2:integer;
zz,fl:integer; aa:arrayC1..3] of
real; bb:arrayd. .7] of real;
procedure windl(xl,yl,x2,y2:integer;coif,coir:byte;ten:char;colt:
byte);
var i:integer;
begin
if ten-'y* then
BEGIN
window(1,1,80,25);
textbackground(O);
textcolor(colt);
gotoxy(xl+l,y2+l); for
i:=(yl+l) to (y2+l) do begin
gotoxy(x2+l,i);

Страницы