Нахождение самого повторяющегося числа в массиве delphi

[byslavik]

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const N=7;
Type
TMas = array[1..1] of integer;
PMas = ^TMas;
var
Form1: TForm1;
a : PMas;
j,i : integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var h,m,n,b:integer;
begin
GetMem(a,N*sizeof(integer));
h:=0;
m:=0;
n:=0;
for i:=1 to N do
begin
a[i]:=strtoint(StringGrid1.Cells[i-1,0]);

end;

for b:=1 to N do
for j:=1 to N do
if a[b]=a[j] then
h:=h+1;
if h>n then begin
m:=a[b];;
n:=h;
end;

  label1.Caption:= inttostr(m);
FreeMem(a,N*sizeof(integer));
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
for i:=1 to N do
begin
StringGrid1.Cells[i-1,0]:=IntToStr(Random(10));

end;
end;



end.
                     -

[fbus]

Дальше даже смотреть не стал

TMas = array[1..1] of integer;

нафига создавать массив из 0 элементов?

а это вообще зачем?

PMas = ^TMas;

задача-то элементарная.

[Serge_Bliznykov]

fBus, могу пояснить, почему тип массива из одного элемента (от 1 до 1 всё такие один элемент, меньше компилятор не пропустит). и зачем указатель на этот тип...

Дело в том, что был такой язык - Паскаль. А в нём НЕ БЫЛО динамических массивов. А иногда очень хотелось их использовать.
Вот один из вариантов и показан выше - создать тип массив. Взять на него указатель, выделить памяти столько, сколько нужно для нашего динамического массива и дальше через указатель разименовыывать и работать с этими данными.
Это всё почти нормально... но для Pascal (TurboPascal)! Но не для Delphi! в Delphi есть нормальная "человеческая" реализация динамических массивов. Вот её и нужно использовать!


p.s. а по сути вопроса. я алгоритм поиска ещё не смотрел..

[Utkin]

var h,m,n,b:integer;
begin
GetMem(a,N*sizeof(integer));

Я сейчас точно не помню, а потому хотелось бы уточнить для ДжетМема Эн чему будет равно? Константе объявленной выше или рандому?

[Stilet]

for b:=1 to N do
for j:=1 to N do

По-моему ошибка здесь: Проходят те числа, которые уже участвовали в выявлении количества.
ИМХО стратегию менять:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 a:array of integer;
 b:array of array[1..2] of integer;  ok:boolean;
 i,j:integer;
begin
 SetLength(a,5);
 randomize;
 For i:=low(a) to high(a) do begin
   a[i]:=random(5);write(a[i]:5);ok:=false;
   for j:=low(b) to high(b) do begin
     if b[j,1]=a[i] then begin inc(b[j,2]);ok:=true;end;
   end;
   if not ok then begin SetLength(b,Length(b)+1);b[high(b),1]:=a[i];b[high(b),2]:=1;end;
 end;
 writeln;writeln;
 For i:=low(b) to high(b) do   writeln(b[i,1]:5,b[i,2]:5);

  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

[Serge_Bliznykov]

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

var h,m,n,b:integer;
begin
GetMem(a,N*sizeof(integer));

Я сейчас точно не помню, а потому хотелось бы уточнить для ДжетМема Эн чему будет равно? Константе объявленной выше или рандому?

Utkin, точно! Супер!
Разумеется, возьмётся локальная n.
И значение ещё будет абсолютно случайно.

[byslavik]

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

Utkin, точно! Супер!
Разумеется, возьмётся локальная n.
И значение ещё будет абсолютно случайно.

да, действительно! как-то я не заметил

в Delphi есть нормальная "человеческая" реализация динамических массивов

а как можно осуществить по нормальному? просто препод как объяснил, так я и сделал

Вот как сделал и все получилось

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


Type
TMas = array[1..1] of integer;
PMas = ^TMas;
var
Form1: TForm1;
a : PMas;
j,i,N : integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var h,m,c,b:integer;
begin

N:=7;
GetMem(a,N*sizeof(integer));
h:=0;
m:=0;
c:=0;
for i:=1 to N do
begin
a[i]:=strtoint(StringGrid1.Cells[i-1,0]);
end;

for b:=1 to N do begin
for j:=b+1 to N-1 do
begin
  if a[b]=a[j] then begin
   h:=h+1;
  end;

end;
if h>c then begin
    m:=a[b];
    c:=h;
  end;
end;
  label1.Caption:= inttostr(m);
FreeMem(a,N*sizeof(integer));


end;


procedure TForm1.FormCreate(Sender: TObject);
begin
N:=7;
Randomize;
for i:=1 to N do
begin
StringGrid1.Cells[i-1,0]:=IntToStr(Random(10));

end;
end;

end.
                     -

[Utkin]

Ну если препод так сказал для Дельфи делать.... Есть в Дельфи стандартный механизм, называется динамические массивы - адекватная замена Вашим махинациям с GetMem'ами.