[ 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!! |
[ tasa5 @ 06.02.2005. 13:16 ] @
[ 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.
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|