Работа с матрицами (Delphi)

[roman09]

Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если k-я строка матрицы симметрична, и значение 0 в противном случае. это в делфи... смотрите неже...

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  A:array[1..21,1..21]of extended;
  B:array[1..21] of Extended;
  N,M,i,j: integer;
  f: boolean;
implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
N:=3;
M:=3;
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=N+1;
StringGrid2.RowCount:=N+1;
StringGrid1.Cells[0,0]:='массив А';
StringGrid2.Cells[0,0]:='массив B';
StringGrid1.Height:=20*(n+1)+5+n;
StringGrid1.Width:=20*(n+1)+5+n;
StringGrid2.Height:=20*(n+1)+20+n;
for i:=1 to n do begin
StringGrid1.Cells[0,i]:='i='+inttostr(i);
StringGrid1.Cells[i,0]:='j='+inttostr(i);end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
for i:=1 to n do begin
For j:=1 to n do begin
Stringgrid1.Cells[i,j]:='';
Stringgrid2.Cells[0,j]:='';
end;end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
N:=strtoint(edit1.text);
M:=strtoint(edit2.text);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=N+1;
StringGrid2.RowCount:=N+1;
StringGrid1.Cells[0,0]:='массив А';
StringGrid2.Cells[0,0]:='массив B';
StringGrid1.Height:=20*(n+1)+5+n;
StringGrid1.Width:=20*(n+1)+5+n;
StringGrid2.Height:=20*(n+1)+20+n;
for i:=1 to n do begin
StringGrid1.Cells[0,i]:='i='+inttostr(i);
StringGrid1.Cells[i,0]:='j='+inttostr(i);end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to n do begin
For j:=1 to n do begin
Stringgrid1.Cells[i,j]:=floattostr(random(5));
Stringgrid1.Update;  {обновление}
sleep(50);{задержка}
end;end;
Button3.Enabled:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
for i := 1 to n do begin
f := true;
for j := 1 to m do
if not(A[i,j] = A[i,m+1-j]) then f := false;????????????????????? правильно???????
if f then B[i] := 1 else B[i] := 0;
stringgrid2.Cells[0,i]:=floattostr(B[i]);
stringgrid2.Update;
Sleep(50);

end;
end;
initialization randomize;{инициализируем}
end.

[alex_fcsm]

if A[i,j] <> A[i,m+1-j] then f := false;

привычнее смотрится

[roman09]

че то он мне все время одни единицы записывает в В??? может формула не та???

[Stilet]

Я по-моему тебе уже давал пример...
Ты что в нем не разобрался?

[roman09]

не там, тоже че то не пашит... я вот и разобраться не могу...

[Anatole]

попробуй внутренний цикл по j сделать так:
for j := 1 to m div 2 do f := (A[i,j] = A[i,m+1-j]) and f;

[roman09]

че то все равно пишет одни 1 в массив В... я уже не знаю че делать...