Obousmerny seznam procedura – Pascal – Fórum – Programujte.com

type UkPrvek = ^Prvek;
     Prvek = record
           info : integer;
           predchudce, naslednik : UkPrvek;
           end;

     ObousmerSeznam = record
         zacatek: UkPrvek;
         konec: UkPrvek
     end;

procedure init(var s: ObousmerSeznam);
begin
    s.zacatek:=nil;
    s.konec:=nil;
end;

procedure vlozNaZacatek(var s: ObousmerSeznam; hodnota: integer);
var novy : UkPrvek; 
begin
new(novy);
novy^.info:=hodnota;
novy^.predchudce:= nil;
novy^.naslednik:=s.zacatek;
s.zacatek:=novy;
if s.konec = nil then s.konec:=novy
end;

procedure vlozNaKonec(var s: ObousmerSeznam; hodnota: integer);
var novy: UkPrvek;
begin
new(novy);
novy^.info:=hodnota;
novy^.naslednik:=nil;
novy^.predchudce:=s.konec;
s.konec:=novy;
if s.konec = nil then s.konec:=novy
end;

procedure vypis(s:ObousmerSeznam);
var aktivni: UkPrvek;
begin
aktivni:=s.zacatek;
while (aktivni <> nil) do begin
write(aktivni^.info,' ');
aktivni:=aktivni^.naslednik;
end;
end;

Nevite proc procedure vlozNaKonec nefunguje ? 

A u metody vloz na zacatek tak u pridani 2. prvku na zacatek kdyz probehne tento prikaz novy^.naslednik:=s.zacatek;
tak druhy prvek predchudce furt ukazuje na NIL ? 

procedure vlozNaZacatek(var s: ObousmerSeznam; hodnota: integer);
var novy : UkPrvek;
begin
if s.zacatek = nil then begin
new(novy);
novy^.info:=hodnota;
novy^.predchudce:= nil;
novy^.naslednik:=s.zacatek;
s.zacatek:=novy;
if s.konec = nil then s.konec:=novy
end
else new(novy);
novy^.info:=hodnota;
novy^.predchudce:=nil;
novy^.naslednik:=s.zacatek^.predchudce;
s.zacatek^.predchudce:=novy^.naslednik;
s.zacatek:=novy;
end;

Danou proceduru jsem zmenil ale stale to nefunguje

nemel by tu byt spis zacatek?

if s.konec = nil then s.konec:=novy

konec si presne na radku pred tim nastavil...

Nekomplikuj to a piš jednoduše, kdo to pak má číst? Vytvoříš nový prvek, prolinkuješ se starým a aktualizuješ hlavičku.

procedure vlozNaZacatek(var s: ObousmerSeznam; hodnota: integer);
var
    stary, novy: UkPrvek;
begin
    stary := s.zacatek;

    new(novy);
    novy^.info := hodnota;
    novy^.predchudce := nil;
    novy^.naslednik := stary;

    if stary <> nil then stary^.predchudce := novy;

    s.zacatek := novy;
    if s.konec = nil then s.konec := novy;
end;

procedure vlozNaKonec(var s: ObousmerSeznam; hodnota: integer);
var
    stary, novy: UkPrvek;
begin
    stary := s.konec;

    new(novy);
    novy^.info := hodnota;
    novy^.predchudce := stary;
    novy^.naslednik := nil;

    if stary <> nil then stary^.naslednik := novy;

    s.konec := novy;
    if s.zacatek = nil then s.zacatek := novy;
end;

wau dik jde videt ze se to da udelat snadneji :)

procedure smazHodnoty(var s: ObousmerSeznam; hodnota: integer);
var aktivni,tmp: UkPrvek;
begin
aktivni:=s.zacatek;
while (aktivni <> nil) do begin
  if aktivni^.info = hodnota then begin
    tmp:=aktivni;
    aktivni^.naslednik^.predchudce:=aktivni^.predchudce;
    aktivni^.predchudce^.naslednik:=aktivni^.naslednik;
    dispose(tmp);
  end;
aktivni:=aktivni^.naslednik;
end;
end;

Procedura na smazani prvku obsahujici danou hodnotu, ale hazi error 216