m0_60412633 2021-08-03 02:23 采纳率: 50%
浏览 106
已结题

用fortran求第100个素数

用fortran编程怎么输出第100个素数啊?怎么写代码?用fortran编程怎么输出第100个素数啊?怎么写代码?

  • 写回答

1条回答 默认 最新

  • 浪客 2021-08-03 08:52
    关注

    上学的时候学的fortran,看来还没忘干净img

    program main
    
    logical :: log = .false.
    counts=0
    n=2
    do 
            do i = 2, n-1
                    if ( mod(n,i) == 0 ) then
                            log = .true.
                            exit
                    else
                            continue
                    end if
                    log = .false.
     
            end do
     
            if (.not.log) then
                    counts=counts+1
                    if(counts==100) then
                            exit
                    endif
                    
            end if
        n=n+1
            
    end do 
    print*, n
    end
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 8月13日
  • 已采纳回答 8月5日
  • 创建了问题 8月3日

悬赏问题

  • ¥15 华为nova10pro ,关闭热动热点用量记录
  • ¥15 JavaFX启动SceneBuilder报错,找不到fxml文件
  • ¥15 树莓派ubuntu使用conda就提示core dumped
  • ¥15 帮我看看这是个啥题,带解题过程和结果,条件如下FCF = 290471.33 g1 = 15% r = 8% g2 = 4% n = 5
  • ¥15 edem模拟颗粒不显示或者生成失败
  • ¥15 Python代码编写
  • ¥15 php 将rtmp协议转hls协议,无法播放
  • ¥20 python代码编写
  • ¥20 使用MPI广播数据遇到阻塞
  • ¥15 TinyMCE如何去掉自动弹出的“链接…”工具?