| 查看: 1046 | 回复: 21 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
maomao1210金虫 (正式写手)
|
[交流]
【求助】求助个问题，从n个数中挑选出m个不同的数字，要全部的可能性。
|
||
|
假设给定一组数字 1 2 3 4 5 6 7 8 9 10, 从其中挑选出3个，（1，2，3）（1，2，4）（1，2，5）。。。。。 有没有优化的算法？ 知道的大侠，请不吝赐教。 本人仅余2个金币，所以没有金币，不要介意。哈哈。 |
回复此楼» 猜你喜欢
一志愿华东师范大学有机化学专业，初试351分，复试被刷求调剂!
已经有4人回复
-
298求调剂
已经有4人回复
-
材料学硕333求调剂
已经有11人回复
-
0856求调剂
已经有7人回复
-
356求调剂
已经有3人回复
-
332求调剂
已经有7人回复
-
348求调剂
已经有4人回复
-
305求调剂
已经有8人回复
-
一志愿北京化工大学材料与化工（085600）296求调剂
已经有13人回复
-
调剂310
已经有9人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
★
wangmonk(金币+1,VIP+0):及时反馈！共同进步！ 7-12 16:25
wangmonk(金币+1,VIP+0):及时反馈！共同进步！ 7-12 16:25
|
多谢斑竹和楼上的tjyl大侠。 IMPLICIT REAL*8(A-H,O-Z) DIMENSION IA(10) DATA IA /1,2,3,4,5,6,7,8,9,10/ NUMBER=1 DO I=1,10 DO J=I+1,10 DO K=J+1,10 WRITE(*,*) IA(I),IA(J),IA(K),NUMBER NUMBER=NUMBER+1 ENDDO ENDDO ENDDO END 感谢tjyl大侠，这是修改成fortran之后的结果。 对于小的数目是可以的，呵呵，但大的数目，很多重循环的话，有点困难，呵呵。 要是有一个更优化的算法就好了。嘿嘿。 |
5楼2009-07-12 10:55:47
woshilsh
荣誉版主 (职业作家)
- 应助: 43 (小学生)
- 贵宾: 10.33
- 金币: 21115.1
- 散金: 737
- 红花: 22
- 帖子: 3777
- 在线: 639.7小时
- 虫号: 293038
- 注册: 2006-11-04
- 专业: 计算机应用技术
- 管辖: 仿真模拟
2楼2009-07-11 23:23:17
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangmonk(金币+5,VIP+0):详细应助~ tjyl，欢迎常来~奖励多多哦~ 7-12 09:02
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangmonk(金币+5,VIP+0):详细应助~ tjyl，欢迎常来~奖励多多哦~ 7-12 09:02
|
#include 2 int main() 3 { 4 void getall(int *a,int ); 5 int a[10]={1,2,3,4,5,6,7,8,9,10}; 6 getall(a,10); 7 return 0; 8 } 9 void getall(int a[],int total) 10 { 11 int i,j,k,number=1; 12 for(i=0 ; i != total; i++) 13 for(j=i+1; j !=total; j++) 14 for (k=j+1 ;k !=total; k++) 15 { printf("( %2d,%2d,%2d) ", 16 *(a+i),*(a+j),*(a+k)); 17 if (number%5 ==0) 18 printf("\n"  ;19 number++; 20 21 } 22 } 输出： yl@debian:~$ ./a.out ( 1, 2, 3) ( 1, 2, 4) ( 1, 2, 5) ( 1, 2, 6) ( 1, 2, 7) ( 1, 2, 8) ( 1, 2, 9) ( 1, 2,10) ( 1, 3, 4) ( 1, 3, 5) ( 1, 3, 6) ( 1, 3, 7) ( 1, 3, 8) ( 1, 3, 9) ( 1, 3,10) ( 1, 4, 5) ( 1, 4, 6) ( 1, 4, 7) ( 1, 4, 8) ( 1, 4, 9) ( 1, 4,10) ( 1, 5, 6) ( 1, 5, 7) ( 1, 5, 8) ( 1, 5, 9) ( 1, 5,10) ( 1, 6, 7) ( 1, 6, 8) ( 1, 6, 9) ( 1, 6,10) ( 1, 7, 8) ( 1, 7, 9) ( 1, 7,10) ( 1, 8, 9) ( 1, 8,10) ( 1, 9,10) ( 2, 3, 4) ( 2, 3, 5) ( 2, 3, 6) ( 2, 3, 7) ( 2, 3, 8) ( 2, 3, 9) ( 2, 3,10) ( 2, 4, 5) ( 2, 4, 6) ( 2, 4, 7) ( 2, 4, 8) ( 2, 4, 9) ( 2, 4,10) ( 2, 5, 6) ( 2, 5, 7) ( 2, 5, 8) ( 2, 5, 9) ( 2, 5,10) ( 2, 6, 7) ( 2, 6, 8) ( 2, 6, 9) ( 2, 6,10) ( 2, 7, 8) ( 2, 7, 9) ( 2, 7,10) ( 2, 8, 9) ( 2, 8,10) ( 2, 9,10) ( 3, 4, 5) ( 3, 4, 6) ( 3, 4, 7) ( 3, 4, 8) ( 3, 4, 9) ( 3, 4,10) ( 3, 5, 6) ( 3, 5, 7) ( 3, 5, 8) ( 3, 5, 9) ( 3, 5,10) ( 3, 6, 7) ( 3, 6, 8) ( 3, 6, 9) ( 3, 6,10) ( 3, 7, 8) ( 3, 7, 9) ( 3, 7,10) ( 3, 8, 9) ( 3, 8,10) ( 3, 9,10) ( 4, 5, 6) ( 4, 5, 7) ( 4, 5, 8) ( 4, 5, 9) ( 4, 5,10) ( 4, 6, 7) ( 4, 6, 8) ( 4, 6, 9) ( 4, 6,10) ( 4, 7, 8) ( 4, 7, 9) ( 4, 7,10) ( 4, 8, 9) ( 4, 8,10) ( 4, 9,10) ( 5, 6, 7) ( 5, 6, 8) ( 5, 6, 9) ( 5, 6,10) ( 5, 7, 8) ( 5, 7, 9) ( 5, 7,10) ( 5, 8, 9) ( 5, 8,10) ( 5, 9,10) ( 6, 7, 8) ( 6, 7, 9) ( 6, 7,10) ( 6, 8, 9) ( 6, 8,10) ( 6, 9,10) ( 7, 8, 9) ( 7, 8,10) ( 7, 9,10) ( 8, 9,10) [ Last edited by tjyl on 2009-7-12 at 00:04 ] |
3楼2009-07-11 23:58:02
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
4楼2009-07-11 23:58:48
