PL/SQL解方程

declare
   a int :=30;
   b int :=8;
   c int :=2;
   x1 number(8,2);
   x2 number(8,2);
   t number(8,2);
   error EXCEPTION;
begin
    t:=b*b-4*a*c;
    if t<0 then
        raise error;
     end if;
   x1:=(-b+sqrt(t))/(2*a);
   x2:=(-b-sqrt(t))/(2*a);
   dbms_output.put_line('x1='||x1);
   dbms_output.put_line('x2='||x2);
EXCEPTION
 when error then dbms_output.put_line('此方程无解');
 end;

 --由于这种程序块没有名称，所以这种块结构又称为匿名块。
 --匿名块主要用于主机应用程序的一些初始化工作。