台灣最大程式設計社群網站
線上人數
565
 
會員總數:245484
討論主題:189238
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 用ASP寫出質數計數
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
用ASP寫出質數計數
價值 : 0 QP  點閱數:566 回應數:0

樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員

<%
Response.Write "<table border=2><tr><td colspan=5 align=CENTER>質數列表</td></tr>"
count=1 '質數計數
N=1 '從 1 開始驗證
do while count <= 50
ans=1
Call primecheck(N) '呼叫副程式

if ans=1 then '是質數

if (count mod 5)=1 then '第1,6,11,..個質數
Response.Write "<tr>"
end if

Response.Write "<td>"&N&"</td>"
count=count+1

if ((count-1) mod 5)=0 then '第5,10,15,..個質數
Response.Write "</tr>"
end if

end if
N=N+1
loop
Response.Write "</table>"
'--------------------------------------
Sub primecheck(num)
maxfactor = (num+(num mod 2))/2
cursor = maxfactor
do while cursor>1
if (num mod cursor)=0 then '不是質數
cursor=1
ans=0
else
cursor=cursor-1
end if
loop
End Sub
%>

本篇文章發表於2002-03-28 00:00
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.