一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

分解质因数(asp 分布递归法)[原创]

时间:2008-01-12 编辑:简简单单 来源:一聚教程网

***start input.asp***
<% thenum= request("num") %>

<%=thenum%>

***end input.asp***
***start prime_number.asp***
<%
IsPrimeNumber = false
thenum = request("num")
if thenum = 2 or thenum = 1 then
    IsPrimeNumber = false
else
    for i = 2 to thenum -1
        if thenum / i = int(thenum / i) then IsPrimeNumber = true: m = i : exit for
    next
end if
if IsPrimeNumber = false then %>
    
<%else%>
        <%k = thenum / m%>
        
<%end if%>
***end prime_number.asp***
算法应用:分布多线程树读取

热门栏目