Prvočísla
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

PrvočíslaPrvočísla

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

Prvočísla

Google       Google       26. 9. 2005       13 704×

Jak zjistit pomocí několika řádků zda je dané číslo prvočíslem...

Reklama
Reklama

Pomocí poměrně jednoduchého kódu si ukážeme jak na to.

Trochu teorie: Prvočíslo je takové číslo, které je dělitelné pouze jedničkou (1) a samo sebou (např.: 2, 3, 5, 7, 11, 13, 17...).


Private Sub Command1_Click()
    Print Text1.Text, Prvocislo(Val(Text1.Text))
    Text1.Text = Val(Text1.Text) + 1
End Sub

Private Function Prvocislo(n As Integer) As String
    For i = 2 To Sqr(n)
        If n / i = Int(n / i) Then a = True
    Next i
    Prvocislo = IIf(a, "ne", "ano")
End Function

Private Sub Form_Load()
    Text1.Text = 0
End Sub

Jak vidíte, je to záležitostí několika sekund. Dvě procedury a jedna funkce.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

2 názory  —  2 nové  
Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jiří ChytilAutor programuje ve VB, zajímá se o elektrotechniku, studuje na SOŠ Elektrotechnické - obor číslicová technika.
Web    

Nové články

Obrázek ke článku Generace Z: Proč je pro ně důležité, kolik mají follow?

Generace Z: Proč je pro ně důležité, kolik mají follow?

Životem jdou vybaveni chytrým telefonem v ruce a nedokáží si představit, že by to bylo jinak. Narodili se okolo přelomu tisíciletí a nikdy nezažili nic jiného než digitalizovaný svět. Dotykové obrazovky měli poprvé v rukou na základní škole, ti mladší možná už ve školce. Proto mají na svět jiný pohled než jejich předci. První zástupci této generace začínají dospívat a my brzy uvidíme, jestli je to s nimi tak zlé, jak o nich mnohdy tvrdí jejich rodiče.

Reklama
Reklama
Obrázek ke článku Proč mají absolventi v IT přemrštěné očekávání, a je vůbec přemrštěné?

Proč mají absolventi v IT přemrštěné očekávání, a je vůbec přemrštěné?

Poměrně nedávno zveřejnil portál Platy.cz zajímavé statistiky, kde mladí počítačoví experti nastupují do firem s průměrnou mzdou cca 36 000 Kč, hned v závěsu je bankovní sektor se svými cca 31 000 Kč. Pro srovnání – v ostatních oborech se průměrná nástupní mzda pohybuje okolo 28 000 Kč. Nástupní platy jsou samozřejmě ovlivněny i lokalitou zaměstnavatele

Obrázek ke článku Zpětné sledování sportovních přenosů využívá v létě řada lidí.

Zpětné sledování sportovních přenosů využívá v létě řada lidí.

Červenec a srpen představují měsíce, kdy Češi nejčastěji jezdí na vícedenní dovolené. V této době však rovněž probíhá řada důležitých sportovních událostí, jako jsou olympijské hry nebo například právě odehrané fotbalové mistrovství světa. Míra promeškaných sportovních přenosů však klesá díky moderních technologiím a službám. 

Obrázek ke článku Průzkum JetBrains: JavaScript mezi programátory vede, Kotlin získává na popularitě

Průzkum JetBrains: JavaScript mezi programátory vede, Kotlin získává na popularitě

Společnost JetBrains, přední tvůrce softwarových nástrojů pro profesionální vývojáře s centrálou v Praze, představila výsledky průzkumu, který pomáhá lépe porozumět a získat vhled do pracovních návyků programátorů. Zjištění mohou být nápomocná nejen pro zvýšení efektivity, ale také pro vytvoření ideálního pracovního prostředí pro programátory.  

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý