Описать функцию CompressStr(S) строкового типа,выполняющую сжатие строки S

[Allen Iverson]

На паскале....
Описать функцию CompressStr(S) строкового типа,выполняющую сжатие строки S по следующему правилу: каждая подстрока строки S, состоящая из более чем четырех одинакоывых символов C, заменяется текстом вида C{K}, где K - количество символов С(предпологается что S не содержит фигурных скобок { и }). Например, для строки S="bbbccccce" функция вернет строку "bbbc{5}e".

Прошу помогите...очень срочно нужно...

[Serge_Bliznykov]

берите решение от Min и модифицируйте под себя...
http://www.programmersforum.ru/showthread.php?t=45173

[Sazary]

Вроде, все работает.

uses crt;
var
s : string;

function compress(s : string) : string;
var rez,buf : string;
i,k,t : integer;
c : char;
begin
rez := s;
k := 1;  { количество текущей буквы }
i := 2;   { указатель на 2-й символ строки }
t := 1;  { указатель на начало ряда }
while i<=length(rez) do  { идем по строке }
 begin
 if rez[i]=rez[i-1] then    { если текущий символ равен предыдущему... }
  inc(k)            { увеличиваем счетчик }
 else         { иначе... }
  begin
  if k>4 then   { если на счетчике больше 4 }
   begin
   c := rez[i-1];   { в c кладем символ, из которого формируется ряд }
   delete(rez,t,k);  { удаляем ряд }
   Str(k,buf);      { преобразуем k  в строку и кладем в buf }
   insert(c+'{'+buf+'}',rez,t);  { вставляем конструкцию на место ряда}
   end;

  k := 1;   { т.к. перешли к новому ряду, то обнуляем (точнее, "объединичиваем") счетчик }
  t := i;  { и запоминаем начало потенциального ряда }
  end;
 inc(i);
 end;
 if k>4 then   { а это нужно на случай, если ряд находится в конце строки }
   begin            { все то же самое }
   c := rez[i-1];
   delete(rez,t,k);
   Str(k,buf);
   insert(c+'{'+buf+'}',rez,t);
   end;
compress := rez;
end;
{---------}

begin
clrscr;
readln(s);
s := compress(s);
writeln(s);

readln;
end.

---------------
Вижу, решение Min короче )

[Allen Iverson]

Sazary вам ОГРОМНЕЙШЕЕ СПАСИБО

[Allen Iverson]

Уважаемый Sazary....простите за наглость но не могли бы вы состаить комментарии к своей программе....заранее спасибо...

[Sazary]

Allen Iverson, добавил в листинг.
Только решение Min'а действительно короче.

[Allen Iverson]

Sazary если можно прокомментируйте программу

[Sazary]

Сообщение от Allen Iverson

Sazary если можно прокомментируйте программу

Случайный повтор, или я что-то не понял?