Объясните,плизззззз)

[Gaika]

procedure TForm1.Button1Click(Sender: TObject);
Var k,i,j,n,m:integer;
    f:Tfile;
begin
      AssignFile(f,Edit2.Text);
      Rewrite(f);
      Memo1.Lines.Clear;
      k:=random(StrToInt(Edit1.Text))+1;
      n:=StrToInt(Edit3.Text);
      m:=StrToInt(Edit4.Text);
      for i:=0 to k-1 do
      Begin
        j:=random(m-n+1)+n;
        Write(f,j);
        Memo1.Lines.Add(IntToStr(j));
      End;
      CloseFile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var n:integer;
    f:Tfile;
begin
if OpenDialog1.Execute then
Begin
   AssignFile(f,OpenDialog1.FileName);
   Reset(f);
   Memo1.Lines.Clear;
   while not eof(f) do
   Begin
    read(f,n);
    Memo1.Lines.Add(IntToStr(n));
   end;
 end;
   CloseFile(f);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
    randomize;
end;

procedure TForm1.Button3Click(Sender: TObject);
var a,a1:array of integer;
    n,i,max,t:integer;
    f:Tfile;
begin
if OpenDialog1.Execute then
Begin
   AssignFile(f,OpenDialog1.FileName);
   Reset(f);
   Memo1.Lines.Clear;
   Setlength(a,1);
   Setlength(a1,1);
   while not eof(f) do
   begin
    read(f,n);
    Memo1.Lines.Add(IntToStr(n));
    if n>high(a) then
    Begin
      Setlength(a,n+1);
      Setlength(a1,n+1);
     a1[n]:=1;End
    else
a1[n]:=a1[n]+1;
    end;
    max:=a1[n];
    t:=n;
    for i := 0 to n do
       if (a1[i]<>0) and (a1[i]>max) then
       begin
         max:=a1[i];
         t:=i;
       end;
    Label10.Caption:=IntToStr(t);
    Label8.Caption:=IntToStr(a1[t]);

    end;
    CloseFile(f);
end;
Вообщем процедура TForm1.Button3Click(Sender: TObject) обрабатывает ранее создаммый файл и ищет в нем число,которое встречается в нем чаще всего и сколько раз,скажите зачем делать это:
if n>high(a) then
    Begin
      Setlength(a,n+1);
      Setlength(a1,n+1);
     a1[n]:=1;                               ?
End 
    else
a1[n]:=a1[n]+1;                            ?
    end;

[Карась]

Это операторы присваивания. Что в них непонятного?

[Gaika]

Я не совсем идиотка,знаю,что это операторы присваивания,зачем 1 присваиваем,что нам это дает?

[Карась]

Это надо спросить у человека который писал этот алгоритм.
Ибо там какойто бред написанн.

Яб прошёлся тупо до конца мемо и набивал бы двумерный массив встречающимися цифрами и записывал их кол-во.

[Stilet]

Ну-ну. Никто тут обзываться и не думал.
Просто такие вопросы либо к автору либо к Ктулху.
Может так новый элемент инициируется.

[Serge_Bliznykov]

для каждого встретившегося числа,
если такого числа не было в массиве то массив расширяется до размера, равного встретившемуся числу, и счётчик (значение в массиве) присваивается единице (число встретилось первый раз).
Если это число уже было в массиве, то счётчик увеличивается на единицу.
И, кстати, алгоритм очень плохой... я бы даже сказал - отвратительный ;-((((

[Gaika]

Ну уж какой есть)Спасибо большое))))

[Gaika]

Сообщение от Карась

Яб прошёлся тупо до конца мемо и набивал бы двумерный массив встречающимися цифрами и записывал их кол-во.

В задаче есть условие: считывать элементы фаила в массив нельзя!

[Serge_Bliznykov]

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

В задаче есть условие: считывать элементы фаила в массив нельзя!

Опять очередная задача из серии "почешите-ка себе левое ухо правой ногой (пользоваться руками нельзя!)" :-(

Ну, не видя исходного условия задачи, трудно что-то предлагать/предполагать, но, я очень боюсь, что если Вы в файле напишете большое число (например 30000000000) - то программе может наступить кирдык...
и если встретится отрицательное число... попробуйте..

Впрочем, главное, чтобы Вас и Вашего преподавателя это решение устраивало (а в реальной жизни я бы за такие решения в дворники программеров переводил... ;-)

[Gaika]

Ну да,с отрицательными числами её глючи,но надеюсь особо придираться не будут)))А прога,для первого-то курса,помоему вполне сойдет!