строки

[Ромиk]

Дана строка содержащая только заглавные латинские буквы. Написать программу, которая «сжимает» строку используя следующий принцип: каждая последовательность состоящая из более чем двух одинаковых символов заменяется комбинацией <число повторений><буква>. Например:

Дана строка: ABCCCCBBAAAAAAABBB
Результат: AB4CBB7A3B

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

Можно протестировать эту задачу на сайте acmp.ru, номер задачи 231 (Внимание: есть небольшие различия в условиях)

Примечание: нельзя использовать дополнительные строки. Все преобразования должны применяться к исходной строке.

Прошу помощи

[Niro]

каждая последовательность состоящая из более чем двух одинаковых символов заменяется комбинацией <число повторений><буква>

  uses crt;
  var s,st: string;
     i,n,k: integer;
BEGIN
  clrscr;
  s:='ABCCCCBBAAAAAAABBB';
  writeln ('Input - ',s);
  writeln ('------------------------');
  repeat
    inc (i);
    k:= i;
    n:= 1;
    while (s[k] = s[k+1]) do
      begin
        if k = length (s) then break;
	inc (n);
        inc (k);
      end;
    if n > 2 then begin delete (s, i+1, n-1);
                        str (n, st);
			insert (st, s, i);
		  end;
  until i = length (s);

  writeln ('Output - ',s);
  readln;
END.

P.S. узнал для себя новое, оказывается при удалении символов из строки, они конечно удаляются, но вот крайние справа, остаются, т.е. они копируются, а не сдвигаются, Например

s:='1234560';
delete (s, 2, 1);
writeln (s);           
// результат - 134567
writeln (s [7]);     
// результат - 0, хотя сейчас у нас в строке всего шесть символов, и седьмой символ по хорошему бы должен был удалиться в результате работы delete

Вот так(

[Serge_Bliznykov]

.S. узнал для себя новое, оказывается при удалении символов из строки, они конечно удаляются, но вот крайние справа, остаются, т.е. они копируются,

Niro, это Вы заблуждаетесь!

s:='1234560';
delete (s, 2, 1);
writeln (s);           
// результат - 134567
writeln (s [7]);

Выведите длину строки после удаления.
WriteLn(Length(s));
Ничего не смущает? То, что строка имеет длину МЕНЬШЕ, чем тот символ, который Вы пытаетесь получить, не удивляет?

тогда рекомендую ознакомится с этим примером кода (тут вообще нет никакого удаления!):

var s : string;
begin
  s := 'My string';
  WriteLn(s);
  s := '12';
  WriteLn(s);
  WriteLn(s[4],s[5],s[6],s[7],s[8],s[9]);
  readln
end.

hint. строка в Паскале - по сути это массив из символов, длиной 256 байт (если не указано иное). первый (нулевой байт) - хранит ДЛИНУ строки. В остальных байтах находятся собственно символы, составляющие строку. Естественно, что при удалении символов, сдвигаются только те, которые входят в строку с новой длиной. Остальные символы не затираются, не изменяются - с точки зрения программы (и программиста), всё, что находится за пределами длины строки - это мусор. Используйте функцию Copy(s,x,1) вместо s[x] и таких казусов у Вас не будет. ну или контролируйте в собственном код, чтобы индекс не выходил за длину строки

[Niro]

Ничего не смущает? То, что строка имеет длину МЕНЬШЕ, чем тот символ, который Вы пытаетесь получить, не удивляет?

неа, не смущает, не удивляет) я серьезно
это

hint. строка в Паскале - по сути это массив из символов, длиной 256 байт (если не указано иное). первый (нулевой байт) - хранит ДЛИНУ строки. В остальных байтах находятся собственно символы, составляющие строку.

я знаю
а вот этого

Остальные символы не затираются, не изменяются

я не знал, я как раз наоборот думал, что они должны удаляться, заменяться символом с кодом #0, а оно вот как оказывается