回 帖 发 新 帖 刷新版面

主题:问题在线求解

魔术师翻牌,魔术师将扑克中的13张黑桃预先排好,牌面朝下,放在手中,
第一次数一张牌翻过来刚刚好是A,放在桌面上;第二次数MAX>1张牌,把记数分别为1,2,。。。,
(MAX-1)的那些牌,依次 放在手中牌的下面,数MAX的牌,翻过来刚刚好是2,放在桌面上;
第三次也数MAX>1张牌,把记数分别为1,2,。。。,(MAX-1)的那些牌,依次 放在手中牌的下面,
数MAX的牌,翻过来刚刚好是3,放在桌面上;这样做下去,直到13张牌翻完为止,
此时桌面上的牌顺序刚刚好是A,2,3,4,5,6,7,8,9,10,J,Q,K。
请编程找出魔术师手中的13张牌的原始顺序...    */

回复列表 (共2个回复)

沙发

你的要求是不是这样:翻1张,摊出来是A,再翻2张,摊出来是2……翻13张,摊出来是K。这样就好做了。
CLS
DATA A,2,3,4,5,6,7,8,9,10,J,Q,K
DIM a(13),b$(13)
FOR i=1 TO 13:READ b$(i):NEXT i
i=0:s=0
FOR j=1 TO 13
1   i=i+1
    IF i>13 THEN i=1
    IF a(i)=0 THEN s=s+1
    IF s<j THEN 1
    a(i)=j:s=0
NEXT j
FOR i=1 TO 13
    PRINT b$(a(i));" ";
NEXT i
END

板凳

我竟然没得到分?顶到得分为止。

我来回复

您尚未登录,请登录后再回复。点此登录或注册