把当型语句改为直到型语句

来源：百度知道 编辑：UC知道 时间：2024/05/25 06:31:17
INPUT "n="; n
INPUT "an="; a
INPUT "x="; x
v = a
i = n - 1
WHILE i >= 0
PRINT "i="; i
INPUT "ai="; i
v = v * x + a
i = i - 1
WEND
PRINT v
END
这是QB的代码

楼上的do while还是当型的，而且语法错误

加了一句if语句，这样保证程序完全等价

INPUT "n="; n
INPUT "an="; a
INPUT "x="; x
v = a
i = n - 1
IF i < 0 THEN GOTO EOF
DO
PRINT "i="; i
INPUT "ai="; i
v = v * x + a
i = i - 1
LOOP UNTIL i < 0
EOF:
PRINT v
END

INPUT "n="; n
INPUT "an="; a
INPUT "x="; x
v = a
i = n - 1
DO
PRINT "i="; i
INPUT "ai="; i
v = v * x + a
i = i - 1
WHILE i >= 0
WEND
PRINT v
END