Prvočísla
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
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       14 052×

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 Jak správně sedět u notebooku, aby nebolela záda

Jak správně sedět u notebooku, aby nebolela záda

Lidé často ke své práci nebo ve volném čase používají notebooky. Aby si při práci s nimi nezničili záda, je důležité se naučit správně sedět. MUDr. Michaela Tomanová primářka Infinity Clinic a Rehabilitačního ústavu Brandýs nad Orlicí radí, jak na to.

Reklama
Reklama
Obrázek ke článku Blockchain a tokenizace mají potenciál i ve světě tradičních investic.

Blockchain a tokenizace mají potenciál i ve světě tradičních investic.

Fenomén tokenizace, který učaroval světu kryptoměn, má potenciál prorazit i v investicích klasického střihu. Jde jen o to, jak překonat riziko podvodů fungujících v kryptosvětě, kdy až 93 % projektů končí fiaskem. Experti v tomto směru však vidí budoucnost. Hovoří se dokonce o zrodu nového ekonomického řádu.

Obrázek ke článku Datafesťak 2018 bude o datech, byznyse a ženách v IT

Datafesťak 2018 bude o datech, byznyse a ženách v IT

Na Univerzitě v Hradci Králové se 23. a 24. listopadu potkají všichni, které zajímá práce s daty. 

Reálné zkušenosti se zpracováním dat budou v prostorách univerzity prezentovat zástupci obchodních i výrobních firem. Potkat tak bude možné představitelé například z Kiwi.com, Crocodille, Dáme Jídlo nebo společnosti Adler. 

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