windows平台下fortran编程实现冒泡排序
来源:网络收集 点击: 时间:2024-08-24关于codeblocks IDE的极速安装
请参考百度经验Windows下极速搭建fortran开发环境

fortran编程实现冒泡排序(由大到小)
源代码如下:
implicit none
integer::i,j,N
real*8::x(8)
real*8::tmp
x=
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

编译、运行,结果如下:

fortran编程实现冒泡排序(由小到大)
源代码如下:
implicit none
integer::i,j,N
real*8::x(8)
real*8::tmp
x=
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

编译、运行、结果如下:

版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_1153828.html