Период псевдослучайной последовательности

[Zhamie]

Доброе время суток!!!
Помогите плззз с программкой для нахождения периода ПСП.
Моя программка вычитывает последовательность чисел из файла, помещает их в Memo, затем должен найти есть период и какова его длина. Примерно кое-что написала:

for i:=1 to n do
     begin
     for j:=2 to n do
       label1:  if  e[i] = e[j]
             then
               begin
               k:=j-i; //длина периода
               inc(i); inc(j);
               goto label1
               end
               else Continue;
    end;

Помогите исправить ошибку...

[Stilet]

Хм... Я бы так попробовал:

for i:=1 to n do begin
 n:=e[i];
 k:=1;
 while (n<>e[i+k])and((i+k)<=Length(e)) do
   inc(k);
 // теперь в k длина от одного до второго равных значений
end;

[Zhamie]

Я попробовала написать по вашему, и выдается значение 93. Хотя моя последовательность такая 56745674 и результатом должен стать ответ 4

Сама последовательность очень длинная и для проверки я взала эту...

[Stilet]

Если я правильно понимаю то между повторяющимися элементами нет ничего, вот я так проверил:

var s:string; i,k:integer;n:char;
begin
 s:='5637456374';
 n:=s[1];
 k:=2;
 while (n<>s[k])and(k<=Length(s)) do
   inc(k);
dec(k);
caption:=inttostr(k);
end;

Вот еще для разнообразия такое можно:

var e,s:string; i,k:integer;n:char;
begin
 s:='5637456374';
 i:=1;
 while copy(s,1,i)<>copy(s,i+1,i) do
  inc(i);
caption:=inttostr(i);
end;

[Zhamie]

) Спасибо большое!!!

[Zhamie]

Извините не заметила, но ведь программа не проверяет действительно ли 56374 является периодом, если заменить последовательнось на 5637456378 то он уже периодом не является и программа должна дальше проверять...

[Stilet]

Так подойдет?:

var e,s:string; i,k:integer;n:char;
begin
 s:='5633456374'; s:=s+' ';
 i:=1;
 while pos(copy(s,1,i),copy(s,i,length(s)-i))<>0 do
   inc(i);
 dec(i);
caption:=copy(s,1,i);
end;

[Zhamie]

но 563 не период... если бы было 563563563563563563563563 допустим, то да он является периодом, а его длина 3. Или хотя бы 56334563745633456374 в этой последовательности 5633456374 и есть период, а его длина = 10.

[Stilet]

Zhamie

Я что все за тебя должен делать?
Ану бегом проверяй свое 56334563745633456374 на моем примере!

[Ser@Fim]

Как я понимаю в примере Stilet'a у последовательности 5633456374 периода нет.
думаю просто добавить проверку

...
if (s[1] = s[i+1])
 then writeln(copy(s,1,i))
 else writeln('Последовательность не имеет периода');