Помогите с массивами в Делфи

[_Alise_]

Дан одномерный массив. Найти подпоследоватльность наибольшей длины, которая повторятся в массиве ровно N раз.

[L_M]

а массив чего дан?

[puporev]

Не вопрос, а армянская загадка. Пять слов по человечески связать не могут.

[Serge_Bliznykov]

ну, не знаю, не знаю... а мне понравилась задачка... ;-)
По крайней мере, хоть не банальщина какая-то типа поиска максимума/минимума...
Я, например, вот так сходу, даже алгоритм решения не вижу...

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

а массив чего дан?

а по сути, какая разница? Ну, например, символов... или целых чисел...

[mutabor]

Алгоритм ясен - перебор, только сложноват немного. Условие тоже не из простых, еще понять надо )
Я понял вроде так, к примеру если массив такой:
012012012
N = 3

Решение: ровно N раз повторяются подпоследовательности 01, 12, и 012. Наибольшей длины - 012. Я правильно понял задание или нет?

Вообще задача из области фантастики, где такое может понадобиться? Абстракция в чистом виде. Что, что, а мозги морочить в институтах умеют.

[_Alise_]

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

Я правильно понял задание или нет?

Правильно. Вы мне поможете?

[mutabor]

Что вы сейчас изучаете, не рекурсию?

Кстати тему такую же вторую создавать не надо было. От этого вы ответ быстрее не получите.

Подпоследовательностью считается только такая 012345? или 325041 тоже подпоследовательность?

[PAWLO1993]

Мне нужна похожая задачка, толька у меня нужно найти N, а последоватольность дано. Например:
1 1 3 2 1 1 3 2, тогда N=4
1 1 3 2 1 1 3 51, тогда N=8.

[master_root]

Код просто перебирает все возможные последовательности, которые повторяются N раз и выбирает среди них самую длиную:

{функция возрощает строку, которая содержит самую длиную последовательность,
 которая повторяется в массиве N раз}
function GetMaxSeq(arr: array of integer; N: integer): string;
type
  RmaxM = Record
    index: integer;// i-индекс, с которого начинается в массиве очередная последовательность
    length: integer;// j-длина последовательности
  end;
var
  maxM: RmaxM;
  i,j,z,j1,z1: integer;
  M: integer;//число повторений последовательности
  eq: boolean;
  tmp_result: string;//строка,в которой формируется результат функции
begin
{инициализация переменных - присваивание начальных значений}
  maxM.index:=0;
  maxM.length:=1;
  tmp_result:='';
  eq:=false;
  for i := 1 to Length(arr) do//перебор всех возможных длин в массиве
  begin
    M:=1;
    j:=0;
    {поиск}
    repeat// j изменение отсчётного индекса посделовательности
      z:=0;
      repeat//z изменение индекса последовательности с которой сравнивается текущая последовательность
        if z<>j then//если индексы не совпадают то сравниваем соответствующие последовательности
        begin
          z1:=z;
          for j1 := j to i do//перебор элементов в последовательностях, которые сравниваются
          begin
            if arr[j1]=arr[z1] then//сравнение элементов в последовательностях
            begin
              eq:=true;
              z1:=z1+1;
            end
            else
            begin
              eq:=false;
              z1:=z1+1;
              break;
            end;
          end;
          if eq = true then M:=M+1;//если все элементы совпали в последовательностях, то увеличиваем счётчик вхождения
        end
        else
        z:=z+1;
        until z=Length(arr)-i;
        if M=N then//если счётчик вхождений совпадает с нужным числом вхождений, то
        begin
          if maxM.length<i then//и если длина последовательности больше текущей, то
          begin
            //записываем параметры новой более длинной последовательности
            maxM.length:=i;
            maxM.index:=j;
          end;
        end;
    until j=Length(arr)-i;
  end;
{формируем результат в виде строки, которая содержит элементы
самой длиной последовательности}
  for i:=maxM.index to maxM.index+maxM.length do
    tmp_result:=tmp_result+inttostr(arr[i]);
  result:=tmp_result;//вывод результата
end;

[master_root]

!!!функция разрабатывалась в теории. При прогоне в BDS оказалось что,во время выполнения следующего кода:

  if arr[j1]=arr[z1] then//сравнение элементов в последовательностях  
             begin  
               eq:=true;  
               z1:=z1+1;  
             end

переменная z1 деинициализируется, то есть теряет своё значение будто его и не определяли.