windows平台下fortran编程实现冒泡排序方法主要原理：比较相邻元素如果第一个比第二个大（或者小）就交换
工具/原料
codeblocks IDE编程环境
方法/步骤
2
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
3
编译、运行，结果如下：
4
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)
5
编译、运行、结果如下：
上一篇：使用java实现冒泡排序
下一篇：在access中如何实现冒泡排序