windows平台下fortran编程实现冒泡排序方法主要原理：比较相邻元素如果第一个比第二个大（或者小）就交换
工具/原料
codeblocksIDE编程环境
方法/步骤
1、关于codeblocksIDE的极速安装请参考百度经验<<Windows下极速搭建fortran开发环境>>
2、fortran胆咣骜岱编程实现冒泡排序（由大到小）源代码如下：implicitnoneinteger::i,j,Nreal*8::x(8)real*8::tmp旌忭檀挢x=[1,2,3,4,5,6,7,8]N=size(x)doi=1,N-1doj=i+1,Nif(x(j)>x(i))thentmp=x(i)x(i)=x(j)x(j)=tmpendifenddoenddodoi=1,Nprint*,x(i)enddo
3、编译、运行，结果如下：
4、fortran胆咣骜岱编程实现冒泡排序（由小到大）源代码如下：implicitnoneinteger::i,j,Nreal*8::x(8)real*8::tmp旌忭檀挢x=[81,72,63,54,45,36,27,18]N=size(x)doi=1,N-1doj=i+1,Nif(x(j)<x(i))thentmp=x(i)x(i)=x(j)x(j)=tmpendifenddoenddodoi=1,Nprint*,x(i)enddo
5、编译、运行、结果如下：
