🚀 go-pugleaf

Mógłby ktoś zerknąć i skomentować?

-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

Piotrek pisze:
> Czy poniższa procedura, mająca usunąć z danej listy jednokierunkowej wszystkie 
> elementy o wartości podanej jako parametr e, działa dobrze czy też może 
> się "wysypać" dla jakiegoś szczególnego przypadku? Uprzejmie proszę o jej 
> sprawdzenie, ewentualnie skorygowanie (s to wskaźnik do początku listy, której 
> elementy są rekordami o 2 polach: jedno z nich, typu "dane", przechowuje 
> wartość liczbową, drugie, typu "next", jest wskaźnikiem do następnego elementu 
> listy):

dla mnie za skomplikowane, mało przejrzyste

> 
> procedure usunzlisty(s:wsk;e:integer);
> var pred,succ:wsk;
> begin
>  pred:=s;
>  succ:=s; {na początku oba wskaźniki wskazują na początek listy}
>  if s<>nil then {sprawdzenie czy lista jest niepusta}
  ten warunek nie potrzebny, while wystarczy
>  while pred<>nil do
>  if pred^.dane=e then {pred wskazuje na szukany element o kluczu-wartości e}
> 
>  if pred=s then {znaleziony element jest pierwszy na liście}

>   
>  begin
>   pred:=pred^.next;
>   dispose(succ);
>   succ:=pred;
>   s:=pred;
S i tak nie jest zwracany, więc jeżeli usuniesz pierwszy to lista wskazuje do nikąd
po drugie po co sprawdzasz w każdej iteracji czy to nie jest pierwsza, przerób 
procedurę tak aby najpierw sprawdzić pierwszy element a potem resztę
>  end
> 
>  else       {znaleziony element nie jest pierwszy na liście}
> 
>  begin
>   pred:=pred^.next;
>   dispose(succ^.next);
masz dwa różne DISPOSE, a tak naprawdę piszesz, że zwalniasz element o określonym 
e czyli powinno być prosto

if pred^.dane=e then  dispose(pred)

oczywiście z zachowaniem kroczenia po liście



Darek