Pascal, кодирование, декодирование информации

[pashka182]

Добрый день, завтра зачет и надо исправить программу декодирования.
--------------------------------------------------------------------------

var s:string;
function decode(s:string):string;
var i,j,c:integer;
    newS:string;
    dp : string;
begin
 writeln('Enter encode string: '); readln(s);
i:=1;
while i <= length(s) do
  begin
    j:=i;
    while s[j] in ['0'..'9'] do inc(j);
    if j-i > 0 then
    begin
      dp := copy(s,i,j-i);
      for c:=1 to strtoint(dp) do newS := newS + s[j];
      delete(s,i,j-i+1);
    end else
    begin
      newS := newS + s[i];
      inc(i);
    end;
  end;
  result:= newS;
  end;
  begin
  writeln('RLE: ',decode(s));
end.

--------------------------------------------------------------------------
А ошибка заключается вот в чём:
Если ввести например 4а, программа выведет "аааа", но если ввести 42(по идее надо вывести "2222"), выводи пустую строку.
Вот как то это исправить надо.

[Stilet]

Как-то так:

  while i <= length(s) do  begin
    if s[i] in ['0'..'9'] do  begin
      for c:=1 to strtoint(s[i]) do newS := newS + s[i+1];
      inc(i);
    end else    newS := newS + s[i];
    inc(i);
  end;

[pashka182]

if s[i] in ['0'..'9'] do begin
ошибку выдает

[Stilet]

ошибку выдает

Ай яй яй... Какой нехороший компилятор. Наверно напился или обкурился )

[pashka182]

Ну блин) что делать то? у меня мозг уже не работает, помогите ребят)

[Serge_Bliznykov]

Ну блин) что делать то? у меня мозг уже не работает, помогите ребят)

1) указать какую ошибку выдаёт компилятор (и, кстати, какой у Вас именно компилятор укажите!
например, это точно не Turbo Pascal... Так какой?!)

2) приведите пример вашей программы с внесёнными исправлениями...

3) перестать паниковать и начинать ДУМАТЬ!

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

Ай яй яй... Какой нехороший компилятор. Наверно напился или обкурился )

да нет, это кто-то его (компилятор) пытается обмануть!

  while i <= length(s) do  begin
    if s[i] in ['0'..'9'] do  begin

лучше ( :-) ) так :

  while i <= length(s) do  begin
     if s[i] in ['0'..'9'] then  begin

[pashka182]

Pascal ABC
___________________________________ __________________________________

var s:string;
function decode(s:string):string;
var i,j,c:integer;
    newS:string;
    dp : string;
begin
 writeln('Enter encode string: '); readln(s);
i:=1;
while i <= length(s) do
  begin
    j:=i;
  while i <= length(s) do  begin
    if s[i] in ['0'..'9'] do  begin
      for c:=1 to strtoint(s[i]) do newS := newS + s[i+1];
      inc(i);
    end else    newS := newS + s[i];
    inc(i);
  end;
  end;
  result:= newS;
  end;
  begin
  writeln('RLE: ',decode(s));
end.

___________________________________ __________________________________
Строка 13 Столбец 26
Неверное выражение

Я просто уже не могу думать




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

не забывайте код на форуме оформлять тегами!


ладно, ловите свою программу с корректировкой (c) Stilet

function decode(s: string): string;
var i, j, c: integer;
  newS: string;
  dp: string;
begin
  i := 1;
  while i <= length(s) do begin
    if s[i] in ['0'..'9'] then begin
      for c := 1 to strtoint(s[i]) do newS := newS + s[i + 1];
      inc(i);
    end else newS := newS + s[i];
    inc(i);
  end;
  decode := newS;
end;

var s: string;
begin
  writeln('Enter encode string: '); readln(s);
  writeln('RLE: ', decode(s));
  Readln;
end.

[pashka182]

Спасибо огромное!!!!