Spojový seznam problém s procedurou Hledej – Pascal – Fórum – Programujte.com

Ahoj,

mám problém s procedurou Hledej u spojového seznamu..

procedure Hledej(P:Uk);
var x:integer;
begin
 x:=5;
 while (p <> nil) and (p^.info <> x) do p:= p^.Dalsi;
 if p^.info <> x then writeln('Nenaslo se')
 else writeln('Naslo se');
end;

Když se daný prvek nachází ve spojáku vypíše se to, ale když se tam nenachází hodí to error: acces violation... nevím co s tím..

Předem díky.

kdyz se nenajde, tak je p = nil a tim paden  p^ natoz p^.info je nesmysl (respektive dereference null pointeru)

A jak by to teda mělo být? Trápím se tu s tím už hrozně dlouho...

no jak asi - musis jeste taky zkontrolovat, jestli neni p nil, nez se do nej zacnes hrabat

Tam jsem to zkontroloval a ne p není nil...

Aha, tak po cyklu while už je nil to bude nejspíš ta chyba..

Ale po cyklu má být nil, tak tohle už fakt nevím co tam je za chybu..

if p^.info ...

Derefencuješ pointer co na tomhle místě může být (a je) nil, proto ta chyba.

#7 Jakub
po cyklu ma byt nil jen v pripade, ze NENASEL ten prvek. Pokud nasel, tak tam nil neni a proto to nepada na access violation

*dereferencuješ (jo to vůbec slovo?   )

A jakým způsobem to teda mám obejít? Aby mi to tu chybu neházelo? Učili jsme se spojáky hodinu a hned mám dělat tohle...

Už to asi mám..

#11 Jakub
Podminky

Jestli to má jen zjistit našlo/nenašlo, tak asi takhle:

procedure Hledej(P:Uk);
var x:integer;
begin
 x:=5;
 while (p <> nil) and (p^.info <> x) do p:= p^.Dalsi;
 if p=nil then writeln('Nenaslo se')
 else writeln('Naslo se');
end;

Ale normalne se nedela fixni podminka. Preda se jako parametr. A vrati se pointer na ten prvek, nebo nil kdyz nenaslo.

neco jako:

function Hledej(Ptr:Uk; co:integer): Uk;
begin
  while (Ptr <> nil) and (Ptr^.info <> co) do Ptr := Ptr^.Dalsi;
  Hledej := Ptr; // nebo return Ptr; pokud to prekladac umi
end;