Question

Oracle PL/SQL程序设计,用LOOP循环计算1到该数字之间所有整数和； 不懂哪里错了，请指教！

SET SERVEROUTPUT ON
ACCEPT g INTEGER PROMPT '请输入数：';

DECLARE
grade INTEGER(10);
i INTEGER(10);
s INTEGER(10);
BEGIN
grade:=('&g');
i:=1;
s:=0;
IF grade=0 THEN DBMS_OUTPUT.PUT_LINE('程序运行结束');
ELSIF grade>0 THEN
FOR c IN 1..grade LOOP
s := s + i;
i:=i+1;
END LOOP;
DBMS_OUTPUT.PUT_LINE('计算结果:');
DBMS_OUTPUT.PUT_LINE(s);
END IF;

END;

Answer 1

你的结果没有问题啊

可以优化一下:
s := s + i; -- 改为: s := s + c;
i:=i+1; --这句可以不要了

追问

我这边运行不起来呢
错误报告：
ERROR at line 6:
ORA-06550: line 6, column 2:
PLS-00103: Encountered the symbol "" when expecting one of the following:
begin case declare exit for goto if loop mod null pragma
raise return select update while with
....

追答

你的代码是用在哪个环境下运行的？
你用oracle自带的sqlplus运行，应该不会有问题.

Answer 2

没有问题，结果正常，可以少定义一个变量，i