回 帖 发 新 帖 刷新版面

主题:关于前面朋友求用递归求A+AA+AA+.....可我这怎么不行呢?MOZ?帮忙看一看

DIM a AS INTEGER, n AS INTEGER, s as integer
INPUT "a="; a
INPUT "n="; n
FOR i = 1 TO n
LET s = 0
IF n > 0 THEN
LET s = s + exp(a)
ELSE
PRINT "error!!!"
END IF
NEXT i
PRINT s
END

错在哪了

回复列表 (共7个回复)

沙发

FOR i = 1 TO n
  LET s = s * 10 + val(a)
NEXT i

板凳

exp() 是什么意思?好像是求指数喔

韩进好像也不太对喔
s=s*10+i*a

没用到递归喔

3 楼

哦,对。EXP()是求指数。我搞错了,求N次方,运算符是不是 “^” 啊
管它是不是递归呢
现在还不到那个时候
只要能运行我就很开心了
要饭的还会嫌饭是热的还是冷的。是好的还是馊的吗?

4 楼

s=s*10+i*a
这一句怎么解????
你也知道我刚学,不要搞的那么深嘛,像HANJIN那个我就不知道什么意思。不过能够在百忙中斜一眼我的帖子就很好,应该加分


重要通知:即日起,凡回我帖者,一律30分!即回即加!多回多加。不回不加!

5 楼

DIM a AS INTEGER, n AS INTEGER, s as integer
INPUT "a="; a
INPUT "n="; n
FOR i = 1 TO n
 LET s = s*10 + i*a
NEXT i
PRINT s
END

6 楼

MOZ对不起啊,它说在一个主题中只能打50分所以不好意思啦

7 楼

你客气了
谢谢你加的不少分
够我挨几天饿了

我来回复

您尚未登录,请登录后再回复。点此登录或注册