Преобразование матрицы, Сложная задача Опции

[irena]

Я еще плохо разбираюсь в массивах и у меня не получается решить эту задачу, помогите пожалуйста.

Назовем допустимым преобразованием матрицы смещение строк матрицы на одну снизу вверх и столбцов на один справа налево, при этом первая строка опускается вниз, а первый столбец становится последним. Дана действительная квадратная матрица порядка n. С помощью допустимых преобразований добиться того, чтобы элемент матрицы, обладающий наименьшим значением, располагался в левом верхнем углу матрицы.

Заранее благодарна

Сообщение отредактировано: irena - 20.10.2004 20:02

[volvo]

const
  n = 5;
  maxValue = 150000.0;

  { С этой матрицей я тестировал программу 
  matrix: array[1 .. n, 1 .. n] Of real =
    ((3, 5, 8, 2, 9),
     (2, 7, 9, 1, 4),
     (5, 3, 8, 6, 8),
     (7, 4, 6, 9, 2),
     (5, 2, 7, 8, 4));
  }

var
  matrix: array[1 .. n, 1 .. n] Of real;
  min: real;
  iRow, iColumn: Integer;
  count_col, count_row: Integer;

{ Процедура сдвигает матрицу вниз }
procedure moveRow;
  var
    i, j: integer;
    T: real;
  begin
    for i := 1 to n do
      begin
        T := matrix[1, i];
        for j := 2 to n do
          matrix[j - 1, i] := matrix[j, i];
        matrix[n, i] := T;
      end;
  end;

{ Процедура сдвигает матрицу влево }
procedure moveColumn;
  var
    i, j: integer;
    T: real;
  begin
    for i := 1 to n do
      begin
        T := matrix[i, 1];
        for j := 2 to n do
          matrix[i, j - 1] := matrix[i, j];
        matrix[i, n] := T;
      end;
  end;

begin
  writeln( 'Введите матрицу (построчно):' );
  for iRow := 1 to n do
    begin
    WriteLn( 'Строка #', iRow );
    for iColumn := 1 To n do
      begin
        write( 'matrix[', iRow, ',', iColumn, '] =' );
        readln(matrix[iRow, iColumn])
      End;
    writeln;
    end;

  { Находим минимальное значение в матрице ... }
  min := maxValue;
  for iRow := 1 to n do
    for iColumn := 1 To n do
      if min > matrix[iRow, iColumn] then
        begin
          min := matrix[iRow, iColumn];
          { ... и запоминаем его позицию }
          count_row := iRow;
          count_col := iColumn
        end;

  { распечатываем исходную матрицу }
  for iRow := 1 to n do
    begin
    for iColumn := 1 To n do
      write( matrix[iRow, iColumn]:5:2 );
    writeln;
    end;

  WriteLn;

  { сдвигаем нужное число раз }
  {(вниз)}
  for iRow := 1 to Pred(count_row) Do moveRow;
  {(влево)}
  for iColumn := 1 to Pred(count_col) Do moveColumn;

  { распечатываем полученную матрицу }
  for iRow := 1 to n do
    begin
    for iColumn := 1 To n do
      write( matrix[iRow, iColumn]:5:2 );
    writeln;
    end;
end.

Все работает...