codeblocks下fortran编程判断素数

来源:网络时间:2015-12-17

  【创建fortran工程】

codeblocks下fortran编程判断素数
codeblocks下fortran编程判断素数
codeblocks下fortran编程判断素数
codeblocks下fortran编程判断素数
codeblocks下fortran编程判断素数

  【编写代码】

  program main

  implicit none

  integer::a,i,flag

  flag=1

  read *,a

  do i=2,a-1

  if(mod(a,i)==0)then

  flag=0

  exit

  end if

  end do

  if(flag==1)then

  print *,a,"是素数"

  else

  print *,a,"不是素数"

  end if

  end

  【在codeblocks中编译、链接】

codeblocks下fortran编程判断素数

  【运行、测试结果】

codeblocks下fortran编程判断素数

意见反馈
发表评论

最新评论(共0条)