您的位置: 首页 > 软件教程 > codeblocks环境下fortran编程实现冒泡排序

codeblocks环境下fortran编程实现冒泡排序

9.0分
出处:网络 时间:2015-12-18

您可能感兴趣的话题: CodeBlocks入门教程   编码方块  

核心提示:fortran编程怎样实现冒泡排序

  fortran编程实现冒泡排序(由大到小)

  源代码如下:

  implicit none

  integer::i,j,N

  real*8::x(8)

  real*8::tmp

  x=[1,2,3,4,5,6,7,8]

  N=size(x)

  do i=1,N-1

  do j=i+1,N

  if(x(j)>x(i))then

  tmp=x(i)

  x(i)=x(j)

  x(j)=tmp

  end if

  end do

  end do

  do i=1,N

  print *, x(i)

  end do

codeblocks环境下fortran编程实现冒泡排序

  编译、运行,结果如下:

codeblocks环境下fortran编程实现冒泡排序

  fortran编程实现冒泡排序(由小到大)

  源代码如下:

  implicit none

  integer::i,j,N

  real*8::x(8)

  real*8::tmp

  x=[81,72,63,54,45,36,27,18]

  N=size(x)

  do i=1,N-1

  do j=i+1,N

  if(x(j)

  tmp=x(i)

  x(i)=x(j)

  x(j)=tmp

  end if

  end do

  end do

  do i=1,N

  print *, x(i)

  end do

codeblocks环境下fortran编程实现冒泡排序

  编译、运行、结果如下:

codeblocks环境下fortran编程实现冒泡排序
网友评论

精品软件课程
更多 >
photoshop教程让你从入门到精通,从新... [详细]
快播播放器(Qvod Player)是一款基... [详细]
Word是由Microsoft公司出版的文字... [详细]
《植物大战僵尸》是一款极富策略性的小游戏,可... [详细]
Excel是office的重要组成部分。多特... [详细]