爱问知识人 爱问教育 医院库

编写程序,求100?

首页

编写程序,求100?

编写程序,求100-200之间的所有素数,按每行5个的形式显示到文本框Text1中,要求编写判断素数的函数Prime()

提交回答

全部答案

    2015-09-11 16:51:32
  • public function Prime(n as interger) as boolean
        dim i as interger
        for i = 2 to n-1
            if n mod i = 0 then
                Prime = false
                exit function
            end if
        next i
        Prime = true
    end function
    用法(检测100到200):
    dim i as interger
    for i=100 to 200
        if Prime(i)=true then print i
    next i
    

    安***

    2015-09-11 16:51:32

  • 2015-09-11 16:51:31
  •   判断n是否为素数的函数如下:FunctionPrime(n)AsBooleanDimiAsLongDimqAsBooleanPrime=TrueIfn=1ThenPrime=FalseExitFunctionEndIfq=TrueFori=2ToInt(sqr(n))IfnModi=0Thenq= 至于验证100~200之间的所有偶数都能分解为两个素数的和我觉得可以把1~200的素数全列举出来,然后再寻找,先创建一个text文本框,将MuliLine设为True,ScrollBars设为2,具体语句如下Dima(200)AsIntegerDimxAsIntegerDimtempAsIntegerDimi,j,kAsIntegerText1。
      Text=""x=1Fori=1To200IfPrime(i)Thena(x)=i:x=x+1NextiDimqAsIntegerFori=100To200Step2Forj=1ToxIfi  Text=Text1。Text&vbCrLf&i&"="&j&"+"& 。

    小***

    2015-09-11 16:51:31

  • 2015-09-11 14:53:39
  • #include 
    #include int isPrime(int i)
    {
     int x;
     int y = (int)ceil(sqrt(i)); if (i%2==0 || i<2)
      return 0; for (x=3; x<=y; x++)
      if (i%x == 0)
       return 0; return 1;
    }int main(void)
    {
     int c = 0, i; for (i=100; i<=200; i++)
      if (isPrime(i))
      {
       printf("%4d", i);
       c++;   if (c == 5)
       {
        printf("\n");
        c = 0;
       }
      } return 0;
    }

    怀***

    2015-09-11 14:53:39

类似问题

换一换
  • 其他编程语言 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 172-191
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):