Ошибка 201, как исправить ? - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Ошибка 201, как исправить ?»

textual
Листинг программы
 procedure mas(p: list; var a: TArray; var n: integer);
  begin
    n := 0;
    while p <> nil do
    begin
      if p^.info <> 0 then
      begin
        Inc(n);
        a[n] := p^.info;
      end;
      p := p^.Next;
    end;
  end;

Объяснение кода листинга программы

  1. В процедуре mas объявлены три переменные: p (тип list), a (тип TArray) и n (тип integer).
  2. Переменная n инициализируется значением 0.
  3. Затем происходит цикл while, который выполняется до тех пор, пока p не станет равным нулю.
  4. В цикле проверяется значение поля info у каждого элемента списка p.
  5. Если значение поля info равно 0, то увеличивается значение переменной n на единицу, и элемент с этим значением добавляется в массив a.
  6. После проверки всех элементов списка, переменная p обновляется, чтобы указать на следующий элемент в списке.
  7. Цикл while повторяется до тех пор, пока все элементы списка не будут обработаны.
  8. По завершении процедуры, переменная n содержит количество элементов, добавленных в массив a.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы