用fortran判断素数

Fortran是一种编程语言，可以用来编写判断素数的程序。素数是只能被1和自身整除的正整数。下面是一个用Fortran编写的判断素数的示例程序：

program prime_number
  implicit none
  integer :: num, i, flag

  ! 输入一个正整数
  write(*,*) "请输入一个正整数："
  read(*,*) num

  flag = 0

  ! 判断是否为素数
  do i = 2, num-1
    if (mod(num, i) == 0) then
      flag = 1
      exit
    end if
  end do

  ! 输出结果
  if (flag == 0) then
    write(*,*) num, "是素数"
  else
    write(*,*) num, "不是素数"
  end if

end program prime_number

在这个程序中，我们首先输入一个正整数，然后使用一个循环从2到该数减1进行遍历，判断是否能被整除。如果能被整除，则将标志位flag设为1，并退出循环。最后根据flag的值输出结果。

相关问题

Fortran判断素数

下面是使用Fortran编写的判断素数的程序：

program prime_number
    implicit none
    integer :: n, i, flag

    print *, "Enter a positive integer:"
    read *, n

    if (n <= 1) then
        print *, "Not a prime number"
    else
        flag = 0
        do i = 2, n-1
            if (mod(n, i) == 0) then
                flag = 1
                exit
            end if
        end do

        if (flag == 1) then
            print *, "Not a prime number"
        else
            print *, "Prime number"
        end if
    end if

    end program prime_number

在这个程序中，首先要求用户输入一个正整数。然后，如果这个数小于等于1，则输出“Not a prime number”。否则，使用一个循环来依次测试这个数是否能被2至n-1之间的整数整除。如果存在一个能够整除的数，则不是素数，输出“Not a prime number”，否则是素数，输出“Prime number”。

编写一个判断素数的外部程序子函数程序在主程序中输入一个整数调用外部函数子程序输出是否为素数的信息用FORTRAN语言

在Fortran语言中编写一个判断素数的子程序，首先需要定义一个函数来检查一个数是否为素数。下面是一个简单的示例：

! 定义一个名为 "is_prime" 的外部函数
external is_prime

! 主程序部分
program main
    implicit none
    integer :: number, result

    ! 输入一个整数
    write(*,*) '请输入一个整数:'
    read(*), number

    ! 调用子程序判断是否为素数
    call is_prime(number, result)

    if (result == 0) then
        print *, number, '是素数'
    else
        print *, number, '不是素数'
    end if

contains

! 子程序 "is_prime"
function is_prime(n, result)
    implicit none
    integer, intent(in) :: n
    logical, intent(out) :: result

    ! 素数定义为大于1且只有两个正因数（1和自身）
    result = .true.
    if (n <= 1) then
        result = .false.
    else if (n <= 3) then
        ! 所有小于等于3的数都是素数
    else if (.mod(n, 2) == 0 .or. .mod(n, 3) == 0) then
        result = .false.
    else
        ! 检查从5到sqrt(n)的所有奇数
        do i = 5, int(sqrt(n)), 6
            if (.mod(n, i) == 0 .or. .mod(n, i + 2) == 0) then
                result = .false.
                exit
            end if
        end do
    end if
end function is_prime

end program main

在这个例子中，`main`程序负责读取用户输入并调用`is_prime`函数。`is_prime`函数通过循环检查除1、2和本身以外的因子是否存在来确定一个数是否为素数。