Задача на процедуры

[Jack125]

Доброго времени суток. Помогите, пожалуйста, решить задачу

Нужно проверить, являются ли два массива одинаковыми

Вот код:

unit Unit1;

interface

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

type
mymas=array[1..3] of integer;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mas,masdva:mymas;
  mas1,mas2:mymas;
implementation
Procedure rand(mas:mymas;t:TStringGrid);
var i:integer;
begin
For i:=1 to 3 do
    begin
    mas[i]:=random(2);
    t.Cells[i-1,0]:=IntToStr(mas[i]);
    end;
    end;

procedure proverka(mas:mymas;masdva:mymas;var flag:boolean);
var i:integer;
begin
Flag:=True;
For i:=1 to 3 do
    If mas[i]<>masdva[i] then
        flag:=False;
 end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
rand(mas1,StringGrid1);
rand(mas2,StringGrid2);
end;

procedure TForm1.Button2Click(Sender: TObject);
var flag2:boolean;
begin
proverka(mas1,mas2,flag2);
If flag2=True then
    Label1.Caption:='Массивы равны'
    else
    Label1.Caption:='Массивы не равны';
end;

end.

Проблема в том, что с данным кодом программа не будет работать, а если в процедуре TForm1.Button2Click сначала ввести два массива,

For i:=1 to 3 do
    mas1[i]:=StrToint(StringGrid1.Cells[i-1,0]);
For i:=1 to 3 do
    mas2[i]:=StrToint(StringGrid2.Cells[i-1,0]);

то все работает нормально. Можно, конечно, и так оставить, но препод говорит, чтобы так не делать а задавать массивы глобально. Почему же так происходит, если они и так вроде бы глобально заданы?

Заранее спасибо за помощь

[MyLastHit]

Я в Delphi не работаю, но попробую объяснить.
1. Вместо имени mas лучше использовать что-то другое, например NewMas. В идеале вот тут хорошо бы поставить break;

procedure proverka(newmas:mymas;newmasdva:mymas;var flag:boolean);
var i:integer;
begin
Flag:=True;
For i:=1 to 3 do
    If newmas[i]<>newmasdva[i] then
    begin
      flag:=False;
      break;
    end;
 end;

2. Так же избавиться от псевдослучайности.

Procedure rand(var newmas:mymas;t:TStringGrid);
var i:integer;
begin
  randomize;
  For i:=1 to 3 do
  begin
    newmas[i]:=random(2);
    t.Cells[i-1,0]:=IntToStr(newmas[i]);
  end;
end;

Далее должно работать как вы описали. Мне кажется что компилятор все в кашу смешал(всмысле ваши одноименные глобальные переменные и параметры процедур)

[Jack125]

Сделал все, как вы сказали - поставил break в цикле проверки, поставил randomize и заменил mas и masdva на newmas и newmasdva, но программа по прежнему не работает без ввода массива. Мне кажется, что в процедуре rand он просто не сохраняет значения ячеек массива, которые сам сгенерировал, и поэтому приходится их брать из заполненных массивов, где они сохранились. Может быть, я неправильно описал глобальный массив или задал тип? Просто делал все так же, как делали на паре, но почему то не работает (

[JuniorProger]

Не работает, потому что массивы ВСЕГДА РАВНЫ!
В заголовке Procedure rand(mas:mymas;t:TStringGrid); перед mas нужно написать var. Если хочешь, чтобы значения передаваемых в процедуру параметров, при изменении их в процедуре, заменялись новыми, а не возвращались к предыдущим, нужно писать перед параметром var.
Т.е. Procedure rand(var mas:mymas;t:TStringGrid);
Прочитай про передачу параметров по ссылке и по значению - не раз пригодится.

[MyLastHit]

Процедура Rand заполняет массивы mas1, mas2. Они правильно объявлены - глобально.
И две кнопки кстати тут не к чему.

procedure TForm1.Button1Click(Sender: TObject);
var flag:boolean;
begin
  rand(mas1,StringGrid1);
  rand(mas2,StringGrid2);
  proverka(mas1,mas2,flag);
  If flag then
    Label1.Caption:='Массивы равны'
    else
    Label1.Caption:='Массивы не равны';
end;

[Jack125]

Действительно, я забыл поставить var перед массивом в rand'е, поэтому он изменялся только в пределах процедуры

Всем большое спасибо за помощь