Procedure Nachalo; Begin

New_win(1,1/80/25/1); ^31(8,6,71,20,3,0,^,3);

Gotoxy(7,3); write (‘ПРОГРАММА ПРЕДНАЗНАЧЕНА ДЛЯ ПОДБОРА СЕЧЕНИЙ ОДНОПРОЛЕТ-‘);

G0t0xy(4,4); write(‘НЫХ СТАТИЧЕСКИ ОПРЕДЕЛИМЫХ СТАЛЬНЫХ БАЛОК. В РЕЗУЛЬТАТЕ’);

Gotoxy(4,5); write(РАСЧЕТА ПОДБИРАЮТСЯ МИНИМАЛЬНО НЕОБХОДИМЫЕ БАЛКИ ДВУТАВРО);

Gotoxy(4,6); write(‘ВОГО СЕЧЕНИЯ. ПОДБОР ПРОИЗВОДИТСЯ ДВУХ ВАРИАНТОВ. ПЕРВЫЙ);

Gotoxy(4,7); write (‘ВАРИАНТ ИЗ ДВУТАВРА ПО ГОСТ 8239-89 , ВТОРОЙ ИЗ ДВУТАВРА);

Gotoxy(4,8); write(‘C ПАРАЛЛЕЛЬНЫМИ ГРАНЯМИ ПОЛОК ПО ТУ14-1-24-72, ПРИ ЭТОМ’);

Gotoxy(4,9); write(‘ПРИНИМАЮТСЯ БАЛОЧНЫЕ ДВУТАВРЫ. ПОДБОР СЕЧЕНИЯ БАЛОК’);

Gotoxy(4,10); write(‘ПРОИЗВОДИТСЯ С УЧЕТОМ РАЗВИТИЯ ПЛАСТИЧЕСКИХ ДЕФОРМАЦИЙ. В);

Gotoxy(4,11); write(‘РЕЗУЛЬТАТЕ РАСЧЕТА ВЫДАЕТСЯ ПЛОЩАДЬ ПОДОБРАННОГО СЕЧЕНИЯ); gotoxy(4,12);

Write(‘ПРОГРАММА НАПИСАНА НА ЯЗЫКЕ ПАСКАЛЬ В 1998 г.’); gotoxy(4,13);

Write(‘ АВТОРЫ: МАКАРОВ А. А., МАКАРОВА Н. А. ‘); repeat key:=readkey; if key=chr(27) then



.