алгоритмы поиска Опции

[*оля*]

если даны два списка чисел и нужно найти наибольшую одинаковую последовательность чисел, например, если дано:
1 2 3 4 5 6
1 2 6 2 3 4
то должен вывести 234
подскажите пожалуйста, каким алгоритмом тут лучше воспользоваться?

[volvo]

до этого значение уже было изменено, и теперь тут не то, что нужно

Естественно. Вот при работе со списками как раз нужны доп. переменные, потому что у тебя нет возможности обращаться к любому элементу списка напрямую, как в массиве. И не забывай, что при переходе на следующий элемент внешнего цикла, внутренний начинается с самого начала:

  p := L.first;
  while p <> nil do
  begin

    p1 := L1.first; { <--- Это по поводу начала внутреннего цикла }
    while p1 <> nil do
    begin
      k := 0;
      pp := p; pp1 := p1; { А это - доп. переменные }
      while (pp <> nil) and (pp1 <> nil) and (pp^.Data = pp1^.Data) do
      begin
        inc(k);
        pp := pp^.next;
        pp1 := pp1^.next;
      end;

      if k > kmax then kmax := k;

      p1 := p1^.next; { продолжаем внутренний цикл }
    end;

    p := p^.next; { Продолжаем цикл внешний }
  end;
  writeln(kmax);

[*оля*]

  p := L.first;
  while p <> nil do
  begin

    p1 := L1.first; { <--- Это по поводу начала внутреннего цикла } 
    while p1 <> nil do
    begin
      k := 0;
      pp := p; pp1 := p1; { А это - доп. переменные }
      while (pp <> nil) and (pp1 <> nil) and (pp^.Data = pp1^.Data) do
      begin
        inc(k);
        pp := pp^.next;
        pp1 := pp1^.next;
      end;

      if k > kmax then kmax := k;

      p1 := p1^.next; { продолжаем внутренний цикл }
    end;

    p := p^.next; { Продолжаем цикл внешний }
  end;
  writeln(kmax);

А если после того, как нашли эту подстроку, нужно ее удалить, то как это сделать можно? Знаю, как удалить один элемент, а вот как удалить подстроку из списка не понимаю (
Подскажите пожалуйста как поступить, заранее спасибо!)