用 Oracle 9i 的 PL/SQL 写的反转数字的小题目

题目要求：编写一个程序，用以接受用户输入的数字。将该数左 --右反转，然后显示反转后的数。

--***********************************************
--编写一个程序，用以接受用户输入的数字。将该数左
--右反转，然后显示反转后的数。
--***********************************************

--设置参数使dbms_output.put_line()的结果显示在屏幕上
set serveroutput on;

-------------------------------------------------
--注：
-------------------------------------------------
--“用户的键盘输入”以下简称“输入”
--题目中对数字转换的格式要求并不十分明确，所以
--自己规定了一下转换要求
-------------------------------------------------

-------------------------------------------------
--要求(A).规定反转时先转成简单格式再反转
-------------------------------------------------
--预期测试用例：
--1.输入0105.0000反转后为501
--2.输入01050反转后为501
--3.输入0.5反转后为5
-------------------------------------------------

-------------------------------------------------
--要求(B).规定反转时先反转再转成简单格式
-------------------------------------------------
--预期测试用例：
--1.输入0105.0000反转后为0.501
--2.输入01050反转后为5010
--3.输入0.5反转后为5
-------------------------------------------------

-------------------------------------------------
--对于 要求(A)
-------------------------------------------------

--规则思考:
--1.以小数点开头或以小数点结尾的输入不是数字
--2.包含超过一个小数点的输入不是数字
--3.包含既非数字又非小数点的字符的输入不是数字

--实现步骤设计：
--1.如果不满足以上规则，提示非数字
--2.修剪数字两边的0
--  例：'0105.0000'  修剪成  '105.'，
--      '01050'      修剪成  '105',
--      '0.5'        修剪成  '.5'
--3.修剪数字两边的小数点
--  例：'105.'       修剪成  '105'，
--      '105'        修剪成  '105',
--      '.5'         修剪成  '5'
--4.将剩下的数字反转
--  例：'105'        反转成  '501'，
--      '105'        反转成  '501',
--      '5'          反转成  '5'

-------------------------------------------------
        --要求(A)的具体实现
-------------------------------------------------
declare
  v_i int;
  v_c char(1);
  v_userinput varchar2(100);
  v_result v_userinput%type;
  e_NumberFormatException EXCEPTION;
  v_prompt constant char(14) := '反转后的数字：';
begin
  --从键盘接收用户输入
  v_userinput := '&需要反转的数字';
  --判断输入是否以小数点开头，或以小数点结尾，如是，提示非数字
  if (substr(v_userinput,1,1)='.' or substr(v_userinput,length(v_userinput),1)='.') then
    raise e_NumberFormatException;
  end if;
  --判断输入是否包含1个以上的小数点，如是，提示非数字
  if (length(v_userinput)-length(replace(v_userinput,'.','')))>1 then
    raise e_NumberFormatException;
  end if;
  --删除输入两侧的0
  execute immediate 'select nvl(ltrim(rtrim(:ui,:c1),:c2),0) from dual' into v_userinput using v_userinput,'0','0';
  --删除输入两侧的小数点
  execute immediate 'select nvl(ltrim(rtrim(:ui,:c1),:c2),0) from dual' into v_userinput using v_userinput,'.','.';
  --反向遍历输入中每一个字符，并把该字符附加到结果变量中
  v_i := 0;
  for v_i in reverse 1..length(v_userinput)
  loop
    v_c := substr(v_userinput,v_i,1);
    --如果输入中有字符非数字也非小数点，则提示非数字
    if v_c<>'.' and not (v_c >='0' and v_c<='9') then
      raise e_NumberFormatException;
    end if;
    v_result := v_result || v_c;
  end loop;
  --输入最后的结果
  dbms_output.put_line(v_prompt||v_result);
exception
  when e_NumberFormatException then
    dbms_output.put_line('您输入的不是数字');
end;
/

-------------------------------------------------
--对于 要求(B)
-------------------------------------------------

--规则思考:
--1.以小数点开头或以小数点结尾的输入不是数字
--2.包含超过一个小数点的输入不是数字
--3.包含既非数字又非小数点的字符的输入不是数字

--实现步骤设计：
--1.如果不满足以上规则，提示非数字
--2.将输入反转
--  例：'0105.0000'  反转成  '0000.5010'，
--      '01050'      反转成  '05010',
--      '0.5'        反转成  '5.0'
--3.如果输入中包含小数点，则修剪两侧的0，否则，只修剪左侧的0
--  例：'0000.5010'  修剪成  '.501'
--      '05010'      修剪成  '5010'
--      '5.0'        修剪成  '5.'
--4.修剪右侧的小数点
--  例：'.501'       修剪成  '.501'
--      '5010'       修剪成  '5010'
--      '5.'         修剪成  '5'
--5.如果结果以小数点开头，则在左侧补0
--  例：'.501'       转换成  '0.501'
--      '5010'       转换成  '5010'
--      '5'          转换成  '5'




-------------------------------------------------
        --要求(B)的具体实现
-------------------------------------------------
declare
  v_i int;
  v_c char(1);
  v_userinput varchar2(100);
  v_result v_userinput%type;
  e_NumberFormatException EXCEPTION;
  v_prompt constant char(14) := '反转后的数字：';
begin
  --从键盘接收用户输入
  v_userinput := '&需要反转的数字';
  --判断输入是否以小数点开头，或以小数点结尾，如是，提示非数字
  if (substr(v_userinput,1,1)='.' or substr(v_userinput,length(v_userinput),1)='.') then
    raise e_NumberFormatException;
  end if;
  --判断输入是否包含1个以上的小数点，如是，提示非数字
  if (length(v_userinput)-length(replace(v_userinput,'.','')))>1 then
    raise e_NumberFormatException;
  end if;
  --反向遍历输入中每一个字符，并把该字符附加到结果变量中
  v_i := 0;
  for v_i in reverse 1..length(v_userinput)
  loop
    v_c := substr(v_userinput,v_i,1);
    --如果输入中有字符非数字也非小数点，则提示非数字
    if v_c<>'.' and not (v_c >='0' and v_c<='9') then
      raise e_NumberFormatException;
    end if;
    v_result := v_result || v_c;
  end loop;
  --如果有小数点，刚删除输入两侧的0，如无小数点，则仅删除左侧的0
  if(instr(v_result,'.')>0) then
    execute immediate 'select nvl(ltrim(rtrim(:ui,:c1),:c2),0) from dual' into v_result using v_result,'0','0';
  else
    execute immediate 'select nvl(ltrim(:ui,:c1),0) from dual' into v_result using v_result,'0';
  end if;
  --删除右侧的小数点
  execute immediate 'select nvl(rtrim(:ui,:c1),0) from dual' into v_result using v_result,'.';
  if (substr(v_result,1,1)='.') then
    v_result := '0' || v_result ;
  end if;
  --输出最后的结果
  dbms_output.put_line(v_prompt||v_result);
exception
  when e_NumberFormatException then
    dbms_output.put_line('您输入的不是数字');
end;
/