- 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;
--由于这种程序块没有名称,所以这种块结构又称为匿名块。
--匿名块主要用于主机应用程序的一些初始化工作。
阅读(1302) | 评论(0) | 转发(0) |