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

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

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