四、驗證哥德巴赫猜想
(任意一個大于等于6的偶數(shù)都可以分解為兩個素數(shù)之和)
基本思想:n為大于等于6的任一偶數(shù),可分解為n1和n2兩個數(shù),分別檢查n1和n2是否為素數(shù),如都是,則為一組解。如n1不是素數(shù),就不必再檢查n2是否素數(shù)。先從n1=3開始,檢驗n1和n2(n2=N-n1)是否素數(shù)。然后使n1+2 再檢驗n1、n2是否素數(shù),… 直到n1=n/2為止。
利用上面的prime函數(shù),驗證哥德巴赫猜想的程序代碼如下:
Dim n%,n1%,n2%
n=Val(InputBox("輸入大于6的正整數(shù)"))
For n1=3 to n\2 step 2
n2=n-n1
If prime(n1) Then
If prime(n2) then
Print n & "=" & n1 & "+" & n2
Exit For '結(jié)束循環(huán)
End if
End if
Next n1
相關(guān)推薦:
2012年下半年計算機(jī)等級考試報名時間及入口匯總
計算機(jī)等級考試三級PC技術(shù)過關(guān)心得技巧
2012年3月計算機(jī)二級考試真題匯總