这个程序帮忙回答下 想求1到10 的偶数求和

爱上狮子座女孩

DECLARE
   i       INTERGER;
   sum    INTERGER;
BEGIN
   sum : =0;
   FOR i IN 1..10 LOOP
      IF MOD(i ,2) = 0 THEN
      sum : =sum+i ;
      END IF;
  END LOOP;
DBMS_OUTPUT.PUT_LINE(‘sum is’ || sum);
EDN;

jimn1982

原帖由 爱上狮子座女孩 于 2010-3-10 15:09 发表
DECLARE
   i       INTERGER;
   sum    INTERGER;
BEGIN
   sum : =0;
   FOR i IN 1..10 LOOP
      IF MOD(i ,2) = 0 THEN
      sum : =sum+i ;
      END IF;
  END LOOP;
DBMS_OUTPUT.PUT_LINE(‘sum is’ || sum);
EDN;

DECLARE
  i   int;
  s   int;
BEGIN
  s := 0;
  FOR i IN 1 .. 10 LOOP
    IF MOD(i, 2) = 0 THEN
      s := s + i;
    END IF;
  END LOOP;
  dbms_output.put_line(s);
  ---.PUT_LINE('sum is' || s);
end;

sum是关键字。

qingyun

疯掉了，
这么简单的匿名pl/sql;
居然错误那么多：
INTERGER-> integer;
EDN;  ->end;

还有sum是保留字，最好不要作为变量，否者编译器搞不清楚它到底是变量名还是内部函数名。

[ 本帖最后由 qingyun 于 2010-3-10 15:21 编辑 ]

durexlollipop

select sum(level) from dual where mod(level,2)=0
connect by level<=10;

mychary

原帖由 durexlollipop 于 2010-3-10 16:06 发表
select sum(level) from dual where mod(level,2)=0
connect by level

〇〇

lz是要学习pl/sql
如果学数学
2+4+6+8+10
=(2+10)*5/2=30

zianed

强人

原帖由 durexlollipop 于 2010-3-10 16:06 发表
select sum(level) from dual where mod(level,2)=0
connect by level

ema100

确实强！

yellowlee

原帖由 durexlollipop 于 2010-3-10 16:06 发表
select sum(level) from dual where mod(level,2)=0
connect by level

:right:

XQKA

原帖由 durexlollipop 于 2010-3-10 16:06 发表
select sum(level) from dual where mod(level,2)=0
connect by level

good！