Loops/Increment loop index within loop body: Difference between revisions
Loops/Increment loop index within loop body (view source)
Revision as of 18:20, 3 March 2019
, 5 years agoadded FreeBASIC
(added FreeBASIC) |
|||
Line 662:
25 759155483
</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}}==
| |||