您的位置: 首页 > 软件教程 > codeblocks使用教程 > codeblocks环境下fortran编程实现冒泡排序
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]
codeblocks环境下fortran编程实现冒泡排序 6.0分
出处:网络 时间:2015-12-18

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

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

Code::Blocks(编码方块)

软件大小:29.2MB版本:V13.12

下载:www.duote.com/soft/22904.html

立即下载

  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编程实现冒泡排序
网友评论