Матрицы

[manchester_alan]

Помогите придумать... Вот к примеру матрица...

0 0 0 0 0 0 0
0 0 1 1 1 0 0
0 0 0 0 0 0 0

и надо чтоб все числа вокруг единицы тоже стали единицами вот так...

0 1 1 1 1 1 0
0 1 1 1 1 1 0
0 1 1 1 1 1 0

просто хотя бы как сделать словами, программу саму не нужно)

[BDA]

Самое простое:
Пройтись по матрице и для каждой единицы вокруг поставить 2 вместо 0;
Пройтись еще раз по матрице, заменяя 2 на 1.

[manchester_alan]

ну мне это надо примерно... b2[... , ...]:=.... вот с i , j это как реализовать...?

именно соседние, а так числа могут быть и из 4 ячеек или 3 или 2 или 1...

в общем это морской бой, надо чтоб вокруг убитого корабля поставить точки типо подбит...и вот как найти эти соседние элементы вокруг корабля..

[Serge_Bliznykov]

Сообщение от BDA

Самое простое:
Пройтись по матрице и для каждой единицы вокруг поставить 2 вместо 0;
Пройтись еще раз по матрице, заменяя 2 на 1.

на самом деле, менять 2-ки на единицы потом смысла нет.
Автору топика нужно так отметить поля в игре "Морской бой", куда стрелять уже не надо (вокруг потопленного корабля противника).
Использовать другой код для отметки, на мой взгляд, хорошая идея. Можно отображать просто точками (как обычные выстрелы "мимо"). а можно, при желании, отобразить эти поля по другому. ну, например, заштриховать или затенить серый цветом...

впрочем, это уже детали...

[manchester_alan]

ну так есть идеи, как это с i,j делать...? b2[... , ...]:=

[Аватар]

есть i,j ячейки с 1
Ну и проверяй 8 ячеек вокруг, не забывая того, что индексы не должны вывалиться за массив

[evg_m]

Пройтись по матрице и для каждой единицы вокруг поставить 2 вместо 0;

if ( b2[i,j]=1 ) //ячейка занята (или что там)
  and ( j+1 <= ....) // есть ли сосед в этом направлении
            and ( b2[i,j+1] =0 ) //соседняя в этом направлении свободна 
                                        then b2[i,j+1]:=2;

и так для ВСЕХ соседних с b2[i,j];

просто хотя бы как сделать словами, программу саму не нужно)

А какие соседние?
там где индекс отличается на единицу.

[manchester_alan]

да сам принцип понятен..( а вот у меня это как сделать...?

for i:=1 to 10 do           //графическое поле компьютера
   for j:=1 to 10 do
    begin
    case b2[i,j] of
    4: begin                     //подбитый или не до конца корабль
         if ((b2[i+1,j]=2)        //не до конца подбитый
          or(b2[i,j+1]=2)
          or(b2[i-1,j]=2)
          or(b2[i,j-1]=2))
          or (((b2[i+1,j]=4)and(b2[i+2,j]=2))
          or((b2[i,j+1]=4)and(b2[i,j+2]=2))
         or((b2[i-1,j]=4)and(b2[i-2,j]=2))
         or((b2[i,j-1]=4)and(b2[i,j-2]=2)))
         or(((b2[i+1,j]=4)and(b2[i+2,j]=4) and (b2[i+3,j]=2))
          or((b2[i,j+1]=4)and(b2[i,j+2]=4)and(b2[i,j+3]=2))
         or((b2[i-1,j]=4)and(b2[i-2,j]=4)and(b2[i-3,j]=2))
         or((b2[i,j-1]=4)and(b2[i,j-2]=4)and(b2[i,j-3]=2)))
            then
          begin
              cfield.Canvas.Brush.Color:=clYellow;
              cfield.Canvas.Rectangle(25*i-25,25*j-25,25*i,25*j)
              end
             else                                   //убитый
              begin
               cfield.Canvas.Brush.Color:=clred;
               cfield.Canvas.Rectangle(25*i-25,25*j-25,25*i,25*j);
               // вот здесь нужно найти соседние элементы рядом с убитым кораблем...
              end

[manchester_alan]

  b2[i-1,j-1]:=3;
                  b2[i,j-1]:=3;
                  b2[i+1,j-1]:=3;
                  b2[i-1,j]:=3;
                  b2[i+1,j]:=3;
                  b2[i-1,j+1]:=3;
                  b2[i,j+1]:=3;
                  b2[i+1,j+1]:=3;

вот так правильно но тут он ставит только лишь по 1палубному кораблю...а как сделать на любой корабль?

[evg_m]

вместо ОДНОЙ ячейки корабля (i,j)
пройтись по ВСЕМ ячейкам ЭТОГО корабля
какие это ячейки? ну наверное как-то +/- i/j.
и для всех таких ячеек делать то что нужно.
Чтобы было понятнее (тебе самому) таких действия лучше "заворачивать" в процедуры. Например

procedure отметитьпопаданиевкорабль(x,y: word; //координаты попадания);
begin
// а здесь то, что мы должны сделать 
// с этой точкой 
// и ВСЕМИ точками зависящими от нее. 
end;

procedure отметитькорабль(x1,y1, x2,y2: word //координаты начала конца корабля
                                    );
...

TEnumWordDir =(ewd_up, //корабль идет вверх
                        ewd_down, 
                        ewd_left,
                        ewd_right
                     );

procedure отметитькорабль2(x,y: word; //координаты начала корабля
                                        len: word; //число палуб
                                        dir: TEnumWordDir //направление корабля  
                                     );
...