Question

Паскаль. Для однонаправленного списка из целых чисел создайте следующие процедуры: в) Исключение из списка элемента с заданным номером(считать от 1).

Answer 1

Для реализации процедуры удаления элемента с заданным номером из однонаправленного списка на языке программирования Pascal, нужно выполнить несколько шагов. Ниже представлен пример кода:

program LinkedListDemo;

type
  // Определение структуры элемента списка
  Node = record
    Data: Integer;
    Next: ^Node; // Указатель на следующий элемент списка
  end;

// Определение типа указателя на элемент списка
  PNode = ^Node;

// Процедура добавления элемента в конец списка
procedure AddToEnd(var head: PNode; value: Integer);
var
  newNode, current: PNode;
begin
  // Создание нового элемента списка
  New(newNode);
  newNode^.Data := value;
  newNode^.Next := nil;

// Если список пуст, новый элемент становится его началом
  if head = nil then
    head := newNode
  else
  begin
    // Иначе находим последний элемент списка и добавляем новый элемент к нему
    current := head;
    while current^.Next <> nil do
      current := current^.Next;
    current^.Next := newNode;
  end;
end;

// Процедура вывода элементов списка
procedure PrintList(head: PNode);
var
  current: PNode;
begin
  current := head;
  while current <> nil do
  begin
    Write(current^.Data, ' ');
    current := current^.Next;
  end;
  Writeln;
end;

// Процедура удаления элемента с заданным номером из списка
procedure DeleteNode(var head: PNode; position: Integer);
var
  current, temp: PNode;
  i: Integer;
begin
  // Если список пуст, выходим
  if head = nil then
    Exit;

// Если удаляем первый элемент списка
  if position = 1 then
  begin
    temp := head;
    head := head^.Next;
    Dispose(temp);
  end
  else
  begin
    // Иначе находим предыдущий элемент перед удаляемым
    current := head;
    for i := 1 to position - 2 do
    begin
      if current^.Next = nil then
        Exit; // Если указанный номер превышает размер списка, выходим
      current := current^.Next;
    end;

// Удаляемый элемент
    temp := current^.Next;

// Перенаправляем указатель на следующий элемент
    current^.Next := temp^.Next;

// Освобождаем память, занимаемую удаляемым элементом
    Dispose(temp);
  end;
end;

var
  head: PNode; // Указатель на начало списка

begin
  head := nil; // Инициализация списка

// Добавление элементов в список
  AddToEnd(head, 10);
  AddToEnd(head, 20);
  AddToEnd(head, 30);
  AddToEnd(head, 40);

// Вывод списка до удаления
  Writeln('Список до удаления:');
  PrintList(head);

// Удаление элемента с заданным номером (например, номер 2)
  DeleteNode(head, 2);

// Вывод списка после удаления
  Writeln('Список после удаления:');
  PrintList(head);

// Освобождение памяти, занимаемой списком
  while head <> nil do
  begin
    DeleteNode(head, 1);
  end;
end.

В этом примере создаются процедуры для добавления элементов в конец списка, вывода элементов списка и удаления элемента с заданным номером. После добавления элементов в список происходит вывод списка, затем удаляется элемент с номером 2 (можете изменить номер по вашему усмотрению) и снова выводится измененный список. Наконец, освобождается память, занимаемая списком.