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、编译、运行、结果如下: