Jump to content
Sign in to follow this  
newbie

Lista w pascalu

Recommended Posts

Heja, chcialbym sprawdzic czy ten algorytm jest poprawny. Odrazu sie przyznaje ze to 1 algorytm jaki pisze w pascalu, wiec przypuszczam mase bledow.

 

Pseudo kod wstawiania elementu na liste.

type
 alista = ^lista;
 lista = record
next : alista;
end;  
procedure wstaw_poczatek(var head : alista);
var
 tmp : lista;
begin
 new(tmp);
 if head = nil then
tmp^.next := nil
 else
tmp^.next := head;
 head := tmp;
end;

Share this post


Link to post
Share on other sites

Czemu w rekordzie listy kolejny element to lista również? W liście kolejny element to powinien być raczej wskaźnik na "coś tam" ale nie na listę znów. znaczy next to powinien być jakiś "pointer" (w delphi).

Share this post


Link to post
Share on other sites

5corpio to akurat jest ok. lista to wskaznik na element a element ma wskaznik na nastepny element.

Natomiast nie rozumiem za bardzo o co ci chodzi, czemu dajesz pseudokod? Działanie listy i pseudokody znajdziesz bez problemu mase przykladow.

Jeżeli chcesz coś zrobic to po prostu zacznij to programowac, jak nie dziala to debuguj, nie mozesz sobie poradzic zadaj konkretne pytanie czego nie rozumiesz albo co nie dziala.

Share this post


Link to post
Share on other sites

Dobra masz rację coś mi się pochrzaniło ;) po paru piwkach to źle człowiek widzi. W sumie w tej liście poza wskaźnikiem na kolejny element nie ma nic innego :P

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...