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

[*оля*]

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

[*оля*]

Спасибочки большое!!!)))
ну да, это уже все сложно, но ради интереса попробую разобраться)))

[Lapp]

это уже все сложно, но ради интереса попробую разобраться)))

Ты обязательно попробуй, но сначала я бы советовал разобраться с тем, что ты сама сделала )). Можно дать несколько советов?

Посмотри - это твой код, немного улучшенный:

const
  n=10;
var
  a,b: array [1..n] of integer;
  i,j,k,kmax: integer;

begin
  for i:=1 to n do read(a[i]);
  for j:=1 to n do read(b[j]);
  kmax:=0;
  for i:=1 to n do
    for j:= 1 to n do begin
      k:=0;
      while a[i+k]=b[j+k] do Inc(k);
      if k>kmax then kmax:=k
    end;
  writeln(kmax)
end.

Далее, в порядке "прихода в голову", а не в порядке важности:

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

2. Почему у тебя по i цикл while, а по j - for?

3. ВСЕ переменные перед использованием должны быть инициированы (у тебя не инициированы k и kmax).

4. Твои if и while внутри цикла выполняют выполняют одну и ту же функцию - объедини их )).

5. Избегай лишних переменных.

6. Не нужно дважды объявлять один тип там, где это _не_нужно_. Формально твои а и а1 принадлежат к разным типам. Тут это не важно, но в принципе может вызвать проблемы.

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

А вообще - +1 за то, что сама решаешь )).