Добавление элемента в начало односвязного списка

@kozak95 · Регистрация: 01.11.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте, может есть у кого то процедура, добавления элемента в начало списка(указатель стоит не на первом элементе списка), поделитесь пожалуйста. Буду очень благодарен.

Delphi

type
  TData = Integer;
  TPElem = ^TElem;
  TElem = record
    Data : TData;
    PNext : TPElem;
  end;
 
  procedure AddFirst(var aPList : Telem; const aData : TData);
  begin
    //....
  end;
 
//Добавление элемента в конец списка.
procedure AddL(var aPList : TPElem; const aData : TData);
var
  PElem, PEnd : TPElem;
begin
  PEnd := nil;
  PElem := aPList;
  while PElem <> nil do begin
    PEnd := PElem;
    PElem := PElem^.PNext;
  end;
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := nil;
  if PEnd = nil then
    aPList := PElem
  else
    PEnd^.PNext := PElem;
end;

@Mawrat · 22.11.2014, 17:56

Сообщение от kozak95

Здравствуйте, может есть у кого то процедура, добавления элемента в начало списка (указатель стоит не на первом элементе списка)

Если в односвязанном списке указатель на первый элемент неизвестен, то этот элемент потерян (утечка памяти). Вернее, будут утеряны все элементы, которые идут до того элемента, на который указатель известен.

Если всё же указатель на первый элемент списка известен, то процедура добавления нового элемента в начало списка может быть такой:

Delphi

//Добавление элемента в начало списка.
procedure AddF(var aPList : TPElem; const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := aPList;
  aPList := PElem;
end;

@kozak95 · 22.11.2014, 17:58 **[ТС]**

А если условие такое, то какой это список может быть?
Задано числа D1 та D2 та вказівник P0 на один з елементів непорожнього списку (не перший та не останній). Додати до початку списка новий елемент зі значенням D1, а у кінець — новий елемент зі значенням D2. Вивести список до та після модифікації.

@kozak95 · 22.11.2014, 18:00 **[ТС]**

Проект такой получился:

@Mawrat · 22.11.2014, 18:11

В проект надо добавить процедуру AddF() и добавить ещё одну кнопку - её обработчик написать так же, как для Button1. Только там вместо AddL() использовать AddF(). - По этой кнопке элементы будут добавляться в начало списка.

@kozak95 · 22.11.2014, 18:28 **[ТС]**

Cпасибо)

@kozak95 34 / 34 / 21 Регистрация: 01.11.2013 Сообщений: 319
	22.11.2014, 17:58 [ТС]	3
	А если условие такое, то какой это список может быть? Задано числа D1 та D2 та вказівник P0 на один з елементів непорожнього списку (не перший та не останній). Додати до початку списка новий елемент зі значенням D1, а у кінець — новий елемент зі значенням D2. Вивести список до та після модифікації. 0

@Mawrat 13097 / 5878 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	22.11.2014, 18:11	5
	Сообщение было отмечено kozak95 как решение Решение В проект надо добавить процедуру AddF() и добавить ещё одну кнопку - её обработчик написать так же, как для Button1. Только там вместо AddL() использовать AddF(). - По этой кнопке элементы будут добавляться в начало списка. 1

@kozak95 34 / 34 / 21 Регистрация: 01.11.2013 Сообщений: 319
	22.11.2014, 18:28 [ТС]	6
	Cпасибо) 0

Опции темы

Добавление элемента в начало односвязного списка

Решение