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

@CrazySPELS · Регистрация: 13.06.2011

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

Delphi

Procedure AddToEnd(i:integer; var head:Tlist); 
//добавление элемента в конец списка i- добавляемые данные 
//head -начало для добавления элементов списка
var p,work:Tlist; 
begin 
new(work); 
work^.inf:=i; 
work^.next:=nil; //сформировали необходимый элемент 
if head=nil then head:=work // если список пустой заполнили его как начало 
else 
begin 
p:=head;
begin
while p^.next<>nil do p:=p^.next; //проходим до конца списка 
p^.next:=work; // ставим сылку на элемент
end;
end;

мне нужна такая же процедура но которая добовляет элемент в начало помогите написать пожалуста примеры были я непонимаю как они работаеют , тут 3-4 строчки кого не затруднит напишите плз

@taras atavin · 18.10.2011, 08:34

Delphi

Procedure AddToBegin(i:integer; var head:Tlist); 
//добавление элемента в начало списка i- добавляемые данные 
//head -начало для добавления элементов списка
var work:Tlist; 
begin 
       new(work); 
       work^.inf:=i; 
       work^.next:=head; //сформировали необходимый элемент 
       head:=work;
end;

Добавлено через 1 минуту

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

3-4 строчки кого не затруднит напишите плз

Основных строк 4, всего 10.

Опции темы