回 帖 发 新 帖 刷新版面

主题:这种效果要怎样编写呢??

比如我输入 17 5

输出的结果要是19,23,29,31,37

5是输出的个数

每个结果都只能整除自己和1

回复列表 (共11个回复)

沙发

输出的五个数与17有没有关系?
我看了一下,如果没有31这个数,还可以看出来有关系。

板凳

我的意思是输出的5个结果,每个数都只能整除自己,和1

比如17 下个数是18

因为18能被2.4.6.9整除,那么18就不能输出

3 楼

<form name="form1">
 <input type="text" size="5" name="num1">&nbsp;<input type="text" size=5 name="num">&nbsp;<input type="button" value="计算" onclick="f()">
 </form>
 <script language=javascript>
 function f()
 {
   a=document.form1.num1.value/1;
   var c;
   c=a+1;
   s="";
   q=0;
   b=document.form1.num.value;
   while (true)
   {
     k=0;
     for(j=2;j<c/2;j++)
     {
       if (c%j==0)
       {
         k=1;
         break;
       }
     }
     if (k==0)
     {
       s=s+c+" ";
       q=q+1;
     }
     if (q>=b)
     {
      alert(s);
      break;      
     }
     c++;
   } 
 }
</script>

4 楼

可不可以用ASP来实现呢

5 楼


能不能把他用一个文本框来输入呢?
你现在用了2个文本框。我的目的是一个文本框,输入17 5后在输出结果17 5中间有个空格

6 楼

输入m和n
求从m开始后的n个质数

LZ,如果题目改成这样,你应该会做了吧

7 楼

汗,,就是不会啊,,,要用ASP,不能用到JSP

8 楼

<% function sushu(s) 
 dim i,j
 i=s
 
 for j=1 to sqr(i)   
   if i mod j=0 then
      sushu=false
      exit for
      exit function
   end if
  next
 sushu=true
end function
 %>  
<% dim m,n,k,arr()
n=val(s1)  '输入值,此处自己完善
   m=val(s2)
k=0
redim arr(m)
 do while k<m
   n=n+1
   if sushu(n)=true then
      k=k+1
      arr(k)=n
   endif
loop 
'输出块的,自己写吧
 %>
   

9 楼

ASP的实现过程,用到了递归,方法比较笨
<form id="form1" name="form1" method="post" action="?Action=C">
  初始数:
  <input name="A" type="text" id="A" />
  输入数量:
  <input name="B" type="text" id="B" />
  <input type="submit" name="Submit" value="提交" />
</form>
<%
Action=Request("Action")
If Action="C" Then
    A=Request("A")'初始数
    B=Request("B")'输出数量    
    C=0
    B=B+1
    Function J(A,B)
        For i=2 To A-1
            If A Mod i=0 Then
                Msg="$True"
            End If
        Next
        If Msg<>"$True" Then
            Response.Write(A&",")
            B=B-1
        End If
        If B>0 Then
            A=A+1
            Call J(A,B)
        End If
    End Function
    Call J(A,B)    
End If
%>

10 楼

为什么会输出多一个数呢,比如我输入17 5  那他就输出6个数出来

[quote]ASP的实现过程,用到了递归,方法比较笨
<form id="form1" name="form1" method="post" action="?Action=C">
  初始数:
  <input name="A" type="text" id="A" />
  输入数量:
  <input name="B" type="text" id="B" />
  <input type="submit" name="Submit" value="提交" />
</form>
<%
Action=Request("Action")
If Action="C" Then
    A=Request("A")'初始数
    B=Request("B")'输出数量    
    C=0
    B=B+1
    Function J(A,B)
        For i=2 To A-1
            If A Mod i=0 Then
                Msg="$True"
            End If
        Next
        If Msg<>"$True" Then
            Response.Write(A&amp;",")
            B=B-1
        End If
        If B>0 Then
            A=A+1
            Call J(A,B)
        End If
    End Function
    Call J(A,B)    
End If
%>[/quote]

我来回复

您尚未登录,请登录后再回复。点此登录或注册