主题：这是我们的竞赛题,看你们能做出来几道
Matodied
[专家分：7560] 发布于 2007-04-19 20:18:00
(各题加分:20 10 20 30)
1、字符串匹配问题：输入一个带括号的字符串，（四种括号：( ) < > [ ] { }）如果
括号全部成对出现，并且顺序正确，称为匹配，否则不匹配。
示例：
匹配的字符串：（ABC[D{E}]FGH）、<ERROR>、（<[1234{5}]>）
不匹配的字符串：（34789、（A[BC）DEF]、（<6667}
如果输入的字符串没有括号，如ABCD，则让你重新输入。
2、任何一个数的三次方都能表示成一串奇数的和，如3^3=11+9+7，现输入一个数，把这串奇数打印出来。
如：输入4，输出19+17+15+13=64=4^3。
3、有N个人要接受检测，每个人检测的时间为3-7分钟，现有三个检测员同时检测，求要多长时间。
4、输入N，输出N！的最后一位非0的数字（10000<N<10000000000）。
回复列表 （共67个回复）
沙发
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-19 20:54:00
这是合肥市庐阳区的考试题对吧?我们做的就是这个题目
板凳
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-19 21:15:00
2.
CLS
INPUT n
a = n ^ 2 + n - 1
FOR i = a TO a - (n + INT(SQR(n))) + 2 STEP -2
PRINT i; "+";
NEXT i
PRINT i; "="; n ^ 3; "="; n; "^3"
3 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-19 21:19:00
3.
RANDOMIZE TIMER
INPUT n
o = n \ 3
FOR i = 1 TO o
a(1) = a(1) + (5 * RND) + 3
a(2) = a(2) + (5 * RND) + 3
a(3) = a(3) + (5 * RND) + 3
NEXT i
FOR i = 1 TO 3 - 1
FOR j = i + 1 TO 3
IF a(i) < a(j) THEN SWAP a(i), a(j)
NEXT j, i
PRINT a(3) / 3600; "hour"
4 楼
Matodied [专家分：7560] 发布于 2007-04-21 15:00:00
你怎么知道这是合肥市庐阳区的考试题?
5 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-21 17:46:00
今年我们做的就是这个题目，怎么？我说对了
6 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-21 17:55:00
1
INPUT N$
Q=1:DIM L$(100),P$(100)
FOR I = 1 TO N$
A$=MID$(N$,I,1)
IF A$="{" OR A$="(" OR A$="<" OR A$="[" THEN L$(Q)=A$:Q=Q+1
NEXT I
W=Q
Q=1
FOR I = N$ TO 1 STEP -1
A$=MID$(N$,I,1)
IF A$="}" OR A$="]" OR A$=">" OR A$=")" THEN P$=(Q)=A$:Q=Q+1
NEXT I
DO
2 Y=Y+1
Q=Q-1
IF L$(Y)= "{" AND P$="}" THEN
GOTO 2
ELSE
IF L$(Y)= "[" AND P$="]" THEN
GOTO 2
ELSE
IF L$(Y)= "(" AND P$=")" THEN
GOTO 2
ELSE
IF L$(Y)= "<" AND P$=">" THEN
GOTO 2
回来继续打
7 楼
Matodied [专家分：7560] 发布于 2007-04-21 20:13:00
对不起,你的程序有错误.
8 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-21 20:40:00
还没编完,明天早上我发给你
9 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-21 20:43:00
其实你的最后一题是你问的那个"快给答案"的程序,我想想有没有新的简单的方法
10 楼
wzc1996 [专家分：1680] 发布于 2007-04-22 14:50:00
2
CLS
INPUT n
a = n ^ 2 + n - 1
FOR i = a TO a - (n + INT(SQR(n))) + 2 STEP -2
PRINT i; "+";
NEXT i
PRINT i; "="; n ^ 3; "="; n; "^3"
我来回复
您所在位置：