Показать сообщение отдельно
Старый 19.01.2015, 17:09   #10 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от ИриSka-147 Посмотреть сообщение
исправила ,и нет мне счастья
Так.
Ну либо Вы не то исправили, либо у Вас какой-то глючный Паскаль.
Вот что сделал я.
1. Программа:
Код:
Uses CRT;
Var
 s:string;

Procedure RAR(var s:string);
var
 s1,s2: string;
 i,j,k: integer;
begin
 s1:='';
 i:=1;
 while i<=length(s)-1 do
  begin
   if s[i]=s[i+1] then
    begin
     k:=1;
     j:=i;
     repeat
      k:=k+1;
      j:=j+1;
     until s[j]<>s[j+1];
     str(k,s2);
     s1:=s1+s[i]+'('+s2+')';
     i:=i+k;
    end
   else
    begin
     s1:=s1+s[i];
     i:=i+1;
    end;
  end;
 if s[length(s)]<>s[length(s) - 1] then s1:=s1+s[length(s)];
 s:=s1;
end;

Begin
 write('Enter the string: ');
 Readln(s);
 RAR(s);
 write('Compressed string: ', s);
 ReadKey
End.
2. Результаты:
Название: AA01.jpg
Просмотров: 282

Размер: 8.8 Кб
Название: AA02.jpg
Просмотров: 172

Размер: 5.9 Кб

Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070