Динамические структуры, удаление текущего элемента x линейного списка. Опции

[Catherinektz]

Здравствуйте, мне нужна помощь, я сделала все процедуры (ниже в программе), а процедуру Remove(var x:PNode) не знаю как сделать! Помогите, пожалуйста. В ней нужно удалить текущий элемент x линейного списка.

Program Labal1_2;
Uses crt;

Type PNode=^Node;
Node=Record
data:Integer;
next:PNode;
End;

Var u,y:PNode;
n,k:Integer;

Procedure AddFirst(k:Integer; var p:PNode);
var t:PNode;
Begin
New(t);
t^.data:=k;
t^.next:=p;
p:=t;
End;

Procedure InputList(var p:PNode; n:Integer);
Var i,k:Integer;
Begin
For i:=1 To n Do Begin
                 Write('Введите k:');
                 ReadLn(k);
                 AddFirst(k,p)
                 End;
End;

Procedure PrintList(p:PNode);
Begin while p<>nil Do Begin
                      Write(p^.data, ' ');
                      p:=p^.next;
                      End;
WriteLn;
End;

Procedure DelFirst(var p:PNode);
Var t:PNode;
Begin
t:=p;
p:=p^.next;
dispose(t);
End;

Procedure DelNext(x:PNode);
Var t:PNode;
Begin
t:=x^.next;
x^.next:=t^.next;
dispose(t);
End;

Procedure DelLast(var x:PNode);
Var q:PNode;
Begin
If x^.next=nil Then DelFirst(x) Else Begin
                                     q:=x;
                                     While q^.next^.next<>nil Do q:=q^.next;
                                     DelNext(q);
                                     End;
End;

Procedure Delete(n:Integer; var p:PNode);
Var i,k:Integer;
Var q:PNode;
Begin
If n=1 Then DelFirst(p) Else Begin
                             q:=p;
                             For i:=1 To n-2 Do Begin
                                                If q^.next=nil Then Break Else q:=q^.next;
                                                End;

                             If q^.next<>nil Then DelNext(q) Else WriteLn('Нет столько элеметов в списке');

                             End;
End;

Procedure Clear(var p:PNode);
Begin
While p<>nil Do DelFirst(p);
End;



Begin
Clrscr;
WriteLn('Тестирование');

Writeln('Введите количество элементов в списке:');
Read(k);
InputList(u,k);
PrintList(u);

WriteLn('Удаление первого элемента:');
DelFirst(u);
PrintList(u);

WriteLn('Удаление элемента следующего за:');
DelNext(u);
PrintList(u);

WriteLn('Удаление последнего элемента:');
DelLast(u);
PrintList(u);

WriteLn('Удаление заданного элемента:');
WriteLn('Введите номер элемента');
ReadLn(n);
Delete(n,u);
PrintList(u);

WriteLn('Удаление всего списка:');
Clear(u);
PrintList(u);

ReadLn;
End.

Сообщение отредактировано: Lapp - 16.03.2012 4:07

[IUnknown]

WriteLn('Удаление текущего элемента x линейного списка:');
Remove(u);

То есть, в Remove передается начало списка? Тогда почему тебя это удивляет:

У меня почему -то удаляет только первый элемент списка.

? Какой же элемент должен удалиться, если процедура получила адрес первого?

Я думаю, что нужно ввести еще переменную, где будем указывать какой именно элемент в списке, и затем он его будет удалять.

Почему переменную, а не функцию? Скажем, реализовать функцию Search (которая в списке будет искать первый элемент с заданным значением и возвращать ссылку на него), и вызывать Remove вот так:

Remove( Search(u, 6) );