For ;h=UlH) to (x2-i) co

Begin gotoxyQ" Д); vrltecL1); enci; END;

Procecure VvodWindow(x1,yl, x2,y2,coll, col?:byte);

Begin

Wi^ow^^yl^^); TextColor(col2); TextBackQrounc(col1); clrscr; Encl;

Procecure Nachalo; Begin

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

Gotaxy(7,3); write(‘ПРОГРАММА ПРЕДНАЗНАЧЕНА ДЛЯ ОПРЕДЕЛЕНИЯ НЕСУЩЕЙ СПОСОБ — ‘);

Gotoxy(4,4); writeCHOCrra СТАЛЬНОЙ СОСТАВНОЙ БАЛКИ ДВУТАВРОВОГО СИММЕТРИЧНОГО);

Gotoxy(4,5); write Г СЕЧЕНИЯ, СОСТОЯЩЕГО ИЗ ТРЕХ ЛИСТОВ. В РЕЗУЛЬТАТЕ РАСЧЕТА’);

Gotoxy(4,6); write(‘ОПРЕДЕЛЯЮТСЯ ТРИ МАКСИМАЛЬНЫХ ЗНАЧЕНИЯ РАВНОМЕРНО’РАСПРЕ’);

Gotoxy(4,7); write(‘ДЕЛЕННОЙ НАГРУЗКИ:

Gotoxy(4,8);

WriteC — ПО МАКСИМАЛЬНЫМ НОРМАЛЬНЫМ НАПРЯЖЕНИЯМ;

Gotoxy(4,9);

WriteC — ПО МАКСИМАЛЬНЫМ КАСАТЕЛЬНЫМ НАПРЯЖЕНИЯМ;

/

Gotoxy(4,10);

Writer — ПО МАКСИМАЛЬНОМУ ПРОГИБУ БАЛКИ. ;

Gotoxy(4,ll); write(‘НЕСУЩАЯ СПОСОБНОСТЬ РАВНА МИНИМАЛЬНОМУ ИЗ ТРЕХ НАЙДЕННЫХ’);

Gotoxy(4,12); write(‘ЗНАЧЕНИЙ. ПРОГРАММА НАПИСАНА НА ЯЗЫКЕ ПАСКАЛЬ В 1998 г.’);

Gotoxy(4,13);

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



.