Дана матрица n*m...

[keb1]

Дана матрица n*m; Все повторяющиеся элементы заменить "0", а не повторяющиеся "1"; Полученную матрицу вывести на экран.


Исправьте пожалуйста чтоб работала правильно.

unit Unit1;

interface

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

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

var
   n,m:integer;  a,b:array[1..5,1..5] of integer;
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
form2.show;
form1.visible:=false;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.ColCount:=strtoint(edit1.Text);
StringGrid1.RowCount:=strtoint(edit2.Text);

StringGrid2.ColCount:=strtoint(edit1.Text);
StringGrid2.RowCount:=strtoint(edit2.Text);

n:=strtoint(edit2.Text);
m:=strtoint(edit1.text);


end;

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

 stringgrid1.Cells[i-1,j-1]:=inttostr(a[i,j]);
 end;
 for i:=1 to m do
 for j:=1 to n do
 if (a[i,j]=a[i+1,j+1]) and (a[i,j]<>0) then begin a[i,j]:=0;b[i,j]:=a[i,j] end ELSE
 begin
 a[i,j]:=1;      b[i,j]:=a[i,j];end;
 for i:=1 to m do
 for j:=1 to n do
 stringgrid2.Cells[i-1,j-1]:=inttostr(b[i,j]);
 end;




end.

[Serge_Bliznykov]

Кросспост (создание одинаковых тем и сообщений) на форуме строго запрещён!

Ваша тема - Дана матрица n*m...
Вот в неё и пишите...

Модератор