fortran：判断一个数是否为素数

最新推荐文章于 2023-11-04 20:09:29 发布

chder_白南

最新推荐文章于 2023-11-04 20:09:29 发布

阅读量4.3k

点赞数

分类专栏： FortranNote Fortran教程数字信号处理文章标签： fortran_code

本文链接：https://blog.csdn.net/chd_lkl/article/details/87869264

版权

FortranNote 同时被 3 个专栏收录

81 篇文章 45 订阅

订阅专栏

Fortran教程

68 篇文章 57 订阅

订阅专栏

数字信号处理

7 篇文章 2 订阅

订阅专栏

下面代码以2-30为数字区间，判断这个区间的哪些数字是素数
logical :: log = .false.
do n = 2, 30
        do i = 2, n-1
                if ( mod(n,i) == 0 ) then
                        log = .true.
                        print*, n, '=', i, '*', n/i
                        exit
                else
                        continue
                end if
                log = .false.

        end do

        if (.not.log) then
                print*, n, 'is a prime number'
        end if
        
end do