主题：编程题一大堆
幽灵密码
[专家分：3510] 发布于 2010-12-13 19:10:00
1.一个五位数，任意去掉其中一位，剩下的四个数随意调换可以组成很多四位数，把这些四位数中除以5和除以7余数都为2的数打印出来，并在最后打印符合条件的个数。
输入：23579
输出：9257 9527 2357 3257 5237 5
2.最高位的立方小于第二高位的平方，第二高位的立方小于第三高位的平方，以此类推，找出在n至m内所有这样的数及符合条件的个数。
输入：21，39
输出：24 25 26 27 28 29 36 37 38 39
11
输入：39，21
输出：39 38 37 36 29 28 27 26 25 24
11
最后更新于：2010-12-13 19:45:00
回复列表 （共15个回复）
沙发
幽灵密码 [专家分：3510] 发布于 2010-12-13 19:17:00
3.将5，6，7，8，9填入□□□×□□，使积有最大值。
4.输入5
输出
11 7 4 2 1
16 12 8 5 3
20 17 13 9 6
23 21 18 14 10
25 24 22 19 15
板凳
幽灵密码 [专家分：3510] 发布于 2010-12-13 19:18:00
5.以不同的字母不重复地代表0-9之间的数字，使等式成立:a+bc+def=ghij 编程求出满足上述条件等式的个数并将所有等式打印输出。
3 楼
幽灵密码 [专家分：3510] 发布于 2010-12-13 19:22:00
6.输入5
输出
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9
7.输入5
输出
1 1 1 1 1
1 2 2 2 1
1 2 3 2 1
1 2 2 2 1
1 1 1 1 1
8.输入10
输出
1
11
21
1211
111221
312211
13112221
1113213211
31131211131221
13211311123113112211
4 楼
幽灵密码 [专家分：3510] 发布于 2010-12-13 20:09:00
8.提示
1（1个1）
11（2个1）
21（1个2，1个1）
1211（1个1，1个2，2个1）
111221
5 楼
我要独立 [专家分：40] 发布于 2010-12-13 20:25:00
看我帖子
6 楼
huangyb731 [专家分：630] 发布于 2010-12-14 17:45:00
什么东西
7 楼
幽灵密码 [专家分：3510] 发布于 2010-12-14 18:45:00
8.宰羊数列
CLS
INPUT n
n$ = "1": PRINT "1"
FOR i = 2 TO n
FOR j = 1 TO LEN(n$)
x = VAL(MID$(n$, j, 1)): IF j = 1 THEN y = x
IF x <> y THEN
a$ = a$ + LTRIM$(STR$(s)) + LTRIM$(STR$(y))
y = x: s = 1
ELSE
s = s + 1
END IF
NEXT j
a$ = a$ + LTRIM$(STR$(s)) + LTRIM$(STR$(y))
PRINT a$: n$ = a$: a$ = "": s = 0
NEXT i
END
8 楼
幽灵密码 [专家分：3510] 发布于 2010-12-14 18:54:00
1.用输入的5位数的5个数中，选四个组成除以5和3都余2的数，并输出个数。
CLS
DO: INPUT a$: LOOP UNTIL LEN(a$) = 5
FOR i = 1 TO 5
b$ = LEFT$(a$, i - 1) + MID$(a$, i + 1, 5 + 1 - i)
FOR j = 1 TO 4
a$(j) = MID$(b$, j, 1)
NEXT j
FOR j = 1 TO 3
FOR k = j + 1 TO 4
x = VAL(a$(1) + a$(2) + a$(3) + a$(4))
IF x MOD 15 = 2 THEN PRINT x; : s = s + 1
SWAP a$(j), a$(k)
NEXT k, j
NEXT i
PRINT s
END
9 楼
幽灵密码 [专家分：3510] 发布于 2010-12-15 16:08:00
2.提示：
Input n, m
If n > m Then st = -1 Else st = 1
For i = n To m Step st
10 楼
小心哦哦 [专家分：140] 发布于 2010-12-17 21:59:00
第七题必须是5吗
可以是别的数吗
我来回复
您所在位置：