刚学Oracle，写了2道小题（因为俺的机子装不起庞大的Oracle，所以也不知道能不能运行通过-_-#）~~~

求100之内的素数

declare
   v_i number:=2;
   v_j number:=2;
   flag boolean:=true;
begin
   while v_i<=100
   flag:=true;
   loop
   for j in 2...v_i/2
   loop
      if mod(v_i,v_j)=0 then
      flag:=false;
      exit;
      end if;
   end loop;
   if flag then
     dbms_output.put(v_i||' ');
   end if;
   v_i:=v_i+1;
   end loop;
dbms_output.put_line(' ');
end;

 

逆序输出：

Declare
 v_num int;
   begin
       v_num:=&Number;
         loop
           dbms_output.put(mod(v_num,10)||' ');
           v_num:=floor(v_num/10);
           exit when v_num=0;
         end loop;
      dbms_output.put_line(' ');
   end;