Delphi. Проблема с матрицей

[POPOV]

Здраствуйте !!

Есть задание: Дана матрица A(n,n). Найти максимальный элемент на побочной диагонали и поменять местами строку со столбцом на пересечении где был найден максимальный элемент.


Проблема следующая: у меня происходит замена только когда то максимальное число находится в центре и матрица 3х3. При другой размерности матрицы вообще ничего не происходит.
StringGrid2 использовал чтобы туда сохранялось первоначальное значение столбца где был найден максимальный элемент.

Вот то что я написал:

procedure TForm1.Button8Click(Sender: TObject); // Кнопка "Вычислить" на закладке "TStringGrid"
var
i,j,max,c,r:integer;
begin

max:=StrToInt(StringGrid1.Cells[0,n-1]);

for i:=0 to n-1 do
  for j:=0 to n-1 do
  begin
  if i+j=n-1 then
    begin
    if StrToInt(StringGrid1.Cells[j,i]) > max then
    begin
    max:=StrToInt(StringGrid1.Cells[j,i]);
    c:=j; // СОХРАНЯЮ НОМЕР СТОЛБЦА ГДЕ НАЙДЕН МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ
    r:=i;  // СОХРАНЯЮ НОМЕР СТРОКИ ГДЕ НАЙДЕН МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ
    end;
    end;

   Panel1.Caption:='Максимальное число: ' + IntToStr(max);

  end;

// ТУТ Я ПЫТАЮСЬ МЕНЯТЬ
     
for i:=0 to n-1 do    
  for j:=0 to n-1 do
  begin
  StringGrid2.Cols[c]:=StringGrid1.Cols[c];
  StringGrid1.Cols[c]:= StringGrid1.Rows[r];
  StringGrid1.Rows[r]:=StringGrid2.Cols[c];
  end;

end;

Если кто понял что мне нужно , пожалуйста помогите..

[eoln]

Найти максимальный элемент на главной диагонали

max:=StrToInt(StringGrid1.Cells[0, 0]);
c:=0;
for i:=0 to n-1 do
if StrToInt(StringGrid1.Cells[i, i]) > max then
begin
  max:=StrToInt(StringGrid1.Cells[i, i]);
  c:=i
end;
Panel1.Caption:='Максимальное число: ' + IntToStr(max);

StringGrid2.Cols[0]:=StringGrid1.Cols[c];
StringGrid1.Cols[c]:= StringGrid1.Rows[c];
StringGrid1.Rows[c]:=StringGrid2.Cols[0];

[dr.Chas]

Главная диагональ

[POPOV]

Блин, люди извините , перепутал когда писал: не "ГЛАВНОЙ", а "ПОБОЧНОЙ". Сам максимальный элемент правильно находит, а вот с зменой строки на столбец проблема..

[eoln]

max:=StrToInt(StringGrid1.Cells[0,0]) ==> max:=StrToInt(StringGrid1.Cells[0,n-1]);
StringGrid1.Cells[i, i] ==> StringGrid1.Cells[i, n-1-i]

[POPOV]

Сообщение от eoln

max:=StrToInt(StringGrid1.Cells[0,0]) ==> max:=StrToInt(StringGrid1.Cells[0,n-1]);
StringGrid1.Cells[i, i] ==> StringGrid1.Cells[i, n-1-i]

Можете пояснить ?, я что-то непонял..

Почему например максимальному изначально присвоить первый элемент StringGrid'а если я работаю с побочной диагональю.
И что вы имели ввиду во второй строке вашего поста (что на что менять).

[eoln]

Почему например максимальному изначально присвоить первый элемент

max:=StrToInt(StringGrid1.Cells[0,n-1] - это верхний правый элемент матрицы. Более подробно:

max:=StrToInt(StringGrid1.Cells[0,n-1]);
c:=0;
for i:=0 to n-1 do
if StrToInt(StringGrid1.Cells[i, n-1-i]) > max then
begin
  max:=StrToInt(StringGrid1.Cells[i, n-1-i]);
  c:=i
end;
Panel1.Caption:='Максимальное число: ' + IntToStr(max);

[POPOV]

В StringGrid'е ведь сначала в квадратных скобках указывается столбец, затем строка. Опять же с внесёнными поправками правильно меняет местами строку и столбец только в матрице 3х3 и только если максимальным является центральный элемент матрицы.

Для примера ввожу матрицу:

1 2
3 4

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

4 2
3 1

А у меня сейчас получается так:

1 3
2 4

[puporev]

Ну если все знаешь, так переставь местами 0 и n-1, подумаешь, опечатался человек, так что из этого бодягу разводить.

[Slicker]

Сообщение от POPOV

В StringGrid'е ведь сначала в квадратных скобках указывается столбец, затем строка. Опять же с внесёнными поправками правильно меняет местами строку и столбец только в матрице 3х3 и только если максимальным является центральный элемент матрицы.

Для примера ввожу матрицу:

1 2
3 4

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

4 2
3 1

А у меня сейчас получается так:

1 3
2 4

Если тебе нужно записать столбцы в строки, тоесть транспонирование матрицы, то получиться должно как раз таки

1 3
2 4