Архивация

[Loreen]

function encode(s:string):string;//функция архивации
var i,j:integer;
    k:string;
begin
  i:=1;
  while i <= length(s) do
  begin
    j:=i;
    while (s[i] = s[j+1]) do
    inc(j);
    if (j-i = 0) or (j-i = 1) or (j-i =2) then
    begin
      k := k + s[i];
      if (s[i]='0') then k:=k+'0';
      inc(i)
    end
    else
    begin
      k:= k + inttostr(j-i+1) + s[i];
      inc(i,j-i+1)
    end;
  end;
  result:= k;
end;
//--------------------------------------
function decode(s:string):string;//функция разархивации
var i,j,c:integer;
    k:string;
    m: string;
begin
  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
      m:= copy(s,i,j-i);
      for c:=1 to strtoint(m) do k:= k+ s[j];
      delete(s,i,j-i+1);
    end
    else
    begin
      k:= k+ s[i];
      inc(i);
    end;
  end;
  result:= k;
end;
begin
  SetconsoleCP(1251);
  SetConsoleOutputCP(1251);
  Writeln('Введите текст для архивации');
  read(m);
  writeln(encode(m));
  writeln(decode(m));
  Readln;
end.

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

[Stilet]

программа вылетает при выводе результата.

Ну а протрассировать?

while i <= length(s) do
begin
j:=i;
while (s[i] = s[j+1]) do

Когда i будет указывать на последний символ, на что покажет j+1?
Тогда уж while i < length(s) do

[Loreen]

Исправила, как Вы сказали.. Всё равно вылетает..

[Sciv]

Думается мне:

while i <= length(s)-1

Потому что в конце цикла переменная i=length(s), тогда j=i+1=length(s)+1 - опять та же ошибка

А в первом случае в конце цикла i=length(s)+1, j=i+1=length(s)+2

[Loreen]

Вылетает всё равно..

[Sciv]

Проверил - ничего не вылетает.

UPD А, ну да. Вместо read(m); напишите readln(m);. Она не вылетает, просто отрабатывает и закрывается консоль, так как первый ввод не ждет нажатия Enter, то это нажатие автоматически получает ReadLn в конце и считает, что так надо

UPD #2 Ну вот, все же научитесь пользоваться отладчиком. У Вас переменная k в функциях никак не проинициализирована, и ее начальное значение может быть практически любым. Допишите в каждой функции k:=''; сразу после i:=1;

UPD #3 У Вас во второй функции локальная переменная m объявлена - возникает явное пересечение имен с глобальной m, которую Вы вводите, кодируете-декодируете в основном тексте программы. При этом нигде почти не используется, но кровь портит изрядно - убирайте ее и меняйте название на другую.

UPD #4 Присмотритесь внимательно: цикл идет по c, а обращение идет к s[j]:

for c:=1 to strtoint(m) do k:= k+ s[j];

Кроме того, c:=1 to strtoint(m) - это точно так надо? Если я введу строку 123456, то получу не только ее, но и кучу разных левых символов из памяти. Проверьте алгоритм, правильно ли Вы его реализуете?

[Loreen]

UPD #2 Ну вот, все же научитесь пользоваться отладчиком. У Вас переменная k в функциях никак не проинициализирована, и ее начальное значение может быть практически любым. Допишите в каждой функции k:=''; сразу после i:=1;

не понимаю, что нужно дописать

[Sciv]

не понимаю, что нужно дописать

В начале функции дописать:

k:='';

она, конечно, инициализируется вероятнее всего пустой, но лучше этот процесс под контроль взять и сразу исключить возможные ошибки.