0

Добрый вечер всем. Нужна помощь - есть реализация линейного односвязного списка на Паскале. Данной процедурой хочу продублировать все положительные элементы, однако выбрасывает переполнение буфера, зацикливает. Не могу обнаружить ошибку, помогите пожалуйста.

 procedure doublePlus(var start: link);
    var
      p: link;
    begin
      if start <> nil then begin
        if start^.inf > 0 then begin
          new(p);
          p^.inf := start^.inf;
          p^.next := start^.next;
          start^.next := p;
        end doublePlus(start^.next)
      end 
    end;

1 ответ 1

2

Если start^.inf > 0, то Вы создаёте дубль start^, а затем с этим дублем проделываете то же самое. Измените рекурсивный вызов для случая start^.inf > 0 на doublePlus(p^.next), иначе doulePlus(start^.next)

1
  • Большое спасибо @alexlz - всё работает! 19 сен 2012 в 5:28

Ваш ответ

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

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