Матрица в delphi

[Hegel]

Задание: Дана действительная,квардратичная матрица порядка 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;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Type TMatr=array [1..50] of array [1..50] of real;
      var matr:TMatr;
          n,m:integer;

implementation

{$R *.dfm}
//Ввод матрицы
Procedure Vvod(var Matr:TMatr; n,m:integer);
    var i,j:integer;
begin
    Randomize;
    for i:=0  to n-1 do
       for j:=0 to m-1 do
         Matr[i,j]:=Int(random*40)-20;
end;

//вывод матрицы на экран
Procedure Vivod(var Matr:TMatr;n,m:integer;StringGrid1:TstringGrid);
   var i,j:integer;
begin
   for i:= 0 to n-1 do
     for j:=0 to m-1 do
        StringGrid1.Cells[j,i]:=FloatToStr(Matr[i,j]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 StringGrid1.RowCount := strtoint(edit1.text);
 StringGrid1.ColCount  := strtoint(edit1.text);
    n:= strtoint(edit1.text);
    m:= strtoint(edit1.text);
      Vvod(Matr,n,m);
      Vivod(Matr,n,m,StringGrid1);
  end;
end.

[Тупой]

ну... вот один из вариантов поиска максимального значения в векторе a[0],...a[n-1]:

max:=a[0];
for i:=1  to n-1 do
if a[i]>max then 
max:=a[i];

ну, и пара замечаний к Вашему коду

Procedure Vvod(var Matr:TMatr; n,m:integer);
    var i,j:integer;
begin
    Randomize;
    for i:=0  to n-1 do
       for j:=0 to m-1 do
         Matr[i,j]:=Int(random*40)-20;
end;

нафиг передавать n и m, если по условию матрица квадратная, ну и так, косяк - элементы начинаются от 1 до n, а вы прогоняете с нуля. Лучше:

    for i:=1  to n do
       for j:=1 tor n do

[Greblin]

Поиск максимального элемента:

function findmax(var Matr: TMatr; var row, col: integer; n: integer): real;
var i: integer; max: real;
begin
max := Matr[1, 1]; row := 1; col := 1;
for i := 1 to n do
  begin
  if Matr[i, i] > max then begin max := Matr[i, i]; row := i; col := i end
  //на главной диагонали
  if Matr[i, n-i+1] > max then 
    begin max := Matr[i, n-i+1]; row := i; col := n-i+1 end
  //на побочной диагонали
  end;
findmax := max;
end;

Эта функция возвращает максимальный элемент, а в переменные row и col заносит номер строки и столбца, в которых он расположен. Соответственно замена

buf := matr[n div 2 + 1, n div 2 + 1];
//n - размерность
matr[n div 2 + 1, n div 2 + 1] := findmax(matr, row, col);
matr[row, col] := buf;

Тока надо чтобы размерность матрицы была нечётной, иначе общего элемента у главной и побочной диагоналей нет
P.S. У вас в описании матрицы и процедурах не совпадает индексация

[Тупой]

кстати, вопрос, а в делфи в именах переменных важен регистр?
ну всмысле Matr и matr различные?

[maladoy]

нет регистр не важен!!!

[Hegel]

Сообщение от Тупой

нафиг передавать n и m, если по условию матрица квадратная, ну и так, косяк - элементы начинаются от 1 до n, а вы прогоняете с нуля. Лучше:

    for i:=1  to n do
       for j:=1 tor n do

Cпасибо исправил

Greblin
Постите,я не разобрался в

buf := matr[n div 2 + 1, n div 2 + 1];
//n - размерность
matr[n div 2 + 1, n div 2 + 1] := findmax(matr, row, col);
matr[row, col] := buf;

Можно спросить как это будет выглядеть в процедуре например для клика..
Что такое Buf?

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

Поясните пожалуйста

[Hegel]

<<<===UP===>>>

[puporev]

Это элементарный обмен двух элементов местами. Сначала мы запоминаем центральный элемент матрицы (matr[n div 2 + 1, n div 2 + 1]) в переменной buf, можете назвать ее x,y,z да как угодно.
На место центрального элемента ставим найденный максимальный элемент (findmax(matr, row, col)), а потом на его место ставим центральный, который мы запомнили в переменной buf.

[Hegel]

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

Это элементарный обмен двух элементов местами. Сначала мы запоминаем центральный элемент матрицы (matr[n div 2 + 1, n div 2 + 1]) в переменной buf, можете назвать ее x,y,z да как угодно.
На место центрального элемента ставим найденный максимальный элемент (findmax(matr, row, col)), а потом на его место ставим центральный, который мы запомнили в переменной buf.

[Pascal Error] Unit1.pas(98): E2003 Undeclared identifier: 'row'

Находит ошибку в строке

matr[n div 2 + 1, n div 2 + 1] := findmax(matr,row,col);

копия текста ниже

var
  Form1: TForm1;
  Type TMatr=array [1..50] of array [1..50] of real;
      var matr:TMatr;
          n,m:integer;

implementation

{$R *.dfm}
//Ввод матрицы
Procedure Vvod(var Matr:TMatr; n,m:integer);
    var i,j:integer;
begin
    Randomize;
   for i:=1  to n do
       for j:=1 to n do
 Matr[i,j]:=Int(random*40)-20;
 end;

//вывод матрицы на экран
Procedure Vivod(var Matr:TMatr;n,m:integer;StringGrid1:TstringGrid);
   var i,j:integer;
begin
   for i:=1 to n-1 do
     for j:=1 to m-1 do
        StringGrid1.Cells[j,i]:=FloatToStr(Matr[i,j]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 StringGrid1.RowCount := strtoint(edit1.text);
 StringGrid1.ColCount  := strtoint(edit1.text);
    n:=   strtoint(edit1.text);
    m:= strtoint(edit1.text);
      Vvod(Matr,n,m);
      Vivod(Matr,n,m,StringGrid1);
  end;

  //Чтение матрицы
Procedure Read(var Matr:TMatr;n,m:integer;StringGrid1:TstringGrid);
   var i,j:integer;
begin
  for i:= 1 to n-1 do
     for j:=1 to m-1 do
         Matr[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
end;

function findmax(var Matr: TMatr; var row, col: integer; n: integer): real;
var i: integer; max: real;
begin
max := Matr[1,1]; row := 1; col := 1;
for i := 1 to n do
  begin
  if Matr[i, i] > max then begin max := Matr[i, i]; row := i; col := i
  end;
  //на главной диагонали
  if Matr[i, n-i+1] > max then
    begin max := Matr[i, n-i+1]; row := i; col := n-i+1
    end;
  //на побочной диагонали
  end;
findmax := max;
end;





procedure TForm1.Button2Click(Sender: TObject);
var
buf:real;
begin
buf := matr[n div 2 + 1, n div 2 + 1];
//n - размерность
matr[n div 2 + 1, n div 2 + 1] := findmax(matr,row,col);
matr[row, col] := buf;
end;

end.

[Greblin]

Ну дык объявить надо и row и col

 var row, col: integer;