Я еще плохо разбираюсь в массивах и у меня не получается решить эту задачу, помогите пожалуйста.
Назовем допустимым преобразованием матрицы смещение строк матрицы на одну снизу вверх и столбцов на один справа налево, при этом первая строка опускается вниз, а первый столбец становится последним. Дана действительная квадратная матрица порядка n. С помощью допустимых преобразований добиться того, чтобы элемент матрицы, обладающий наименьшим значением, располагался в левом верхнем углу матрицы.
Заранее благодарна
irena
Уточнение: допустимая операция делает эти 2 действия сразу или можно по отдельности?
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.
Здорово!
Только не понятно что такое Pred(count_row)
Если тебя не затруднит, посмотри еще одну задачу:
Дана последовательность из 100 различных целых чисел. Найти сумму чисел этой последовательности, расположенных между максимальным и минимальным числами, в сумму включить и оба этих числа. Поиск максимального и минимального чисел организовать в подпрограмме.
Я сделал для 10-ти элементов ... измени n на 100 и добавь недостающие значения в массив...
А чё нужно поменять чтоб максимальный элемент был в верхнем левом углу а не минимальный?
Вот тут:
{ Находим минимальное значение в матрице ... }Нужно находить не минимальное значение, а максимальное. И запоминать, соответственно, его позицию...
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;
Да что ты говоришь? До какой же степени нужно "плохо разбираться", чтобы не уметь добавить один минус и сменить знак с ">" на "<" ???
Название переменной MIN можно не менять - на правильность выполнения программы оно не влияет... Хотя можешь и поменять его на MAX...
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;
вот ещё один последний вопрос по этой программе.
Если матрица не квадратная а на пример 5 на 9,или 11 на 6.Нужно ввести ещё одну константу m.Тогда матрица будет выгледить так: matrix: array[1 .. n, 1 .. m] Of real;
И вот сам вопрос : что нужно поменять и добавить в коде программы в связи с заменой n на m?
Если не затруднит пожалуйста объесните.
Пожалуйста посмотрите что у меня в коде программы неправельно:
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.