pole s dynamickym poctom prvkov v pascale

Aries · Napísal **Aries**: 20.03.2008 10:42

potreboval by som v programe pouzit pole, ktoreho pocet prvkov nebude dopredu znamy, nastava ale problem, a to taky ze nemozem napisat nieco v zmysle array[1..x] of daco, chce to odo mna presnu hodnotu uz v deklaracnej casti...
pravdaze mohol by som tam hodit maximalnu moznu hodnotu ktora by mohla byt v programe pouzita, ale radsej by som chcel nieco efektivnejsie, co sa tyka vyuzitia pamate

rozmyslal som na niecim takym, ale netusim ako si to adresuje pamat, neviem to odsledovat, je nieco co by mi s tym mohlo pomoct? (pouzivam Free Pascal IDE) Tak tu je ten moj napad:

Kód:

var ...
    pole:array[1..65536] of ^integer;
begin ...
        for i:=1 to max do begin
             new(pole[i]);
             pole[i]^:=daco;
        end;
        ...
end.

Podla toho co si myslim by to malo zabrat pamat az ked do danej pozicie v poli priradim hodnotu, tzn ked bude hodnota premennej max napr. 100, tak v pamati bude adresovanych len sto hodnot typu integer, a nie 65536... ale to je len taka domnienka, neviem ako to v skutocnosti funguje :roll:

programator · Napísal **programator**: 20.03.2008 16:16

Nie, pokial deklarujes pole pole:array[1..65536] of ^integer; , tak sa alokuje 65536 buniek typu ^integer.
Ak chces vytvorit dynamicke pole, deklaruje sa a pouziva nasledovne :

Kód:

type PPole = ^array [0..0] of integer;

var Pole : PPole;
      pocet_prvkov : integer;

begin
   pocet_prvkov := 1000;
   { alokovanie pola }
   GetMem(Pole, pocet_prvkov * SizeOf(integer));

   { priradenie hodnot }
   Pole^[0] := 10;
   Pole^[1] := 15;
   Pole^[999] := 15;

   { uvolnenie pamate pouzivanej dynamickym polom}
   FreeMem(Pole, pocet_prvkov * SizeOf(integer));
end.

Aries · Napísal autor témy **Aries**: 20.03.2008 21:58

no tak som to skusil, ale hned pri deklarovani toho typu mi vypise ze po "=" ocakava identifikator, takze mu pravdepodobne vadi ten "^"

robi to v Free Pascal IDE aj v TP 7.0...

Aries · Napísal autor témy **Aries**: 22.03.2008 17:35

tak som trochu pozeral po strankach a na http://mircosoft.ic.cz/index2.htm som nasiel celkom podrobny clanok o dynamickych premennych a podobnych vecach, tu je to najdolzeitejsie, mozno sa to niekomu raz zide (skusal som to a vyzera to ze to funguje

):

Dynamicka pole
Tyto datove struktury slouzi k ukladani datovych polozek, jejichz pocet sice
nezname pri psani programu, ale pozdeji ho za behu programu jeste pred
zacatkem ukladani dat nejakym zpusobem zjistime.
Oproti spojovemu seznamu se setri pameti (nepotrebujeme ukazatel v kazde
polozce) a dosahuje se rychlejsiho pristupu (prosty index pole misto
postupneho prochazeni spojoveho seznamu).
Dynamicka pole v podstate funguji jako obycejna staticka pole (var pole:
array[...] of ...), jenomze je alokujeme dynamicky (na hromade a ne v Data
segmentu) za chodu programu a pri pristupu k nim musime napsat znak ^ navic.

Jak na to:
1) Definujeme si "sablonu" pole:
type SablonaPole=array[Min..Max] of PozadovanyTypPrvku;
Je potreba, aby typ prvku odpovidal budoucimu dynamickemu poli. Cislo Min
(minimalni index pole) musi odpovidat skutecnemu pozadovanemu minimalnimu
indexu dynamickeho pole, cislo Max muze byt cokoli od Min vys.

2) Definujeme druhy pomocny typ - ukazatel na jiz definovanou sablonu:
type UkazatelNaSablonu=^SablonaPole;

3) Vypneme kontrolu rozsahu: bud direktivou {$R-} nebo nastavenim Options ->
-> Compiler -> Range checking. Bude to potreba, protoze prave to nam umozni
zapisovat do budouciho dynamickeho pole kamkoli, treba i za index Max, pokud
to SKUTECNA velikost alokovane pameti dovoli.

4) Deklarujeme prislusnou promennou - ukazatel:
var DynPole:UkazatelNaSablonu;
To mame zatim 4 "zbytecne zaplacane" byty (jeden ukazatel), ale vic uz jich,
na rozdil od spojovych seznamu, nebude.

5) Alokujeme pamet pro pole. Nejdriv si vypocitame, kolik ji budeme
potrebovat. Vezmeme velikost jednoho prvku (napr. pomoci sizeof(typ prvku))
a vynasobime ji pozadovanym poctem prvku (ktery uz v tomto okamziku znat
musime). Ted pomoci naseho ukazatele alokujeme dynamickou promennou prislusne
velikosti: Getmem(DynPole,velikost). Ukazatel DynPole sice je typovy, ale
procedura Getmem je univerzalni a jde pouzit i v tomto pripade. Kdybychom
pouzili New, alokovalo by se tak velke pole, jak jsme definovali v typu
SablonaPole, coz ale nechceme, ze jo, to by pak nebylo nic skutecne
dynamickeho.

6) A to je vsechno. Nyni mame pole, do ktereho muzeme ukladat prislusne
hodnoty jako do kazdeho jineho pole, jenom nesmime zapomenout na to, ze jdeme
pres ukazatel: DynPole^[index]:=hodnota apod.
Pozor na indexy. Je vypnuta kontrola rozsahu, takze ne abyste neco zapsali
mimo alokovane pole! Rozmery pole si musite celou dobu pamatovat.

7) Zruseni pole: Freemem(DynPole,velikost) (velikost stejna jako pri alokaci).

programator · Napísal **programator**: 22.03.2008 21:29

Trochu som to upravil + odladil v pascali (Predosly priklad som pisal z hlavy).......V tejto podobe by to malo byt funkcne :

Kód:

type TPole = array [0..0] of byte;
     PPole = ^TPole;

var Pole : PPole;
    pocet_prvkov : integer;
    i : integer;

begin
   { pomocou direktivy R- vypneme range checking. Inak by sposobovalo problemy }
   {$R-}

   pocet_prvkov := 100;
   { alokovanie pola }

   GetMem(Pole, pocet_prvkov * SizeOf(integer));

   { priradenie hodnot }
   i := 0;
   Pole^[i] := 10;

   i := 10;
   Pole^[i] := 15;

   i := 20;
   Pole^[i] := 100;

   { uvolnenie pamate pouzivanej dynamickym polom}

   FreeMem(Pole, SizeOf(Pole^));
end.

P.S.: Vidim , ze si si nastudoval, to je fajn !

pole s dynamickym poctom prvkov v pascale

Podobné témy