铁链的意思是什么:请问如何用ASP判断一个数,是不是是素数?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/05 15:20:41

ASP这样写
<%
function check()
for i=2 to sqrt(n)
if n mod i=0 then
check=1
end if
next
if check<>1 then check=0
end function
%>

告诉你算法。
用一个数依次除于他的平方根以下的整数。如225就除于15、14、13……2。如果都不能整除,那么这个数就是素数。有个Pascal程序供你参考。

Program 判断素数
Var i,n:integer;flag:boolean;
Begin
Readln(n) {注释:读入你要判断的数}
for i:=2 to trunc(sqrt(n));
Begin
flag:=false;
if n mod i=0 then flag:=true;{注释:如果能整除就给这个布尔型变量赋值为真}
end;
if flag:=false Then Write(n);
END.