WriteC!’); End

For i:=(xl+l) to (x2+l) do begin gotoxy(i, y2+i); write(‘!’); end; END; window(xl, yl, x2,y2); textbackground(coif); clrscr;

Textcolor(colr); gotoxy(2,l); write (‘r’);

For i:=S to (x2-xl-l) do begin

Gotoxy(i. l); write (‘-‘); end;

Gotoxy (x2-xl, i); write(‘|’); for i:=2 to (y2-yl) do begin

Gotoxy(2,i); writeC!’); gotoxy (x2-xl, i); write (‘B’); end; gotoxy^y^-yl+l); write (‘"•’);

For i:=3 to (x2-xl-l) do begin

Gotoxy (i, y2-yl+i); write (‘ = ‘); end;

Gotoxy (x2-xl, y2-yl+l); writeC-»’); end; procedure new_win (xl/yl/x2/y2,col_f:byte);

Begin

Window(1,1,80,25); textbackground(O); textco1or(O); c1rscr; textbackground(co1_f); for i:=y1 to y2 do for j:=(x1+1) to (x2-1) do begin gotoxyOM); write (‘I’); end; END;

Procedure Wo^indow (x1,y1,x2,y2,co11,co!2:byte);

Begin

Window(x1,y1,x2,y2); TextCo1or(co12); TextBackGround(co11); c1rscr; End;

Procedure Nacha1o; Begin

New_win (1,1,80,25,1); wind1(8,6,71,20,3,0,’y’,3);

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

Gotoxy(4,4); write(‘НО-СЖАТОЙ КОЛОННЫ СПЛОШНОГО СЕЧЕНИЯ. ПОДБИРАЕТСЯ СЕМЬ ВА-‘);

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

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

Gotoxy(4,7); write(‘КАКОЕ СЕЧЕНИЕ И ИЗ СКОЛЬКИХ УГОЛКОВ ОНО СОСТОИТ, А ТАКЖЕ’);

Gotoxy(4,8); write(‘ПЛОЩАДЬ ОДНОГО УГОЛКА. ПО ДАННОЙ ПЛОЩАДИ И СОРТАМЕНТУ ВЫ’); gotoxy(4,9);

Write СБИРАЕТСЯ НОМЕР УГОЛКА. В ВДДОМ ВАРИАНТЕ СЕЧЕНИЕ СОСТОИТ’);

Gotoxy(4,10); __

Write(‘ffi ОДИНАКОВЫХ УГОЖОВ ПО ГОСТу 8509-93. ИЗ ПРЕДЛОЖЕННЫХ’); gotoxy(4,ll);

Write(‘ВАРИАНТОВ ВЫБИРАЕТСЯ БОЖЕ ОПТИМАЛЬНЫЙ. ПРОГРАММА НАПИСАНА); gotoxy(4,12);

Write(‘HA ЯЗЫКЕ ПАСКАЛЬ В 1998 г.’); gotoxy(4,13);

Write(‘ АВТОРЫ: МАКАРОВ А. А., МАКАРОВА Н. А. ‘); repeat



.