Показать сообщение отдельно
Старый 17.11.2011, 16:38   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Миша, хочу предложить решение об организации цикла. Проверено для N=5 (четное количество строк-столбцов; нумерация - с нуля) и для N=6 (нечетное количество). Написано на Паскале - ты уж сам перегони в С и организуй поиск максимумов/минимумов. У меня просто выделяется нужная область. Исходная матрица заполнена единицами, потом для заштрихованной области единицы заменены нулями.

Код:
CONST
 N=6;
VAR
 A:Array[0..N,0..N] of Byte;
 i,j:Byte;

BEGIN

 For i:=0 to N do
  For j:=0 to N do
   A[i,j]:=1;

 For i:=0 to N do
  begin
   For j:=0 to N do
    Write(A[i,j]:2);
   Writeln;
  end;

 Writeln;

 For j:=0 to N div 2 do
  For i:=j to N-j do
   A[i,j]:=0;

 For j:=(N div 2)+1 to N do
  For i:=N-j to j do
   A[i,j]:=0;

 For i:=0 to N do
  begin
   For j:=0 to N do
    Write(A[i,j]:2);
   Writeln;
  end;

 Readln;
END.
Изображения
  
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070