实验二 PL/SQL编程基础
班级：计算机13-1 学号： 130******** 姓名：刘炳君成绩：
一、实验目的
（1）掌握PL/SQL的控制结构；
（2）掌握PL/SQL中变量和常量的定义方法；
（3）学会使用select…into…语句返回一行数据；
（4）掌握游标的使用方法。
二、实验内容
1、编写一个PL/SQL程序，计算1~100之间偶数的和。
DECLARE
counter number(3):=0;
sumResult number:=0;
BEGIN
WHILE counter<100 LOOP
counter := counter+2;
sumResult := sumResult+counter;
END LOOP;
dbms_output.put_line('result is :'||sumResult);
END;
/
2、下列程序计算由 0~9 之间的任意3个不相同的数字组成的三位数，共有多少
种不同的组合方式？完成下列程序使其能够正确运行。
DECLARE
counter number:=0;
BEGIN
FOR i IN 1..9 LOOP
FOR j IN 0..9 LOOP
IF j != i THEN
FOR k IN 0..9 LOOP
IF k != j AND k!=i THEN
counter:=counter+1;
END IF;
END LOOP;
END IF;
END LOOP;
END LOOP;
DBMS_OUTPUT.put_line(counter);
END;
/
3、编写PL/SQL程序，程序的功能是：查询部门为SALES，显示输出该部门的
雇员编号、姓名和雇佣日期。
DECLARE
cursor v_cursor
IS
select * from emp e left JOIN dept d ON e.deptno=d.deptno
where d.DNAME= 'SALES';
BEGIN
FOR v_emp in v_cursor
loop
dbms_output.put_line(v_emp.empno||'--'||v_emp.ename||'--' ||v_emp.hiredate);
END LOOP;
END;
/
三、实验小结
在实验过程中，遇到最大问题就是实验3了。因为第一次接触数据库，学到的内容不全面，所以在实验的时候不知道如何把两个表连接起来，在看书和上网了解之后，明白其语句的用法。才用JOIN语句来解决问题。