Заполнение матрицы - PascalABC.NET

Формулировка задачи:

const
  N = 4;
 
var
  A: array [0..N - 1, 0..N - 1] of integer;
  Value: integer := 1;
  X, Y: integer;
  VecXY: integer := 1;
 
procedure CorrectValue(var v: integer);
begin
  if v < 0 then
    v := 0
  else if v = N then
    v := Pred(N);
end;
 
begin
  for var i := 1 to Sqr(N) do
  begin
    A[X, Y] := Value;
    X -= VecXY;
    Y += VecXY;
    
    VecXY := 1 - 2 * Ord((X < 0) or (Y < 0) or (X = N) or (Y = N));
    CorrectValue(X);
    CorrectValue(Y);
    
    Inc(Value);
  end;
  
  for var i := 0 to Pred(N) do
  begin
    for var j := 0 to Pred(N) do
      Write(A[i, j]: 4);
    Writeln();
  end;
end.

Почему не работает? Заполнение должно быть такое: Алгоритм такой думаю: - Записываю значение Value в A[X, Y] - Сдвигаю точку (X, Y) на вектор (-VecXY, VecXY) - Изменяю направление вектора, если точка оказалась вне границ матрицы - Корректирую координаты точки - Повторяю все заново

Решение задачи: «Заполнение матрицы»

textual
                            Листинг программы 
                        

                            const
  n = 4;
 
function F(i, j : integer) : word :=
  (i + j) >= n ? Sqr(n) - F(n - 1 - i, n - 1 - j) + 1 :
                 (i + j) * Succ(i + j) div 2 + 1 + ((i + j) mod 2) * (i - j) + j;
 
begin
  MatrGen(n, n, (i, j) -> F(j, i)).Println();
end.
                        

Оцени полезность:

10 голосов , оценка 3.7 из 5

Похожие ответы