Нахождение седловых точек

[ViNcHeStEr]

Задание: Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот. Все седловые точки вывести в отдельный одномерный массив и выделить цветом в двумерном массиве.

[ViNcHeStEr]

Всё, тему можно закрывать. Я сам кое-как разобрался с этой задачей.

[Комп3]

Плиз,выложи код на задачку...а то у меня такая же)Заранее спасиб

[maladoy]

тут посмотри

[ViNcHeStEr]

Код изначально не мой, нашёл на каком-то сайте. Был написан на Паскале. Я переделал для Делфи.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label3: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  Dim = 10;

var
  Form1: TForm1;
  a: Array [1..Dim, 1..Dim] of Integer;
  i, j, k, m, n, min_i, max_j, maxelement: Integer;
  b: boolean;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
m:=3;
n:=3;
edit1.Text:=inttostr(m);
edit2.Text:=inttostr(n);
   StringGrid1.ColCount:=m+1;
   StringGrid1.RowCount:=n+1;
Memo1.Clear;
   StringGrid1.Cells[0,0]:='Массив';

   for i:=1 to m do begin
    StringGrid1.Cells[i,0]:='m '+IntToStr(i);
                     end;

    for i:=1 to n do begin
    StringGrid1.Cells[0,i]:='n '+IntToStr(i);
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin try
m:=strtoint(edit1.Text);
n:=strtoint(edit2.Text);
  if (m > Dim)  or (n > Dim) or (m < 2) or (n < 2) then
  begin
  Edit1.Text:=FloatToStr(5);
  m:=5;
  Edit2.Text:=FloatToStr(5);
  n:=5;
  Memo1.Lines.Add('m и n должны быть меньше чем '+FloatToStrF(dim,ffFixed,0,0)+' и больше чем 1');
    Exit;
  end;
     StringGrid1.ColCount:=m+1;
   StringGrid1.RowCount:=n+1;
      StringGrid1.Cells[0,0]:='Массив';

   for i:=1 to m do begin
    StringGrid1.Cells[i,0]:='m '+IntToStr(i);
                     end;

    for i:=1 to n do begin
    StringGrid1.Cells[0,i]:='n '+IntToStr(i);
    end;
    except
  Edit1.Text:='ошибка!';
  Edit2.Text:='ошибка!';
       end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  randomize;
  for i := 1 to m do
    for j := 1 to n do
    begin
      a[i,j]:=random(100)+1;
    end;

  for i := 1 to m do
  begin
    for j := 1 to n do
    StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  b := False;
  for i := 1 to m do
  begin
    min_i := 1;
    for k := 2 to n do if a[i, k] < a[i, min_i] then min_i := k;
    max_j := 1;
    for k := 2 to m do if a[k, min_i] > a[max_j, min_i] then max_j := k;
    if i = max_j then
    begin
      b := True;
    Memo1.Lines.Add('Седловая точка: А['+FloatToStrF(max_j,ffFixed,0,0)+','+FloatToStrF(min_i,ffFixed,0,0)+'] = '+FloatToStrF(a[max_j, min_i],ffFixed,0,0));
      for k := 1 to n do a[max_j, k] := 0;
      for k := 1 to m do a[k, min_i] := 0;
      Break;
    end;
  end;
    if b then
  begin
      Memo1.Lines.Add('Седловые точки найдены');
            Memo1.Lines.Add('');
  end
  else Memo1.Lines.Add('Седловые точки не найдены');
              Memo1.Lines.Add('');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
memo1.Clear;
edit1.Clear;
edit2.Clear;
end;

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



procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  begin
With TStringGrid(Sender),TStringGrid(Sender).Canvas Do
Begin
  b := False;
  for i := 1 to m do
  begin
    min_i := 1;
    for k := 2 to n do if a[i, k] < a[i, min_i] then min_i := k;
    max_j := 1;
    for k := 2 to m do if a[k, min_i] > a[max_j, min_i] then max_j := k;
if i = max_j then begin
      b := True;


if (acol=max_j) and (arow=min_i) then begin
FillRect(Rect);
Brush.Color:=Clred;
Font.Color:=Clyellow;
Font.Style:=[fsBold];
Font.Size:=14;

end;

TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol,ARow]);
    end;
  end;

end;


end;

end.