主题:超容易,看谁的速度快
小心哦哦
[专家分:140] 发布于 2010-12-04 12:00:00
文件名称:paixu.bas、paixu.exe
有N个小朋友排队,有多少种排列方法?(顺序不同算一种,1<n<70)
样例输入:
3
样例输出:
6
回复列表 (共14个回复)
沙发
幽灵密码 [专家分:3510] 发布于 2010-12-05 11:46:00
。。。。高精度。。。。
CLS
INPUT n
DIM a(n)
a(1) = 1
FOR i = 1 TO n
g = 0
FOR j = 1 TO n
t = a(j) * i + g
g = t \ 10
a(j) = t MOD 10
NEXT j
NEXT i
DO UNTIL a(n) <> 0
n = n - 1
LOOP
FOR i = n TO 1 STEP -1
PRINT USING "#"; a(i);
NEXT i
板凳
huangyb731 [专家分:630] 发布于 2010-12-05 17:12:00
这个,太简单了
3 楼
verysmartboy [专家分:1260] 发布于 2010-12-05 17:47:00
楼上的,简单就做啊!
4 楼
verysmartboy [专家分:1260] 发布于 2010-12-05 17:59:00
楼主,我找到了规律:
CLS
INPUT N
IF N <= 2 THEN PRINT N: END
DIM A#(N)
A#(1) = 1
A#(2) = 2
A#(3) = 6
K = 4
FOR I = 4 TO N
A#(I) = A#(I - 1) * K
K = K + 1
NEXT I
PRINT A#(N)
END
5 楼
幽灵密码 [专家分:3510] 发布于 2010-12-05 18:00:00
阶乘呗,简单
不过要用高精度。
6 楼
huangyb731 [专家分:630] 发布于 2010-12-06 12:56:00
楼上的,简单就做啊!
7 楼
huangyb731 [专家分:630] 发布于 2010-12-06 12:57:00
这不是我对你说的?洪天逸!
8 楼
小心哦哦 [专家分:140] 发布于 2010-12-17 17:30:00
最好文本输入输出
文件名已经提供
9 楼
幽灵密码 [专家分:3510] 发布于 2010-12-17 18:17:00
Open "paixu.in" For Input As #1
Open "paixu.out" For Output As #2
Input #1, n
Dim a(n)
a(1) = 1
For i = 1 To n
g = 0
For j = 1 To n
t = a(j) * i + g
g = t \ 10
a(j) = t Mod 10
Next j
Next i
DO Until a(n) <> 0
n = n - 1
Loop
For i = n To 1 Step -1
Print #2, Using "#"; a(i);
Next i
Close
10 楼
verysmartboy [专家分:1260] 发布于 2010-12-18 09:47:00
喂!给我分那!
CLS
INPUT SB
OPEN "JJ.IN" FOR OUTPUT AS #1
PRINT #1,SB
CLOSE #1
OPEN "JJ.IN" FOR INPUT AS #1
OPEN "JJ.OUT" FOR OUTPUT AS #2
INPUT #1,N
IF N <= 2 THEN PRINT #2,N:CLOSE #1,#2: END
DIM A#(N)
A#(1) = 1
A#(2) = 2
A#(3) = 6
K = 4
FOR I = 4 TO N
A#(I) = A#(I - 1) * K
K = K + 1
NEXT I
PRINT #2,A#(N)
CLOSE #1,#2
END
我来回复