1樓:tswjq
Dim ab(150000000) As IntegerPrivate Type pd '輸出檔案s1 As String * 7
s2 As String * 9
s3 As String * 9
hc As String * 2
End Type
Private Sub Command13_Click()Dim fso As New FileSystemObject, fil1 As File
Dim xl As pd
Set fil1 = fso.GetFile(xlsf)Open xlsf For Random As #1 Len = Len(xl)
zuida = 100000000 '1億內孿生素數,若改為1000000則求出100萬以內孿生素數
For i = 1 To zuida
ab(i) = 0
Next i
For m = 0 To zuida
For n = 1 To zuida
h = (2 * m + 3) * n + m - 1If h > zuida Then
n = zuida + 1
Else
ab(h) = 1
End If
h = (2 * m + 3) * n + mIf h > zuida Then
n = zuida + 1
Else
ab(h) = 1
End If
Next n
Next m
k = 1
For i = 0 To zuida
If ab(i) = 0 Then
abc = abc + 1
xl.s1 = k
xl.s2 = i * 2 + 3
xl.s3 = i * 2 + 5
xl.hc = Chr(13) + Chr(10)Put #1, k, xl
k = k + 1
End If
Next i
Print abc
Close #1
End Sub
編寫乙個程式,找出被2,3,5除時餘數均為1的最小的10個自然數
王三 人家上面寫了C 語言 懂?上來就 cout 是不科學的.C ver for int i 0 i 10 i 另外補充乙個 clojure 的 take 10 map 30 1 range Cheers 實際上也不用扯到剩餘定理。假定n滿足上述性質,那麼n 1可以整除2,3,5,所以,n 1必然是...
如何用c語言編寫乙個程式,計算float x 0 1與0 1的差值
HOOCCOOH 首先假設題主需要這個差值的十進位制表示。根據 IEEE754 浮點使用的二進位制表示法必定在十進位制下有限位數,直接用 printf 指定位數列印即可。唯一需要注意的是到底需要打多少位才夠。我們知道浮點在計算機中表示為 其中 為尾數字數,為浮點指數。又由於 0 eeimg 1 在十...
怎麼編寫乙個程式,輸入乙個整數m,能計算並顯示1 2 3 m的和(直接計算結果,不要換行)
翼柯 include include int main void int i 1,s 0 for i 1 i 100 i s s i priintf d s getch return 0 vfp的寫法 s 0input 輸入乙個正整數 to mfor i 1 to m s s m endfor?s ...