Loops/Increment loop index within loop body: Difference between revisions
Content added Content deleted
(added FreeBASIC) |
|||
Line 662: | Line 662: | ||
25 759155483 |
25 759155483 |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>' version 18-01-2019 |
|||
' compile with: fbc -s console |
|||
Function isprime(number As ULongInt) As UInteger |
|||
If number Mod 2 = 0 Then Return 0 |
|||
If number Mod 3 = 0 Then Return 0 |
|||
Dim As UInteger i, max = Sqr(number) |
|||
For i = 5 To max Step 2 |
|||
If number Mod i = 0 Then Return 0 |
|||
Next |
|||
Return 1 |
|||
End Function |
|||
' ------=< MAIN >=------ |
|||
Dim As UInteger counter |
|||
Dim As ULongInt i |
|||
Print : Print |
|||
counter = 0 |
|||
For i = 42 To &HFFFFFFFFFFFFFFFF ' for next loop, loop maximum = 2^64-1 |
|||
If isprime(i) Then |
|||
counter += 1 |
|||
Print Using "n =### ##################,"; counter; i |
|||
If counter >= 42 Then Exit for |
|||
i += i -1 |
|||
End If |
|||
Next |
|||
' empty keyboard buffer |
|||
While InKey <> "" : Wend |
|||
Print : Print "hit any key to end program" |
|||
Sleep |
|||
End</lang> |
|||
{{out}} |
|||
<pre style="height:40ex">n = 1 43 |
|||
n = 2 89 |
|||
n = 3 179 |
|||
n = 4 359 |
|||
n = 5 719 |
|||
n = 6 1,439 |
|||
n = 7 2,879 |
|||
n = 8 5,779 |
|||
n = 9 11,579 |
|||
n = 10 23,159 |
|||
n = 11 46,327 |
|||
n = 12 92,657 |
|||
n = 13 185,323 |
|||
n = 14 370,661 |
|||
n = 15 741,337 |
|||
n = 16 1,482,707 |
|||
n = 17 2,965,421 |
|||
n = 18 5,930,887 |
|||
n = 19 11,861,791 |
|||
n = 20 23,723,597 |
|||
n = 21 47,447,201 |
|||
n = 22 94,894,427 |
|||
n = 23 189,788,857 |
|||
n = 24 379,577,741 |
|||
n = 25 759,155,483 |
|||
n = 26 1,518,310,967 |
|||
n = 27 3,036,621,941 |
|||
n = 28 6,073,243,889 |
|||
n = 29 12,146,487,779 |
|||
n = 30 24,292,975,649 |
|||
n = 31 48,585,951,311 |
|||
n = 32 97,171,902,629 |
|||
n = 33 194,343,805,267 |
|||
n = 34 388,687,610,539 |
|||
n = 35 777,375,221,081 |
|||
n = 36 1,554,750,442,183 |
|||
n = 37 3,109,500,884,389 |
|||
n = 38 6,219,001,768,781 |
|||
n = 39 12,438,003,537,571 |
|||
n = 40 24,876,007,075,181 |
|||
n = 41 49,752,014,150,467 |
|||
n = 42 99,504,028,301,131</pre> |
|||
=={{header|Go}}== |
=={{header|Go}}== |