определение количества повторяющихся элементов в строке

[Alex Cones]

Пробую написать программу для определения количества повторяющихся элементов в строке (по 6 символов в строке из 600).

В принципе все написал, но выводит бред.

unit Unit28;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    RichEdit1: TRichEdit;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
 F:TextFile;
 N,M:Integer;
 S:String;
begin
 AssignFile(F,'Arc.arc');
 Rewrite(F);
 For N:=1 to 600 do
  Begin
   M:=Random(9)+1;
   S:=IntToStr(M);
   Write(F,S);
  End;
 CloseFile(F);
Windows.Beep(700,700);
Windows.Beep(600,600);
Windows.Beep(500,500);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
 F:TextFile;
 MasS:Array[1..100] of String;
 MasN:Array[1..100] of Integer;
 S,CurS:String;
 M,N,Nez,PP:Integer;
 CurOn:Boolean;
begin
 CurOn:=False;
 Nez:=1;
 AssignFile(F,'Arc.arc');
 Reset(F);
 ReadLn(F,S);
 While S<>'' do
  Begin
   CurS:=Copy(S,1,6);
   For N:=1 to 100 do
    Begin
     If CurS = MasS[N] Then
      Begin
       CurOn:=True;
       Inc(MasN[N]);
      End;
     If (N = 100) And (CurOn = False) Then
      Begin
       MasS[Nez]:=CurS;
       Inc(Nez);
      End;
     CurOn:=False;
     Delete(S,1,6);
    End;
  End;
 Windows.Beep(700,700);
 Windows.Beep(500,500);
 Windows.Beep(600,600);

 For N:=1 to 100 do
  For M:=1 to 99 do
   If MasN[M]<MasN[M+1] Then
    Begin
     PP:=MasN[M];
     MasN[M]:=MasN[M+1];
     MasN[M+1]:=PP;
    End;
  For N:=1 to 100 do
   RichEdit1.Lines.Add(MasS[N]+'              '+IntToStr(MasN[N]));

end;

end.

[puporev]

В принципе все написал, но выводит бред.

Извини, но что написал, то и выводит. Конкретно задание можно? Желательно полностью.

[Alex Cones]

Попробую объяснить:
При нажатии на кнопку 1 (procedure TForm1.Button1Click(Sender: TObject); )
В файл записывается 600 чисел от 1 до 9.
По нажатию на кнопку 2 (procedure TForm1.Button2Click(Sender: TObject); )
Программа разбивает строку из 600 символов на группы из 6-ти:

CurS:=Copy(S,1,6);
Delete(S,1,6);

Далее проверяется наличии такой последовательности в массиве из строк.
Если такая последовательность есть, то в параллельном массиве типа Integer прибавляем номеру последовательности единицу.
Если такая последовательность не обнаружена, добавляем её пользуясь числом Nez - первый Nezаполненный элемент массива из строк.
Затем сортируем массивчик и выводим в Rich.
--------------------------------------------------------------------------------------------------
Нашел две маленькие ошибки, не исправляющие программу.
Строки

    Delete(S,1,6);
    End;
  End;

Следует заменить на

    
    End;
   Delete(S,1,6);
  End;

И еще

Begin
       MasS[Nez]:=CurS;
       Inc(Nez);
      End;

на

Begin
       MasS[Nez]:=CurS;
       Inc(MasN[Nez]);
       Inc(Nez);
      End;

[puporev]

Мне кажется надо сначала из строки создать(наполнить) массив или в цикле
for i:=1 to 100 do
MasS[i]:=copy(s,(i-1)*6+1,6)//по 6 символов
или как у тебя через удаление.
А потом работать с этим массивом.

[Alex Cones]

Что-то я не представляю себе последовательность команд, которые будут поочередно сравнивать между собой 100 элементов (в тестовой версии, в рабочей собираюсь ставить около 150 тыс) и куда тогда будет заполнятся второй массив? если к примеру у двух элементов стрингового массива одинаковые значения, то в "пользу кого будет передано очко"?

[puporev]

Как я понял задачу в Вашем изложении и для такого количества как Вы написали, то я бы сделал так.

procedure TForm1.Button2Click(Sender: TObject);
Var
 F:TextFile;
 MasS:Array[1..100] of String;
 MasN:Array[1..100] of Integer;
 S:String;
 i,j,PP:Integer;
begin
AssignFile(F,'Arc.txt');
Reset(F);
ReadLn(F,S);
//создаем массив строк
for i:=1 to 100 do
MasS[i]:=copy(s,(i-1)*6+1,6);
//обнуляем массив встречаемости
for i:=1 to 100 do
MasN[i]:=0;
//ищем повторения
for i:=1 to 100 do
for j:=1 to 100 do
//если находим повторение добавляем 1 в соответствующую ячейку
if MasS[i]=MasS[j] then MasN[i]:=MasN[i]+1;
Windows.Beep(700,700);
Windows.Beep(500,500);
Windows.Beep(600,600);
//сортировка
For i:=1 to 99 do
For j:=i+1 to 100 do
If MasN[i]<MasN[j] Then
    Begin
     PP:=MasN[i];
     MasN[i]:=MasN[j];
     MasN[j]:=PP;
    End;
For i:=1 to 100 do
RichEdit1.Lines.Add(MasS[i]+'              '+IntToStr(MasN[i]));

end;

[Alex Cones]

Спасибо, заработало, правда выдает Stack overflow на больших значениях, но это уже моя проблема.

[puporev]

выдает Stack overflow на больших значениях,

Задай массив
MasS:Array[1..100] of String[6];

[Alex Cones]

Я уже поменял размер стринга и размер максимально допустимого стака в опциях проекта. Все работает, еще раз спасибо.

[s.Creator]

Alex Cones
дошел до строчки

If CurS = MasS[N] Then

- действительно будет "бред"

Локальные переменные не инициализируются - значит у тебя первоначально в массиве MasS может быть что угодно (мусор свободной памяти)
(дальше пока не смотрел)