Списки Опции

[Guest]

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

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

[volvo]

Описание списка и реализацию остальных функций/процедур для работы со списком - в студию...

[Guest]

Описание списка и реализацию остальных функций/процедур для работы со списком - в студию...

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

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


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

[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.

[volvo]

Тогда что-то вроде этого:

procedure DeleteAfter(var p: ref);
var to_delete: ref;
begin
  to_delete := Crd(p);
  p^.next := Crd(to_delete);
  dispose(to_delete);
end;

{ А вот та самая процедура:  }
Procedure Delete_After(var p: ref);
var
  curr: ref;
  X: integer;
begin
  write('Vvedite X = '); readln(X);
  curr := p;
  while curr <> nil do begin
    if curr^.inf = X then begin
      { если следующий есть и он не равен X ... }
      if (Cdr(curr) <> nil) and (Cdr(curr)^.Inf <> X) then
        DeleteAfter(curr) { ... то удалить его }
    end;
    curr := Cdr(curr);
  end;
end;

Кстати, процедура Delete, насколько я вижу, компилироваться не будет... :no:

[Guest]

Да моя процедура конечно не компилировалась.
Огромное спасибо за помощь :D !!