Создать массив, элементы которого равны количеству цифр чисел, расположенных по кромке матрицы (Delphi)

[CrOsP]

Подскажите пожалуйста !

[Serge_Bliznykov]

ну, разберите такую программу:

const
  N = 4;

var A:array[1..N, 1..N] of integer;
  B : array[1..4*N-4] of integer;
  i,j,k : integer;
begin
  {сначала заполним матрицу так, чтобы циферки 
    шли по порядку - чтобы было нагляднее увидеть,
    откуда-что берётся.
    Одноврменно будем выдавать матрицу на экран построчно}
  WriteLn('Исходная матрица: ');
  k:=1;
  for i:=1 to N do begin
    for j:=1 to N do begin
       A[i,j] := k;
       Write(A[i,j]:3,' ');
       Inc(k);
    end;
    WriteLn;
  end;
  WriteLn;


  {
   теперь заполним массив B числами расположенными 
    "по кромке" матрицы

    внимание! В задаче в матрицу нужно записывать не сами числа, 
    а их значность. Но мы, для отладки и просмотра алгоритма 
    запишем в матрицу B сами числа из матрицы.

  }

  k:=1;
  WriteLn('Отладка: сначала идём по верхней "кромке" матрицы: ');
  for i:=1 to N do begin {сначала идём по верхней "кромке" матрицы
                          1 ... ->...  N  }
    B[k] := A[1, i];
    Write(B[k]:3,' ');
    inc(K);
  end;
  WriteLn;

  WriteLn('Отладка: идём по крайнему правому столбцу сверху вниз: ');
  for i:=2 to N do begin {теперь идём по крайнему правому столбцу сверху вниз}
    B[k] := A[i, N];
    Write(B[k]:3,' ');
    inc(K);
  end;
  WriteLn;


  WriteLn('Отладка: идём по нижней строчке Справа налево вплоть по первого столбца: ');
  for i:=N-1 downto 1 do begin
    B[k] := A[N, i];
    Write(B[k]:3,' ');
    inc(K);
  end;
  WriteLn;


  WriteLn('Отладка: поднимаемся по первому столбцу от предпоследней строчки до второй строчки: ');
  for i:=N-1 downto 2 do begin
    B[k] := A[ i , 1];
    Write(B[k]:3,' ');
    Inc(k)
  end;
  Dec(k);
  WriteLn;

  WriteLn('Всё. Закончили формирование массива B!');
  WriteLn('Полностью массив B:');
  for i:=1 to K do  Write(B[i]:3,' ');
  WriteLn;

  Readln
end.

[Serge_Bliznykov]

Mad_Cat, кстати, алгоритм у Вас очень хороший (хотя, безусловно и хитромудрый (в хорошем смысле слова, конечно!!) )

но есть один косячок. при i=N получается выход за пределы массива B:

оцените (ваш код с отладочными сообщениями):

for i:=1 to n do
begin
b[i]:=a[1,i];
if (i+n-1)>4*N-4 then
  WriteLn('ERROR! i+n-1 = ',i+n-1, ' при i=',i); 
b[i+n-1]:=a[i,n];
if (i+2*n-2)>4*N-4 then
  WriteLn('ERROR! i+2*n-2 = ',i+2*n-2, ' при i=',i); 
b[i+2*n-2]:=a[n,n-i+1];
if (i+3*n-3)>4*N-4 then
  WriteLn('ERROR! i+3*n-3 = ',i+3*n-3, ' при i=',i); 
b[i+3*n-3]:=a[n-i+1,1];
end;

  WriteLn('Полностью массив B по методу Mad_Cat:');
  for i:=1 to 4*N-4 do  Write(B[i]:3,' ');
  WriteLn;
Readln;

при n=4, например, получаем:

ERROR! i+3*n-3 = 13 при i=4

при размере массива B [1..4*(N-1) получается размер [1..12]
13-го элемента в массиве B нет!

Это я зачем пишу?..
Затем, чтобы кто-то не наступил на грабельки, взяв (не проверив) готовый код!

я бы предложил подправить код (c) Mad_Cat так:

for i:=1 to n do
begin
  b[i]:=a[1,i];
  b[i+n-1]:=a[i,n];
  b[i+2*n-2]:=a[n,n-i+1];
  if i<n then 
      b[i+3*n-3]:=a[n-i+1,1];
end;

[CrOsP]

Спасибо я уже чуть разобрался в вашем коде ( до того как вы пост сделали ) но смотрите я сделал так

getMatrFromGrid(m, nrow, nCol, StringGrid1);
 k:=1;
for i:=0 to Nrow-1 do begin
  B[k] := Length(Trim(StringGrid1.Cells[0, i]));
  x:=b[k];
  inc(K);
  ShowMessage(IntToStr(x));
end;

Это с первого элемента вниз по левому краю . Но показывает 4 значения , хотя матрица 3х3 . Подскажите где я напортачил ?

[CrOsP]

Смотрите , а если матрица будет не квадратной ,то нужно будет поменять N ? На уже количество строк и столбцов ?

[CrOsP]

Если писать как у вас в коде пишет несовместимые типы .

[CrOsP]

Нашел ошибку

getMatrFromGrid(m, nrow, nCol, StringGrid1);
 k:=1;
for i:=1 to Ncol do begin
  b[k] := Length(IntToStr(m[1,i]));
  x:=b[k];
  inc(K);
  ShowMessage(IntToStr(x));
end;

Но все равно выводит 4 значения вместо 3

[CrOsP]

Извините пожалуйста ,просто внизу еще 1 шоумеседж остался )) Сейчас сделаю полный код и отпишусь , чтобы Вы проверили .

[CrOsP]

УРА РАБОТАЕТ !!

getMatrFromGrid(m, nrow, nCol, StringGrid1);
 k:=1;
for i:=1 to Ncol do begin
  b[k] := Length(IntToStr(m[1,i]));
  x:=b[k];
  inc(K);
  ShowMessage(IntToStr(x));
end;
for i:=2 to ncol do begin
  B[k] := Length(IntToStr(m[i, Ncol]));
  x:=b[k];
  ShowMessage(IntToStr(x));
  inc(K);
end;
for i:=Ncol-1 downto 1 do begin
  B[k] := Length(IntToStr(m[Nrow,i]));
   x:=b[k];
  inc(K);

  ShowMessage(IntToStr(x));
end;

for i:=Nrow-1 downto 2 do begin
  B[k] :=Length(IntToStr(m[i,1]));
  x:=b[k];
  inc(K);
   ShowMessage(IntToStr(x));


end;

[CrOsP]

Рано обрадовался с неквадратными матрицами не работает