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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Window(xl,yl,x2,y2);
TextColor(col2);
TextBackGround(coll);
clrscr; End;
procedure Nachalo;
Begin
new_win(l,1,80,25,1);
windl(8,6,71,20,3,0,'y',3);
gotoxy(7,3); write
('ПРОГРАММА ПРЕДНАЗНАЧЕНА ДЛЯ ПОДБОРА СТАЛЬНОЙ
ЦЕНТРАЛЬ
-');
gotoxy(4,4); write
('НО
-
СЖАТОЙ КОЛОННЫ СКВОЗНОГО СЕЧЕНИЯ.ПОДБИРАЕТСЯ
ДВА ВА
-');
gotoxy(4,5); write
('РИАНТД СЕЧЕНИЯ.СЕЧЕНИЯ СОСТОЯТ ИЗ ШВЕЛЛЕРОВ И
ДВУТАВРОВ);
gotoxy(4,6); write
('В РЕЗУЛЬТАТЕ РАСЧЕТА БОДАЮТСЯ ОПИСАНИЯ
ВАРИАНТОВ,ТО ЕСТЬ);
gotoxy(4,7); write
('КАКОЕ СЕЧЕНИЕ ИЗ ДВУХ ШВЕЛЛЕРОВ ИЛИ ДВУТАВРОВ, А
ТАКЖЕ ');
gotoxy(4,8); write
('ПЛОЩАДЬ ОДНОГО ПРОФИЛЯ.ПО ДАННОЙ ПЛОЩАДИ И
СОРТАМЕНТУ ВЫ);
gotoxy(4,9);
write
СБИРАЕТСЯ НОМЕР ПРОФИЛЯ
.
ДЛЯ КАЖДОГО ВАРИАНТА СЕЧЕНИЯ ОПРЕ
);
gotoxy(4,10); write(
>
ДEЛЯETCЯ МИНИМАЛЬНОЕ РАССТОЯНИЕ МЕЖДУ ЦЕНТРАМИ
ТЯЖЕСТИ
BET);
gotoxy(4,ll); write
('ВЕЙ И МАКСИМАЛЬНОЕ РАССТОЯНИЕ МЕЖДУ УЗЛАМИ
РЕШЕТКИ. ');
gotoxy(4,12); write
('ПРОГРАММА НАПИСАНА НА ЯЗЫКЕ
ПАСКАЛЬ В 1998 г.');
gotoxy(4,13);
write
(' АВТОРЫ: МАКАРОВ А.А., МАКАРОВА Н.А.
');
repeat
key:=readkey; if
key=chr(27) then
begin
break;
end;

Страницы