主题：新年考考你!
冰冻小企鹅
[专家分：190] 发布于 2009-02-16 13:16:00
设有M人围成一圈，1—N报数，报到N的出圈，从下一个起再1—N报数···。打印走出圈的次序。M,M由键盘输入。
[em19][em19][em19][em19][em19][em19][em19][em19][em19][em19][em19][em19][em19][em19]
记得回复我哦！
回复列表 （共12个回复）
沙发
我是QB爱好者 [专家分：250] 发布于 2009-02-17 13:19:00
cls
input n
print n
end
板凳
我是QB爱好者 [专家分：250] 发布于 2009-02-17 13:23:00
thank you
3 楼
我是QB爱好者 [专家分：250] 发布于 2009-02-17 13:33:00
卑鄙小人！我是QB爱好者！
[em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6][em6]
4 楼
hxy_anhui [专家分：320] 发布于 2009-02-20 22:38:00
CLS
INPUT M, N
DIM A(M)
DO
FOR I = 1 TO M
IF A(I) = 1 THEN GOTO 10
K = K + 1
IF K = N THEN S = S + 1 : A(I) = 1 : K = 0
IF S = N THEN PRINT I : END
10 NEXT I
LOOP UNTIL S = N
END
5 楼
冰冻小企鹅 [专家分：190] 发布于 2009-02-26 20:13:00
快来啊！两则加分
6 楼
phile [专家分：2310] 发布于 2009-08-07 18:54:00
1楼程序？？？
CLS
INPUT N,M
DIM A(N)
FOR I=1 TO N
A(I)=1
NEXT I
DO
I=I+1
IF I>N THEN I=1
S=S+A(I)
IF S=M THEN A(S)=0:? S:S=0
T=0
FOR I=1 TO M
T=T+A(I)
NEXT I
LOOP UNTIL T<M
FOR I=1 TO N
IF A(I)=1 THEN ?I:END
NEXT I
7 楼
天天和和 [专家分：1420] 发布于 2009-08-13 09:03:00
CLS
INPUT M, N
DIM A(M)
WHILE S<>N
FOR I = 1 TO M
IF A(I) <> 1 THEN
K = K + 1
IF K = N THEN S = S + 1 : A(I) = 1 : K = 0
IF S = N THEN PRINT I : END
END IF
NEXT I
WEND
END
8 楼
phile [专家分：2310] 发布于 2009-08-17 13:49:00
楼上为什么不缩进！
9 楼
天天和和 [专家分：1420] 发布于 2009-08-19 09:44:00
什么
10 楼
phile [专家分：2310] 发布于 2009-08-19 12:45:00
缩进也不知道？
我来回复
您所在位置：