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

[irena]

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

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

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

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

[loko]

Пожалуйста посмотрите что у меня в коде программы неправельно:

const
 n = 3;
 m = 2;
 maxValue = 150000.0;

var
 matrix: array[1 .. n, 1 .. m] 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 m do
     begin
       T := matrix[i, 1];
       for j := 2 to m do
         matrix[i, j - 1] := matrix[i, j];
       matrix[i, m] := T;
     end;
 end;

begin
 writeln( 'Введите матрицу (построчно):' );
 for iRow := 1 to n do
   begin
   WriteLn( 'Строка #', iRow );
   for iColumn := 1 To m 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 m 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 m 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 m do
     write( matrix[iRow, iColumn]:5:2 );
   writeln;
   end;
end.

Мне нужно ч тоб максимальный элемент находился в верхнем левом углу.А у меня это не выходит.

Сообщение отредактировано: volvo - 2.11.2006 22:44