[ tasa5 @ 06.02.2005. 13:16 ] @
Poz,

Treba da sortiram jednostruko ulancanu listu u TP-u. I kako da ubacim novi cvor na kraj liste? Ako neko moze da mi pomogne, bio bih mu veoma zahvalan!!
[ bancika @ 06.02.2005. 13:24 ] @
zavisi kako je zadata lista: ako imas pokazivace i na pocetak i na kraj onda:
Code:

new(p);
kraj^.next := p;
p^.next := nil;
p^.inf := neko polje

a ako nemas kraj onda ga nadjes ovako:
Code:

kraj := pocetak
while kraj^.next <> nil do
 kraj := kraj^.next;

i onda ono sto sam napisao pre.

sto se tice sortiranja najbolje je da napravis novu praznu listu i onda svaki element iz prve ubacis u drugu tako da ona ostane sortirana:
prvi stavis na pocetak. ako je drugi manji od prvog stavis ga ispred, inace iza. treci moze na pocetak, izmedju njih i na kraj, itd, itd :)
[ Srki_82 @ 07.02.2005. 23:24 ] @
Ako ti nije bas bitno da to bude "jednostruko ulancana lista" mozes koristiti TCollection i TCollectionItem za te stvarcice. Prilicno je lako koristiti ove objekte (ubacivanje novih podataka bilo gde u listi, brisanje, menjanje mesta podacima...). Za sortiranje uradis obican QuickSort i nemas problema. Cak mozes vrlo lako i da zapisujes podatke na disk i da ih kasnije ucitavas.
[ bancika @ 07.02.2005. 23:50 ] @
Jesi siguran da to ima u pascalu? Mislim da coveku treba za skolu/fax a tamo mora tako. U delphi-ju ima TList koja je "prava" jednostruko povezana lista.
[ Srki_82 @ 08.02.2005. 00:06 ] @
U TP7 ima sigurno. Ja sam na takmicenjima radio sa tim objektima kad god je trebalo da se pamti neki nepoznat broj podataka i da se posle podaci rasporedjuju po nekom pravilu. Vrlo lako za koriscenje kao sto sam i rekao.