Матрица

[Rybi]

Вопрос такой, перемещать матрицу получается, но не могу понять как задать перемещение максимального элемента в верхний угол, помогите пожалуйста, горит практическая (матрица вещественная), заранее спасибо

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm3 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
  a:array[0..4,0..4] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm3.Button1Click(Sender: TObject);
var
  j,i,k,m:integer;
  s : String;
begin
  Randomize;
 
  for i:=0 to 4 do
  for j:=0 to 4 do
  Begin
    StringGrid1.Cells[j,i]:=IntToStr(Random(100)-50);
    StringGrid2.Cells[j,i]:=StringGrid1.Cells[j,i];
  End;
 
  k:=StrToIntDef(Edit1.Text,0) Mod 5;
  m:=StrToIntDef(Edit2.Text,0) Mod 5;
 
  for i:=0 to 4 do
  Begin
    s:=StringGrid2.Cells[i,m];
    StringGrid2.Cells[i,m]:=StringGrid2.Cells[i,k];
    StringGrid2.Cells[i,k]:=s;
  End;
end;
 
procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Not (Key In ['0'..'9',#8]) Then Key:=#0;
end;

[northener]

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

Вопрос такой, перемещать матрицу получается, но не могу понять как задать перемещение максимального элемента в верхний угол, помогите пожалуйста, горит практическая (матрица вещественная), заранее спасибо[CODE]

А какие проблемы?
Циклом найди максимальный элемент и затем зная его индексы перемести в "верхний угол".
P.S. Если очень сильно "горит и припекает", то есть и платные разделы форума.

[Rybi]

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

[northener]

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

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

Какому элементу?

[Rybi]

Максимальному, их ведь может быть несколько)

[northener]

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

Максимальному, их ведь может быть несколько...

Тогда уточняй задачу у препода. Что и как нужно делать, если максимальных элементов более одного. Этот вопрос никак к нашему форуму не относится.

[Rybi]

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

Тогда уточняй задачу у препода. Что и как нужно делать, если максимальных элементов более одного. Этот вопрос никак к нашему форуму не относится.

вы меня не поняли, но не буду вдаваться в объяснения, ибо получу обычную мораль.

[Serge_Bliznykov]

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

вы меня не поняли, но не буду вдаваться в объяснения, ибо получу обычную мораль.

Нет, это Вы нас не поняли.
Что нужно делать, если максимальных элементов несколько - это должен решить ваш преподаватель. Или, на крайний случай, Вы сами должны это решить.
Мы же, всего навсего, пытаемся добиться от Вас, ЧТО Вы пытаетесь сделать.
Пока это выяснить не удалось!

Ну вот, допустим, дана такая матрица
1 2 4 8
7 3 2 1
9 4 5 6
2 9 9 4

что должно получиться в итоге, после "установки в верхний угол" ?

p.s. а вообще, переставить два элемента проще простого.
сначала ищете индексы расположения максимального элемента:

IndexRowMax := 0;
IndexColMax := 0;
for i:=0 to n do
  for j:=0 to n do
    if a[i,j]>a[IndexRowMax, IndexColMax] then begin
     IndexRowMax := i; IndexColMax := j
   end

а потом меняете местами элемент матрицы a[0,0] и элемент матрицы a[IndexRowMax, IndexColMax]:

  temp := a[0,0];
  a[0,0] := a[IndexRowMax, IndexColMax];
  a[IndexRowMax, IndexColMax] := temp

вот и всё.

[Rybi]

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

Нет, это Вы нас не поняли.
Что нужно делать, если максимальных элементов несколько - это должен решить ваш преподаватель. Или, на крайний случай, Вы сами должны это решить.
Мы же, всего навсего, пытаемся добиться от Вас, ЧТО Вы пытаетесь сделать.
Пока это выяснить не удалось!

Ну вот, допустим, дана такая матрица
1 2 4 8
7 3 2 1
9 4 5 6
2 9 9 4

что должно получиться в итоге, после "установки в верхний угол" ?

p.s. а вообще, переставить два элемента проще простого.
сначала ищете индексы расположения максимального элемента:

IndexRowMax := 0;
IndexColMax := 0;
for i:=0 to n do
  for j:=0 to n do
    if a[i,j]>a[IndexRowMax, IndexColMax] then begin
     IndexRowMax := i; IndexColMax := j
   end

а потом меняете местами элемент матрицы a[0,0] и элемент матрицы a[IndexRowMax, IndexColMax]:

  temp := a[0,0];
  a[0,0] := a[IndexRowMax, IndexColMax];
  a[IndexRowMax, IndexColMax] := temp

вот и всё.

я об этом и говорила, не будут ли вступать в конфликт несколько макс элементов, при перестановке. Сразу было понятно, что их может быть несколько, поэтому и спросила, вот.

[Serge_Bliznykov]

не будут ли вступать в конфликт несколько макс элементов

не будут. Элементы массива - это всего навсего адресуемые ячейки в памяти.
Они друг с другом не конфликтуют.

А вот как скажется наличие (возможное) более одного максимума на выполнении задания - это Вам (или вашему преподавателю, которому Вы будете сдавать код) решать.
Варианты есть разные.
например, код, который я предложил, в случае нескольких максимумов возьмёт самый первый из них (если просматривать матрицу по строками слева направо).
т.е. для предложенного мною примера результатом будет такой массив:

9 2 4 8
7 3 2 1
1 4 5 6
2 9 9 4