主题：这个怎么编·~？偶系菜鸟。。
Tato妖
[专家分：0] 发布于 2008-04-24 22:12:00
输入N（2<=N<=100）个数（0-9之间），显示相邻2数的个数
例
输入 3，6，5，9，4，5，2，6，5，3
输出（6，5）=2 （5，6）=1 （4，5）=1
回复列表 （共5个回复）
沙发
Mato完整版 [专家分：1270] 发布于 2008-04-25 12:23:00
你的这组数中有“5，6”吗？？？？？？？
板凳
Mato完整版 [专家分：1270] 发布于 2008-04-25 12:34:00
CLS
INPUT n
DIM xx(9, 1 TO 2)
s = 99999
FOR i = 1 TO n
INPUT x
IF ABS(x - s) = 1 THEN
IF x - s = 1 THEN xx(s, 1) = xx(s, 1) + 1 ELSE xx(s, 2) = xx(s, 2) + 1
END IF
s = x
NEXT i
FOR i = 0 TO 9
IF xx(i, 1) > 0 THEN PRINT "("; i; ","; i + 1; ") ="; xx(i, 1)
IF xx(i, 2) > 0 THEN PRINT "("; i; ","; i - 1; ") ="; xx(i, 2)
NEXT i
END
3 楼
Tato妖 [专家分：0] 发布于 2008-04-26 13:17:00
谢。。
4 楼
Mato完整版 [专家分：1270] 发布于 2008-04-26 20:53:00
请加分。
5 楼
世界第一 [专家分：210] 发布于 2008-04-29 16:24:00
输出结果应该是
(6,5)=2 (4,5)=1
我来回复
您所在位置：