Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2226588
  • 博文数量: 556
  • 博客积分: 11457
  • 博客等级: 上将
  • 技术积分: 5973
  • 用 户 组: 普通用户
  • 注册时间: 2011-02-24 22:33
文章分类

全部博文(556)

文章存档

2013年(22)

2012年(74)

2011年(460)

分类: Oracle

2012-03-04 11:09:45

  1. declare
  2.    a int :=30;
  3.    b int :=8;
  4.    c int :=2;
  5.    x1 number(8,2);
  6.    x2 number(8,2);
  7.    t number(8,2);
  8.    error EXCEPTION;
  9. begin
  10.     t:=b*b-4*a*c;
  11.     if t<0 then
  12.         raise error;
  13.      end if;
  14.    x1:=(-b+sqrt(t))/(2*a);
  15.    x2:=(-b-sqrt(t))/(2*a);
  16.    dbms_output.put_line('x1='||x1);
  17.    dbms_output.put_line('x2='||x2);
  18. EXCEPTION
  19.  when error then dbms_output.put_line('此方程无解');
  20.  end;

 --由于这种程序块没有名称,所以这种块结构又称为匿名块。
 --匿名块主要用于主机应用程序的一些初始化工作。
 
阅读(1302) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~