Geek tričko zdarma Python týden
Tričko zdarma! Stačí před dobitím bodů použít kód TRIKO15. Více informací zde
Pouze tento sleva až 80% na kurzy Python

Výpis prvočísel v Delphi

Unicorn College Tento obsah je dostupný zdarma v rámci projektu IT lidem.
Vydávání, hosting a aktualizace umožňují jeho sponzoři.

Jednoduchý prográmek na výpis prvočísel do zadané hodnoty napsaný v Delphi před mnoha roky. Program následně nalezená prvočísla vypíše do zadaného souboru.

Program je i s zdrojovými kódy pro Delphi (tuším, že to byla verze Delphi7), je tam několik různých optimalizací na rychlost, takže třeba prvočísla do 1 000 000 nalezne asi za sekundu.


Galerie

Program byl vytvořen v roce 2012.

 

Stáhnout

Staženo 510x (237.51 kB)
Aplikace je včetně zdrojových kódů v jazyce Delphi

 

 

Program pro vás napsal Luboš Běhounek Satik
Avatar
Jak se ti líbí článek?
1 hlasů
Autor se nyní živí programováním v C++, ale jeho nejoblíbenějším jazykem je C#. První hru napsal okolo roku 2000.
Všechny články v sekci
Delphi
Miniatura
Následující článek
Podmínky, cykly, proměnné, obrázky a další komponenty
Aktivity (1)

 

 

Komentáře

Avatar
David Čápka
Tým ITnetwork
Avatar
David Čápka:12.12.2012 20:17

Je to opravdu velmi rychlé, jakých technik k tomu využíváš?

Odpovědět 12.12.2012 20:17
Jsem moc rád, že jsi na síti, a přeji ti top IT kariéru, ať jako zaměstnanec nebo podnikatel. Máš na to! :)
Avatar
Luboš Běhounek Satik
Autoredaktor
Avatar
Odpovídá na David Čápka
Luboš Běhounek Satik:12.12.2012 20:51

Dělitelnost se testuje jen u čísel odpovidajících 6n+1 a 6n-1 (jiná být prvočíslo nemůžou), dále dělitelnost se testuje jen čísly, která už jsou vypočítanými prvočísly (pro testování dělitelnosti čísla program využívá prvočísla, která našel už při testování nižších čísel), která jsou menší než odmocnina z testovaného čísla.

Odpovědět  +2 12.12.2012 20:51
https://www.facebook.com/peasantsandcastles/
Avatar
nogare
Člen
Avatar
nogare:9.6.2014 20:33

je to supr program
2.000.000.000 jsem dal za 3 hodiny (mam hodne chabej pocitac)
TXT zabiral 1 Gb

Odpovědět 9.6.2014 20:33
Zkoušely jste to vypnout a zapnout?
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 3 zpráv z 3.