Pocet ruznych cisel – Pascal – Fórum – Programujte.com

Dobry den,

v textovém souboru mám uložena celá čísla oddělená mezerami. Počet čísel v souboru neznám, ale může být velmi velký tzn. nemůžu je ukládat do pole. Potřebuji zjistit počet různých hodnot obsažených v tomto souboru.

Mohl by mě někdo poradit? Jsem nováček.

Děkuji

#1 Jakub
Vygoogli:
External sorting

#1 Jakub
Alebo teda ak je tam veľmi veľa čísel ale majú rozumné veľkosti (napr. od 0 do milión), tak si urobiť pole dĺžky milión a pamätaj si v ňom počet jednotlivých čísel.

Mám tam napsaný, že čísla nemůžu ukládat do pole tzn. že pole 0 až milion si udělat nemohu..

#4 Jakub
akože vôbec nemôeš použiť pole (aj keď jeho veľkosť nezáleží na počte čísel, ale aké veľké môžu byť) ani si vytvoriť iný súbor ? Tak akože nie som si úplne istý ale neverím, že to pôjde.

Nemůžu uložit všechna čísla, jinak můžu mít pole, ale ne moc velké.

zadani za vsechny prachy.. no nastesti tu mame i jiny datovy struktury nez pole.. stromy, spojove seznamy...

sic naprosto nejrychlejsi je pro omezeny set hodnot pouzit pole od nejmensi po nejvetsi hodnotu a pocitat to do nej...  (a kdyby nahodou, tak se da jet treba po 10000 hodnotach, pak pokazdy skocit na zacatek souboru a pokracovat dalsima jako 10001...20000 .... )

Program už mám, ale ještě ne pro moc čísel.

Zkusím to ještě nějak pořešit.

#1 Jakub
Zkus s nejprve udělat histogram. Pro tvůj účel se dá zjednodušit na množinu. Potom jen spočítáš počet elementů.

Tak nevím jak to vyřešit bez pole...

Jsem ztracený :/

Jak velká můžou být ta čísla, která načítáš? Jestli se vejdou do 8 bitů (byte nebo shortint), tak to pohodlně vyřešíš množinou (var mnozina: set of byte). Každé načtené číslo do ní vložíš (mnozina:=mnozina+cislo) a ono už se automaticky zařídí, že v ní nic nebude víckrát. Nakonec v cyklu přes všechny možné hodnoty otestuješ, které z těch hodnot v množině jsou, a u těch, co jsou, zvýšíš nějaké počítadlo (for i:=... do if i in mnozina then inc(pocitadlo)).

Nevím, v jakém překladači pracuješ. Některé možná dovolí i větší rozsahy množin než 8 b.

Interně je množina bitové pole. Princip: máš pole čísel (bytů nebo wordů), jejich jednotlivé bity bereš jako booleany (číslo v množině je/není), index bitu znamená hodnotu čísla. Dá se to naprogramovat i ručně, já už to mám hotové a můžeš si to i stáhnout, akorát je v tom víc assembleru, než se od nováčků očekává :-).

Načtu ze souboru číslo, dejme tomu 50. Tak padesátý bit v poli nastavím na 1. Atd. Nakonec spočítám jedničkové bity.

V tomhle

Zasláno z mobilního telefonu.

Ty dva poslední odstavce ignoruj - vloudila se chybička při odesílání a nejde to editovat.

Zasláno z mobilního telefonu.

Mircosofte napsal jsem ti do knihy návštěv na web.
Díky Jakub