主题：大家多多帮忙呀！
taofei
[专家分：30] 发布于 2005-08-08 18:32:00
纸牌
10,J.Q.K.A
任意拿出5张，KKKAK，KKAKK，AKKKK算一种拿法
共多少种拿法呀，
写出做法，最好能加点注释
谢谢大家
回复列表 （共11个回复）
沙发
stuart920106 [专家分：730] 发布于 2005-08-08 19:29:00
先枚举,再用0,1方法判重
板凳
jzyray [专家分：20610] 发布于 2005-08-08 23:44:00
既然可以出现重复的牌，那么就是一个统计问题：
都一样(KKKKK型):5
1+4(AKKKK型):5*4=20
2+3(AAKKK型):5*4=20
所以，5+20+20=45
3 楼
绿步甲 [专家分：1610] 发布于 2005-08-09 12:10:00
想要程序吗?
先加分......
4 楼
stuart920106 [专家分：730] 发布于 2005-08-09 17:17:00
(楼上好BT啊~~~~~~~~~~~~~~~~)
其实0,1判重就是指把真值用1,假的用0
5 楼
绿步甲 [专家分：1610] 发布于 2005-08-09 19:22:00
4楼能说清楚些吗?
6 楼
口口and枕头 [专家分：1550] 发布于 2005-08-09 23:30:00
想知道吗?给他加分`~~~(学你的~)
7 楼
绿步甲 [专家分：1610] 发布于 2005-08-10 14:37:00
想给他加,但力不从心~~~~~~
8 楼
MagicG [专家分：650] 发布于 2005-08-11 09:52:00
呵呵```下次在你的贴子里给他加吧```和口口学的:)
9 楼
QQ331373582 [专家分：1500] 发布于 2005-08-11 10:51:00
const x:array[1..5] of string=('10','J','Q','K','A');
var a,b,c,d,e:integer;
begin
for a:=1 to 5 do
for b:=1 to 5 do
for c:=1 to 5 do
for d:=1 to 5 do
for e:=1 to 5 do
writeln(x[a],x[b],x[c],x[d],x[e]);
end.
10 楼
QQ331373582 [专家分：1500] 发布于 2005-08-11 10:53:00
你自己数
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 大家多多帮忙呀！