Более двух одинаковых букв в слове (pascal)

[sharamamburum]

В тексте определить количество слов, имеющих более двух одинаковых букв в слове. Вывести на экран эти слова. Удалить из исходного текста лишние (одинаковые) буквы из слова, оставив только одну.

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

Вот так я проверяю наличие более двух одинаковых букв

for i:=1 to length(s) do
 for j:=i + 1 to length(s) do
  if s[i] = s[j] then inc(k);
if k > 1 then writeln(s);

выполнить все условия задачи не получается.

[Smogg]

"длинношеяя жирафа" - сколько одинаковых букв?

[sharamamburum]

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

"длинношеяя жирафа" - сколько одинаковых букв?

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

[Smogg]

Да, не правильный пример придумал. Тогда так: "ддллиинноошшееяя".

[sharamamburum]

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

Да, не правильный пример придумал. Тогда так: "ддллиинноошшееяя".

Там ведь тоже нет трех повторяющихся букв, прога должна пропустить слово

[Stilet]

Для удобства разбей слова на массив: http://www.programmersforum.ru/showt...369#post398369
Затем опиши функцию, которая будет в цикле находить и заменять спаренные буквы.
Что-то вроде:

var c:char; i:integer;
begin
 for c:='а' to 'я' do begin
  i:=pos(c+c,s);
  while i<>0 do begin
   delete(s,i,1);
   i:=pos(c+c,s);
  end;
 end;
 Вернуть s
end;

P.S. Хотя ИМХО даже на массив можно не разбивать.

[sharamamburum]

Задача все еще актуальна... Нужна помощь

[Serge_Bliznykov]

sharamamburum, если я правильно понял задание, буквы могут быть расположены НЕ ПОДРЯД?
например, слово окорок должно измениться и превратиться в окрк ?
а если таких букв несколько?
Например, слово стереокатастрофическая в какое превращается?

[sharamamburum]

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

sharamamburum, если я правильно понял задание, буквы могут быть расположены НЕ ПОДРЯД?
например, слово окорок должно измениться и превратиться в окрк ?
а если таких букв несколько?
Например, слово стереокатастрофическая в какое превращается?

да, буквы могут идти не подряд. А слово "стереокатастрофическая" превратится в "стерокарафичя", т.е. даже если наборов несколько, то обрабатывается каждый.

[Smogg]

разбиваете на массив слов, слово приводите к нижнему регистру, создаете массив int[256] (количество символов в стандартной кодировке), обнуляете его, потом пробегаете по слову и инкрементите элемент массива, соответствующий символу:

int smb[256] = {0};
string sOrig = "OкороK";
string sLowered = "окорок";
for (int i = 0; i < sLowered .size(); i++){
   smb[(unsigned char)sLowered [i]] ++;
}

так получили количество соответствующих букв в слове.

теперь устанавливаем, что букву следует обрабатывать:

for (int i =0; i <256; i++)
{
   if (smb[i] >2) 
      smb[i] = 0;
   else
      smb[i] = 99999;
}

объявляем результирующую строку, тестим нормализованную строку, и если надо добавляем символ из исходной в результат:

string sResult;
for (int i = 0; i < sLowered.size(); i++)
{
   if (smb[(unsigned char)sLowered[i]] >= 0)
      sResult += sOrig[i];
   smb[(unsigned char)sLowered[i]]--;
}

В паскаль сами конвертите, ибо полагаю, что нужен алгоритм, а не копипаста.