Динамические структуры, удаление текущего элемента 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

[Федосеев Павел]

FAQ не идеал, а образец для подражания (почти как "пиратский кодекс")

Procedure Remove(Var x:PNode);
Var r:PNode;
Begin
 r:=x^.next;
 if Assigned( r) then
 begin
   x^:=r^;
  Dispose( r);
 end
 else
   DelLast(x);
End;

Сообщение отредактировано: Федосеев Павел - 15.03.2012 22:11

[Catherinektz]

FAQ не идеал, а образец для подражания (почти как "пиратский кодекс")

Procedure Remove(Var x:PNode);
Var r:PNode;
Begin
 r:=x^.next;
 if Assigned( r) then
 begin
   x^:=r^;
  Dispose( r);
 end
 else
   DelLast(x);
End;

А что такое Assigned (перевод понимаю и знаю), а вот как и для чего нет! В Pascal ABC выдает ошибку