Паскаль. Сжатие строки

[ИриSka-147]

Паскаль. Сжатие строки

 когда ввожу 1 элемент,то задача не идет...как исправить??
 program Task464;
 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('Введите строку: ');
 read(s);
 RAR(s);
 write('Сжатая строка: ', s);
 end.

 

[Vladimir_S]

Прежде всего - будьте так любезны выложить формулировку задачи.

И еще - в соответствии с нашими Правилами, именования тем типа "Помогите!!", "Нужна помощь!", "Help!!!", "Помогите, пожалуйста" и т.п. НЕ ДОПУСКАЮТСЯ.

 

[ИриSka-147]

Составить процедуру "сжатия" исходной последовательности символов: каждая подпоследовательность, состоящая из нескольких вхождений одного и того же символа, заменяется на текст х(к), где х - символ, к - строка, являющаяся записью числа вхождений символа х в исходную последовательность.

 

[Vladimir_S]

Спасибо. И еще, если не затруднит, - подробнее о проблеме. Что значит "ввожу 1 элемент"? Первый элемент? Или вся строка состоит из одного символа? Расшифруйте, пожалуйста.

 

[ИриSka-147]

вся строка состоит из 1го символа

 

[Vladimir_S]

Хорошо, попробую выбрать время и повозиться с программой. Как получится.

 

[ИриSka-147]

буду очень благодарна

 

[Vladimir_S]

Так, ну погонял я Вашу программу.
Всё там абсолютно правильно, и по одному символу работает прекрасно, кроме одной мелочи.
Запомните на будущее:
СТРОКОВАЯ ПЕРЕМЕННАЯ СЧИТЫВАЕТСЯ ТОЛЬКО ОПЕРАТОРОМ "Readln", НИКАКИХ "Read"!!!
А потому исправьте четвертую снизу строку с "read(s);" на "readln(s);" - и будет Вам счастье!

 

[ИриSka-147]

исправила ,и нет мне счастья

 

[Vladimir_S]

исправила ,и нет мне счастья

Так.
Ну либо Вы не то исправили, либо у Вас какой-то глючный Паскаль.
Вот что сделал я.
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. Результаты:



tehno015tehno015tehno015

 

[ИриSka-147]

у меня авс.net
ничего не получается

 

[Vladimir_S]

у меня авс.net
ничего не получается

Извините, но, как видите - программу я совсем не переделывал (кроме замены кириллицы латиницей в сообщениях и добавления останова в самом конце), однако в моём DOS Free Pascal она работает "на ура", как и должна, ибо, насколько могу судить, написана абсолютно грамотно и ошибок (ну, если не считать read/readln) не содержит.
Я уже неоднократно высказывал здесь своё мнение по поводу этого не при дамах будь сказано изделия №2 по имени АВС, думал, хоть .NET лучше, но, похоже, того же и столько же и тем же самым по тому же месту.
Ну что же, попытайтесь отладить всякими там остановами, выводом промежуточных результатов и т.п., чтобы понять, на чем эта дрянь спотыкается. Я Вам тут, к сожалению, не помощник.

 

[ИриSka-147]

Спасибо большое)

 

[Vladimir_S]

Есть одна гипотеза. Попробуйте такой вариант:

Uses CRT;
Var
 s:string;

Function RAR(s:string):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)];
 RAR:=s1;
end;

Begin
 write('Enter the string: ');
 Readln(s);
 write('Compressed string: ', RAR(s));
 ReadKey
End.