windows平台下fortran编程实现冒泡排序

1、关于codeblocks IDE的极速安装请参考百度经验<<Windows下极速搭建fortran开发环境>>

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)<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

5、编译、运行、结果如下：