Write(‘i’)

For i:=2 to (y2-yl) do begin

Gotoxy(2,i); write(‘ll’); gotoxy (x2-xl, i);

Write(‘l’); end; " gotoxy (2,y2- yl+l); write (‘"•’); for i:=3 to (x2-xl-l) do begin

Gotoxy(i, y2-yl+l); write (‘-‘); end; gotoxy (x2- xl/y2-yl+l); writeO«’); end;

Procedure new_win(xl, yl, xЈ/y2/col_f:byte); begin

^indo^(1/1/80,25); textbackground(O); textcolor(O); clrscr; textbackground(col_f); for i:=yl to y2 do for j:=(xl+l) to (x2-l) do begin gotoxy (j. i); write(,l,); end; END;

Procedure VvodWindow(xl, yl/x2/y2/coll/co!2:byte);

Begin

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);



.