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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Begin
Window(xl,
у
1,
х
2,
у
2);
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
('ИЗ ОДИНАКОВЫХ ШВЕЛЛЕРОВ ПО ГОСТу 8240
-
89,ИЛИ
ДВУТАВРОВ ПО);
gotoxy(4,ll);
write (TXT 8239-
МИ
ТУ
14-2-24-72.
ПРОГРАММА НАПИСАНА НА ЯЗЫКЕ');
gotoxy(4,12);
write
('ПАСКАЛЬ В 1998 г.');
gotoxy(4,13);
write
(' АВТОРЫ: МАКАРОВ А.А., МАКАРОВА Н.А.
');
repeat
key:=readkey; if
key=chr(27) then
begin
break;

Страницы