| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1214 人关注过本帖
标题:[求助]排列组合问题
只看楼主 加入收藏
wanfei
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2005-10-23
收藏
 问题点数:0 回复次数:8 
[求助]排列组合问题
怎样在0-10个数中选三个数(不重复)并显示出来.
搜索更多相关主题的帖子: 排列 
2007-01-01 00:32
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

dimension a(3)
a(1)=int(rand()*10)
for i=2 to 3
do while .t.
b=int(rand()*10)
ok=1
for j=1 to i
if a(j)=b
ok=0
endif
endfor
if ok=1
exit
endif
enddo
a(i)=b
endfor
for i=1 to 3
?a(i)
endfor


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-01-01 21:58
wanfei
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2005-10-23
收藏
得分:0 
谢谢版主!
我运行出现以下现象:
if a(j)=b 处出现 程序错误 提示:操作符/操作类型不匹配


2007-01-02 10:28
wanfei
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2005-10-23
收藏
得分:0 
怎样才能发截图?
2007-01-02 10:30
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
将“for j=1 to i”修改为“for j=1 to i-1”

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-01-02 15:54
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

发截图的办法:
(1)生成截图:运行程序——直至出现你要的界面——按屏幕硬拷贝(PrintScreen键)——打开画图工具——编辑该图——另存为jpg格式——结束画图工具。
(2)发到论坛上:打开帖子——在任何帖子下方都有“引用、回复、编辑、帖子操作”,选择回复——根据回复界面的提示进行操作——发表回复。


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-01-02 15:59
wanfei
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2005-10-23
收藏
得分:0 
谢谢楼主,真厉害!怎样能把“排列三”组选6号码,全部显示出来?宣传资料上说有
120乘6=720注!
2007-01-02 21:01
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
从1-10这10个号码中找出3个进行全排列,共有10*9*8=720个排列。需要全部显示的话,程序是
set talk off
for i=1 to 10
for j=1 to 10
if j=i
loop
endif
for k=1 to 10
if k=i or k=j
loop
endif
?str(i,3)+str(j,3)+str(k,3)
endfor
endfor
endfor

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-01-02 22:57
wanfei
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2005-10-23
收藏
得分:0 
谢谢楼主,真厉害!学习了,辛苦了
2007-01-02 23:58
快速回复:[求助]排列组合问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042258 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved