1

Проблема указана в коде, помогите исправить

procedure PutInQue(var Que: string; arg: char);
begin
  Que := Que + arg; { добавляем в конец строки }
end;
{ Выбор из очереди Que элемента в параметр arg }
function GetFromQue(var Que: string; var arg: char): boolean;
begin
  if Length(Que) = 0 { если очередь пуста }
    then GetFromQue := false
  else begin
    GetFromQue := true; { если не пуста }
    arg := Que[1]; { запоминаем первый элемент }
    Delete(Que, 1, 1); { и удаляем его из очереди }
  end
end;

var
  S_IN: string; { входной поток – символы }
  S_OUT: string; { выходной поток (пары) }
  all: string;
  c1, c2: char; { очередная пара – символы строки }
  i: integer;{ индекс во входном потоке }

begin
  S_IN := 'ZHJKqwertASDyuiopQWERTYUIOPasdf';
  S_OUT := '';
  all := ''; 
  for i := 1 to Length(S_IN) do
  begin
    c1 := S_IN[i];
    if c1 in ['A'..'Z']
    then begin
      if GetFromQue(all, c2)  then 
          begin
        if (all[length(all)] in ['a'..'z']) then //Тут выдаёт: Индекс находился вне границ массива
          S_OUT := (S_OUT + c1 + c2 + ' ')
      end
      else PutInQue(all, c1);
    end
    else begin
      if GetFromQue(all, c2)

        then if(all[length(all)] in ['A'..'Z']) then
          S_OUT := S_OUT + c2 + c1 + ' '

        else PutInQue(all, c1);
    end
  end;
  Writeln('Входной поток:');
  Writeln(S_IN);
  Writeln('Выходной поток:');
  Writeln(S_OUT);
end. 

 1. Элемент списка

2 ответа 2

1

Добавил протокол в код для вывода на экран. Смотрите: вы помещаете в очередь 1 символ, потом его же забираете и очередь пуста. Вообще в таких случаях надо использовать пошаговую отладку.

1 перед GetFromQue all= 
2 начало цикла all= Z
2 перед GetFromQue all= Z
2 после GetFromQue all=

Можно добавить проверку очереди на пустоту. Но вообще, кажется, у вас неверная реализация алгоритма решения задачи. Но поскольку условия задачи нет, то более определённо сказать нельзя.

procedure PutInQue(var Que: string; arg: char);
begin
  Que := Que + arg; { добавляем в конец строки }
end;
{ Выбор из очереди Que элемента в параметр arg }
function GetFromQue(var Que: string; var arg: char): boolean;
begin
  if Length(Que) = 0 { если очередь пуста }
    then GetFromQue := false
  else begin
    GetFromQue := true; { если не пуста }
    arg := Que[1]; { запоминаем первый элемент }
    Delete(Que, 1, 1); { и удаляем его из очереди }
  end
end;

var
  S_IN: string; { входной поток – символы }
  S_OUT: string; { выходной поток (пары) }
  all: string;
  c1, c2: char; { очередная пара – символы строки }
  i: integer;{ индекс во входном потоке }

begin
  S_IN := 'ZHJKqwertASDyuiopQWERTYUIOPasdf';
  S_OUT := '';
  all := ''; 
  for i := 1 to Length(S_IN) do
  begin
    writeln(i,' начало цикла all= ',all);
    c1 := S_IN[i];
    if c1 in ['A'..'Z']
    then begin
      writeln(i,' перед GetFromQue all= ',all);
      if GetFromQue(all, c2)  then 
          begin
      writeln(i,' после GetFromQue all= ',all);
       if all.Length>0 then 
        if (all[all.Length] in ['a'..'z']) then //Тут выдаёт: Индекс находился вне границ массива
          S_OUT := (S_OUT + c1 + c2 + ' ')
      end
      else PutInQue(all, c1);
    end
    else begin
      if GetFromQue(all, c2) then 
      if all.Length>0 then 
      if(all[all.Length] in ['A'..'Z']) then
          S_OUT := S_OUT + c2 + c1 + ' '

        else PutInQue(all, c1);
    end
  end;
  Writeln('Входной поток:');
  Writeln(S_IN);
  Writeln('Выходной поток:');
  Writeln(S_OUT);
end. 

Кроме того более правильно для получения длины обращаться к свойству Length строки.

0

Вот тут:

IF (all[Length(all)] IN ['a'..'z']) THEN

Вы не учитываете, что длина all может быть 0.

2
  • Перед неё идёт функция GetFromQue, которая выдаёт false, если all=0 и, если all=0, то программа просто туда не зайдёт
    – Atom
    1 фев 2020 в 21:30
  • 1
    @ВладАпухтин Вы забыли, что она также удаляет элемент. Если длина была 1, то станет 0.
    – Ainar-G
    1 фев 2020 в 22:11

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.