您的位置:首页 -> 软件教程 -> 教程专题 -> codeblocks使用教程 ->
软件教程分类查找
办公软件 图形图像 视频播放 格式转换 手机辅助 系统工具 电脑学习 下载工具 浏览器 QQ 专区 聊天 输入法 安全杀毒
精品软件课程
更多>>

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

6.0
出处:2345软件大全 时间:2015-12-18 人气:212

核心提示: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编程实现冒泡排序的技巧