Oracle11g数据库基础教程(第二版)张凤荔实验5

1、实验五实验内容：1.使用条件语句执行例9.4中程序，观察运行结果。例9.4F面演示了 IF语句的使用方法，代码如下:SET ServerOutput ON; DECLARENum INTEGER := -11;BEGIN负数');正数');IF Num < 0 THEN dbms_output.put_li ne(' ELSIF Num > 0 THEN dbms_output.put_li ne(' ELSE dbms_output.put_li ne('O');END IF;END;/Num使用IF语句判断Num是正数、负数或者0

2、,程序运行结果程序中声明了一个整形变量 为负数。0：0用CduTf'11.2 O'.dbhnrn_l&N ,?qIplus.exe 盼口 -沢连接到=Orac le Database Ug EnteMii'ise Ed It ion Re lease 11-2,0,1,9 - &4b it Product ion M 11:11 七 hm Pfirtrlt iorlincj, OLAP Deh a Huixng and Real A ppi. 1C at ian Test opt loneSQL> SET SetverUutput ON;

3、£QL> DECLARE2 Nun INTEGER ：= -11;3 DECIN4 IF Hulk < Q THEM5 di>nE_autpul：_?iit_line<6 ELSIF Nun > U THEN7 dbnts .out out _ jjut _1 ine ( * 1E.Z1 r 9 EL£E?dlbna_out pul; - fiit_linc < * 0* J ；10 END IF；11 END；12 /员数过程己成功気成©SQL> _半:2使用分支语句执行例9.5中程序，观察运行结果。例9.5使用CASE

4、语句根据给定的整数输出对应的星期值，代码如下:SET ServerOutput ON;DECLAREvarDAY INTEGER := 3;Result VARCHAR2(20);BEGINResult := CASE varDAYWHEN 1 THEN'星期一WHEN 2 THEN'星期二WHEN 3 THEN'星期三WHEN 4 THEN'星期四WHEN 5 THEN'星期五WHEN 6 THEN'星期六WHEN 7 THEN'星期七ELSE数据越界END;dbms_output.put_li ne(Result);END;/程序中声

5、明了一个整形变量varDAY和一个字符型变量 Result。使用CASE语句判断varDAY变量是星期几。如果变量varDAY在17之间，则能显示相应的星期信息：否则返回提示信息数据越界。程序运行结果为星期三。O;O ra c e'.p rodu7tUl-2 Q.dbhD ne_l&N 市 q I plus.exeSQL? SET SeuerOutput ON；SOL> DECLARE2 INTECEH i;3 Aesuli UARCHAB2<20>4 BEGIN5 Penult := CASE uavDAV一二三宓五亠八七 星星一5一毕星星一星一6 UMEN

6、1THEN7 tJMEN2IIIENHUHkN31HEN9UHEN41HEN1RUMENG1MEN±1UMEN&1HEN12 WHEN71HEN13 ELSE，黔扌居越界，14 END:15 dLbns_output： .put-lineCBesiil-t；16 EHDi17 /星郎二PUSQL过程己成功完成。SQL> _3使用循环语句执行例9.6和例9.9中程序，观察运行结果。例9.6下面是关于LOOPEXITEND语句的示例程序，代码如下:SET ServerOutput ON;DECLAREv_Num INTEGER := 1;v_Sum INTEGER := 0

7、;BEGINLOOPv_Sum := v_Sum + v_Num;dbms_output.put_li ne(v_Num);IF v_Num = 3 THENEXIT;END IF;dbms_output.put_li ne(' + ');v_Num := v_Num + 1;END LOOP;dbms_output.put_li ne('=');dbms_output.put_li ne(v_Sum);END;/程序将计算13的累加结果，程序运行如下:1+2+3=6例9.9例9.6的程序也可以用 FORIN-LOOP-END LOOP句实现，代码如下SET S

8、erverOutput ON;DECLAREv_Num INTEGER;v_Sum INTEGER := 0;BEGINFOR v_Num IN 1.3LOOPv_Sum := v_Sum + v_Num;dbms_output.put_li ne(v_Num);IF v_Num < 3 THENdbms_output.put_li ne(' + ');END IF;END LOOP;dbms_output.put_li ne('=');dbms_output.put_li ne(v_Sum);END;/i D:0u rtU 1-2 ff .dbho rr

9、te_laI plus.exe . =.匚 '''.SQL> SET SepverOutput ON;J-SQL>DECLARE2u_Nun rNIEGETt：3y_S un INI EGER * - 0»9BEGINFUW v_Nun IN 1-.3LOOPm Gun - w_Sum + v_Numi；dliPkSL _uu t pul; puiL_liiic iSiIF v_NLin C 3 IHtN10dlhms_output .putJLinie+11HMD IP：12EN1> Loor；13dLbnis_oiitput .put;_llraeCJJ > ；14dbnis_ouitpu.t .put_lineCu_SiLini> ；15FND：16y1*2*3卜6PSQL过程己成功完成qS4L>半:：1.使用PL