Переставить строки

[Sergeevich]

Помогите пожалуйсто справиться с этим массивом, тоесть нужно переставить строки, а алгоритм не могу составить, заранее спасибо
Условие задачи таково: В матрице n-го порядка переставить строки так, чтобы на главной диагонали матрицы были расположены элементы, наибольшие по абсолютной величине.
В принципе интерфейс программы есть, только нужно добавить алгоритм позволяющий работать по условию, очень нужна помощь.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    StringGrid2: TStringGrid;
    Button2: TButton;
    Button3: TButton;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
nmax=10;
Type
mas1 = array[1..nmax,1..nmax] of extended;
mas2 = array[1..nmax,1..nmax] of extended;
var
Form1: TForm1;
a:mas1;
b:mas2;
n,i,j:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=3;
Edit1.Text:=FloatToStr(n);
StringGrid1.ColCount:=n+1;
StringGrid1.RowCount:=n+1;
StringGrid2.ColCount:=n+1;
StringGrid2.RowCount:=n+1;
StringGrid1.Cells[0,0]:='Массив A:';
StringGrid2.Cells[0,0]:='Массив B:';
for i:=1 to n do begin
StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
end;
for i:=1 to n do begin
StringGrid2.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid2.Cells[i,0]:=' j= '+IntToStr(i);
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
if (n<3) or (n>10) then begin
showmessage('Введите число не меньше 3 и не больше 10');
n:=3;
edit1.Text:='3';
end;
StringGrid1.ColCount:=n+1;
StringGrid1.RowCount:=n+1;
StringGrid2.ColCount:=n+1;
StringGrid2.RowCount:=n+1;
for i:=1 to n do begin
StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
end;
for i:=1 to n do begin
StringGrid2.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid2.Cells[i,0]:=' j= '+IntToStr(i);
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to n do
for j:=1 to n do
if stringgrid1.Cells[i,j]='' then begin
showmessage('Введите число во все ячейки');
stringgrid1.Cells[i,j]:='0';
end;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=StrToint(StringGrid1.Cells[i,j]);
end;

end.

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

[alexBlack]

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

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

Переставить элементы строк ?

Для каждой строки:
- ищем максимальный элемент
- переставляем его с элементом, находящимся на главной диагонали.

В результате

на главной диагонали матрицы были расположены элементы, наибольшие по абсолютной величине

[Sergeevich]

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

[alexBlack]

Как у Вас нарисовано - для MAS[1..N, 1..N]:

   // Для каждого столбца кроме последнего
   for j:=1 to N-1 do begin
      // Для столбца j ищем строку с максимальным элементом в позиции j
      NI := j; max := -1;
      for i:=j to N do begin
         if abs(mas[i, j]) > max then begin
            NI := i;
            max := abs(mas[i, j])
         end;
      end;
      // Меняем найденную строку строку NI со строкой j
      if NI <> j then begin
         for i:=1 to N do begin
            t := mas[j, i];
            mas[j, i] := mas[NI, i];
            mas[NI, i] := t;
         end;
      end;
   end;

[Sergeevich]

Спасибо

[ПаФка]

Ребят,выложите пожалуйста код программы,который получился,а то у меня ошибки типов.вроде занёс NI,t,max,А тамошибка почему NI:=j?(массиву присваивается число),сплошные ошибки у меня короче,спасите=)

[mmmmmmmmmm]

Спасибо вот конечный код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids,Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Label1: TLabel;
    StringGrid2: TStringGrid;
    Label2: TLabel;
    Button4: TButton;
    procedure Label1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
nmax=10;
Type
mas = array[1..nmax,1..nmax] of integer;
mas2 = array[1..nmax,1..nmax] of integer;
var
Form1: TForm1;
a:mas;
b:mas2;
n,i,j,NI,max,mai,t:integer;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
n:=3;
Edit1.Text:=FloatToStr(n);
StringGrid1.ColCount:=n+1;
StringGrid1.RowCount:=n+1;
StringGrid2.ColCount:=n+1;
StringGrid2.RowCount:=n+1;
StringGrid1.Cells[0,0]:='Ìàññèâ A:';
StringGrid2.Cells[0,0]:='Ìàññèâ B:';
for i:=1 to n do begin
StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
end;
for i:=1 to n do begin
StringGrid2.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid2.Cells[i,0]:=' j= '+IntToStr(i);
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
if (n<3) or (n>10) then begin
n:=3;
edit1.Text:='3';
end;
StringGrid1.ColCount:=n+1;
StringGrid1.RowCount:=n+1;
StringGrid2.ColCount:=n+1;
StringGrid2.RowCount:=n+1;
for i:=1 to n do begin
StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
end;
for i:=1 to n do begin
StringGrid2.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid2.Cells[i,0]:=' j= '+IntToStr(i);
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to n do
for j:=1 to n do
if stringgrid1.Cells[i,j]='' then begin
stringgrid1.Cells[i,j]:=IntToStr(random(10));
end;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=StrToint(StringGrid1.Cells[i,j]);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  for j:=1 to N-1 do begin
      NI := j; max := -1;
      for i:=j to N do begin
         if abs(a[i, j]) > max then begin
            NI := i;
            max := abs(a[i, j]);
         end;
      end;
      if NI <> j then begin
         for i:=1 to N do begin
            t := a[j, i];
            a[j, i] := a[NI, i];
            a[NI, i] := t;
         end;
      end;
   end;
   for i:=1 to n do
   for j:=1 to n do
   StringGrid2.Cells[i,j]:=IntToStr(a[i,j]);
end;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Omino]

Скиньте плиз архивом программу, что то вообще не получается