Поиск элементов [pascal]

[illuminato]

Здравствуйте, подскажите как определить максимальную повторяющуюся последовательность значений в двухсвязном списке. или размер этой последовательности?

Это для этой задачи: Задан двунаправленный список, содержащий целочисленные значения. Удалить из указанного списка серии максимальной длины.

[Serge_Bliznykov]

да так же, как и в обычном массиве.
запоминаем значение первого элемента. Счётчик_текущий = 1
перебираем последующие элементы. Если значение совпадает с запомненным, тогда счётчик_текущий = счётчик_текущий + 1
если не совпадает (новая серия началась), сравнваем счётчик_текущий с максимальным значением. Если он больше, то запоминаем номер (адрес) серии и максимальную длину.
повторяем, пока все элементы не будут рассмотрены.

после удаляем найденную серию.

[Stilet]

illuminato

Показывай как формируешь список.

[illuminato]

Stilet,

Program Spisok_dn;
uses
  crt; 
type
  Tinf=integer;
  List=^TList;  
  TList=record 
    data:TInf;
    next, 
    prev:List; 
  end;
  
procedure AddElem(var nach,ends:List;znach1:TInf);
begin
  if nach=nil then
  begin
    Getmem(nach,SizeOf(TList)); 
    nach^.next:=nil; 
    nach^.prev:=nil; 
    ends:=nach; 
  end
  else 
  begin
    GetMem(ends^.next,SizeOf(Tlist));
    ends^.next^.prev:=ends; 
    ends:=ends^.next;
    ends^.next:=nil; 
  end;
  ends^.data:=znach1;
end;


procedure Print(spis1:List);
begin
  if spis1=nil then
  begin
    writeln('‘¯¨á®ª ¯ãáâ.');
    exit;
  end;
  while spis1<>nil do
  begin
    Write(spis1^.data, ' ');
    spis1:=spis1^.next
  end;
end;



var
 SpisNach, 
  SpisEnd,   
  tmpl:List; 
  znach,a,b:integer;
  ch:char;
  n:integer;
  i:byte;
begin

i:=1;
While LowCase(ch)<>chr(110) do begin
write('Введите элемент:  ',i,' : ');
readln(znach);
AddElem(SpisNach,SpisEnd,znach);
Writeln('Продолжить ввод(Y/N): ');
read(ch);
inc(i);
Writeln;
end;
Writeln('Вывод:');
print(SpisNach);


     
 end.

[s-andriano]

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

да так же, как и в обычном массиве.
запоминаем значение первого элемента. Счётчик_текущий = 1
перебираем последующие элементы. Если значение совпадает с запомненным, тогда счётчик_текущий = счётчик_текущий + 1
если не совпадает (новая серия началась), сравнваем счётчик_текущий с максимальным значением. Если он больше, то запоминаем номер (адрес) серии и максимальную длину.
повторяем, пока все элементы не будут рассмотрены.

после удаляем найденную серию.

Странно...
"фывфыва"
Максимальная повторяющаяся последовательность "фыв", после удаления всех таких последовательностей должно остаться "а".
Как это соотносится с предложенным алгоритмом?

[illuminato]

s-andriano, Счётчик_текущий = 2 Если значение совпадает с предыдущем, тогда счётчик_текущий = счётчик_текущий + 1
если не совпадает (новая серия началась), сравниваем счётчик_текущий с максимальным значением. Если он больше, то запоминаем новое значение.
Повторяем, пока все элементы не будут рассмотрены. Далее удаляем последовательности длина которых равна счётчику. Вот такой примерно алгоритм, только как это реализовать я не знаю.

[s-andriano]

illuminato, в приведенном мною примере ни один символ не повторяется подряд, и в то же время существует повторяющаяся последовательность.
Сдается мне, Вы решаете совсем не ту задачу, условие которой содержится в 1-м посте.
Перечитайте его - там речь о повторяющейся последовательности, а не о последовательности из повторяющихся символов.

[illuminato]

Сообщение от s-andriano

illuminato, в приведенном мною примере ни один символ не повторяется подряд, и в то же время существует повторяющаяся последовательность.
Сдается мне, Вы решаете совсем не ту задачу, условие которой содержится в 1-м посте.
Перечитайте его - там речь о повторяющейся последовательности, а не о последовательности из повторяющихся символов.

Нет, я думаю там последовательности из одинаковых значений. например 1,2,3,3,3,5,6,8,8,8,8,7,7,7,5,5,5,5. и выходным списком уже будет: 1,2,3,3,3,5,6,7,7,7. Но в другом случаи, где вы описали, думаю задача будет намного сложнее.

[s-andriano]

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

Нет, я думаю...

А условие читать не пробовали?

[illuminato]

s-andriano,

Задан двунаправленный список, содержащий целочисленные значения. Удалить из указанного списка серии максимальной длины.

Серия - последовательность повторяющихся элементов.