Eratostenovo sito: razlika između inačica

Na slici je demonstracija traženja prostih brojeva manjih od 120121. Napisani su svi prirodni brojevi od 2 do 120. U prvom koraku je najmanji neoznačeni broj 2, zato ga označimo crvenom bojom, a onda nježnijom nijansom crvene boje "precrtamo" ostale njegove višekratnike. Nakon toga je najmanji neoznačeni broj broj 3. Njega "zaokružimo" zelenom, a nježnijom nijansom zelene "precrtamo" višekratnike broja 3. Nakon toga je najmanji neoznačeni broj 5. Njega označimo plavom bojom, a njegove višekratnikom svjetlijom nijansom plave. Isto napravimo s brojem 7. Nakon toga je na redu broj 11. No sve njegove višektratnike smo ionako već precrtali. Zato radi jednostavnosti sve ostale proste brojeve označimo istom bojom, iako to baš nije sasvim korektno.]]

#postupak ponavljamo postupak od 2. koraka sve dok svi brojevi nisu označeni (zaokruženi ili precrtani)

Dim iprost As Integer

Dim alista As New List(Of Integer)

'napisiu listu dodaj sve brojeve od 2 do 1000

alista.Add(i)

'ponavljaj sve dok ima neoznacenih brojeva u listi

While alista.Count > 0

'napisiispiši najmanji neoznacenibroj iz liste - to je prosti broj

iprost = alista.Min

Console.WriteLine(iprost)

For ji = iprost To 1000 Step iprost

alista.Remove(ji) 'ako je neki vec bio precrtan nema veze