Списки Опции

[Guest]

Пожалуйста подскажите!

Как из списка удалить за каждым вхождением элемента Х один элемент,если он есть и отличен от Х.

[volvo]

Sorry, но Car(p), Cdr(p), Cons(x, L) не являются стандартными функциями... Так что мне эта реализация не говорит ни о чем...

[Guest]

Sorry, но Car(p), Cdr(p), Cons(x, L) не являются стандартными функциями... Так что мне эта реализация не говорит ни о чем...

Код

type ref=^Elem;
    Elem = RECORD
       Inf: integer;
       Next: ref;
       end;
var L, p: ref;
   x: integer;
const Strelka = '->';

function Car(L:ref):integer;
begin  Car:=L^.inf  end;

function Cdr(L:ref):ref;
begin  Cdr:=L^.next  end;

function Cons(x:integer; L:ref):ref;
var p: ref;
begin
new(p);
p^.inf:=x;
p^.next:=L;
cons:=p;
end;

Procedure Print_List(p: ref);
begin
 while p<>nil do
 begin
   write(Car(p),Strelka);
   p:=Cdr(p);
 end;
 writeln
end;

Procedure Delete(var p: ref);
var  r: ref; e:integer;
begin
 write('Vvedite E = ');
 readln(e);
{  while p<>nil do
 begin
   if p=E then write('error')
   else
     begin }
       r:=e^.next;
       e^.next:=r^.next;
       r^.next:=nil;
{      end;
 end;    }
end;

Begin
 L:=nil;
 write('Element: ');
 readln(x);
 while x<>0 do
 begin
   L:=Cons(x,L);
   write('Element: ');
   readln(x);
 end;
 Print_List(L);
 Delete(p);
 Print_List(L);
END.