fortran程序如何列出一组数据所有的排列可能.比如:1,5,8,9,11如何列出他们所有排列的可能
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 19:42:43
fortran程序如何列出一组数据所有的排列可能.比如:1,5,8,9,11如何列出他们所有排列的可能
!有一个很笨的方法
implicit none
integer::n(5),n2=0
integer::i1,i2,i3,i4,i5
n(1:5) = (/1,5,8,9,11/)
do i1=1,5; do i2=1,5; if(i1==i2) cycle
do i3=1,5; if(i3==i1.or.i3==i2) cycle
do i4=1,5; if(i4==i1.or.i4==i2.or.i4==i3) cycle
do i5=1,5; if(i5==i1.or.i5==i2.or.i5==i3.or.i5==i4) cycle
write(*,'(5i3)') n(i1),n(i2),n(i3),n(i4),n(i5)
n2=n2+1
enddo; enddo; enddo; enddo; enddo
write(*,'(5i3)') n2
end
再问: 如果是有n数字呢?n我由指定。我也不能定义n个i啊。
再答: 总之是一个全取排列的问题,办法再想吧。
implicit none
integer::n(5),n2=0
integer::i1,i2,i3,i4,i5
n(1:5) = (/1,5,8,9,11/)
do i1=1,5; do i2=1,5; if(i1==i2) cycle
do i3=1,5; if(i3==i1.or.i3==i2) cycle
do i4=1,5; if(i4==i1.or.i4==i2.or.i4==i3) cycle
do i5=1,5; if(i5==i1.or.i5==i2.or.i5==i3.or.i5==i4) cycle
write(*,'(5i3)') n(i1),n(i2),n(i3),n(i4),n(i5)
n2=n2+1
enddo; enddo; enddo; enddo; enddo
write(*,'(5i3)') n2
end
再问: 如果是有n数字呢?n我由指定。我也不能定义n个i啊。
再答: 总之是一个全取排列的问题,办法再想吧。
java排列组合问题,设计一段程序将3,5,5,8,9这几个数所有可能的随机排列输出,且两个5不能相邻,求教!
求一fortran程序,取出n个连续自然数的所有n级排列.
如何实现,在1-33之间取6个数为一组,6个数从小到大排列,且不能重复,然后把所有可能列表.
在数字1到9之间取8位数,列出所有可能,如12345678
1、5、8、4四个数字能有几种排列方式?请列出具体排列的数字.
下面程序的功能是输入一组正整数,以数字-1为结尾标志,计算并输出所有数据之和.用fortran写
排列组合,列出所有可能 比如 000,001,010,011,100,101,110,111
跪求C算法,给定abcd四个字母,按顺序写出其所有的排列可能.
如何证明在所有的N级排列中,奇排列与偶排列的个数相同
excel如何排列括号内的数据
从1至6中取数字3个,设每个组合的3个数.设每个组合都从小到大排列输出,求出所有可能结果.要求C程序源代码
如何让excel里面的一组数据从小到大或是从大到小排列