pl/sql 过程 函数(写一个过程，输入部门编号，在控制台打印这个部门的名称，总人数，平均工资（基本工资+奖金）)

1、编写过程，输入三角形三个表的长度。在控制台打印三角形的面积。

create or replace procedure pro_s(v_a number,v_b number,v_c number) is
-- 声明变量
   v_sum number(10,2);
begin
  -- 计算三角形的面积
  v_sum:=1/4*sqrt((v_a+v_b+v_c)*(v_a+v_b-v_c)*(v_a+v_c-v_b)*(v_b+v_c-v_a));
  -- 打印输出
  dbms_output.put_line('三角形的面积是：'||v_sum);
end;
 
-- 调用
call pro_s(3,4,5);

2、编写函数，输入三角形三个表的长度。在控制台打印三角形的面积

create or replace function fun_s(v_a number,v_b number,v_c number)return number is
-- 声明函数
     v_sum number(10,2);
begin
  -- 计算圆的面积
     v_sum:=1/4*sqrt((v_a+v_b+v_c)*(v_a+v_b-v_c)*(v_a+v_c-v_b)*(v_b+v_c-v_a));
     -- 返回值
     return v_sum;
end;
 
declare
-- 声明变量 变量和 function中的 类型相同
     v_sum number(10,2);
 
begin
     v_sum:=fun_s(3,4,5);
     dbms_output.put_line('三角形的面是：'||v_sum);
end;

3、写一个过程，输入部门编号，在控制台打印这个部门的名称，总人数，平均工资（基本工资+奖金）

create or replace procedure pro_emp(v_deptno number,v_dname out varchar2, v_count out number,v_vag out number)
is
begin
 
    select d.dname,count(e.ename),avg(sal+nvl(comm,0))into v_dname,v_count,v_vag from emp e inner join dept d on e.deptno=d.deptno where e.deptno=v_deptno group by e.deptno,d.dname; 
 
end;
 
declare
    ---v_deptno emp.deptno%type;
    v_dname dept.dname%type;
    v_count emp.deptno%type;
    v_vag emp.sal%type;
begin
  pro_emp(10,v_dname,v_count ,v_vag);
  dbms_output.put_line('员工姓名'||v_dname||'总人数'||v_count||'平均值'||v_vag);
end;

4，编写一个PL/SQL块，输出所有员工的员工姓名、员工号、工资和部门号

create or replace procedure pro_emp3 is
  type emp_record_type is record(
    empno emp.empno%type,
    ename emp.ename%type,
    sal emp.sal%type,
    deptno emp.deptno%type
  );
  type emp_table_type is table of emp_record_type
  index by binary_integer;
  v_emp emp_table_type;
begin
  select empno,ename,sal,deptno bulk collect into v_emp from emp;
  for v_i in v_emp.first ..v_emp.last
  loop
    dbms_output.put_line('员工编号'||v_emp(v_i).empno||
                         '员工姓名'||v_emp(v_i).ename||
                         '基本工资'||v_emp(v_i).sal||
                         '部门编号'||v_emp(v_i).deptno);
  end loop;
end;
begin
 
   pro_emp3();
 
end;

5、编写一个存储过程,输入一个员工编号，输出该员工的员工编号，员工姓名，部门名称。

create or replace procedure pro_emp1(v_empno number,v_emno out number,v_ename out varchar2,v_dname out varchar2)is
 
begin
  select e.empno,e.ename,d.dname into v_emno,v_ename,v_dname from emp e inner join dept d on d.deptno=e.deptno where empno=v_empno;
end;
 
declare
v_emno emp.empno%type;
v_ename emp.ename%type;
v_dname dept.dname%type;
--v_deptno emp.deptno%type;
begin
 pro_emp1(7369,v_emno,v_ename,v_dname) ;
 dbms_output.put_line('员工编号'||v_emno||'员工姓名'||v_ename||'部门名称'||v_dname);
 
end;

6、编写一个存储过程,输出所有员工及其部门领导的姓名、员工号及部门号。

create or replace procedure pro_emp2 is
type emp_record_type is record(
empno emp.empno%type,
ename emp.ename%type,
deptno emp.deptno%type,
mname emp.ename%type);
 
type emp_table_type is table of emp_record_type
index by binary_integer;
 
v_emp emp_table_type;
begin
  select e.empno,e.ename,e.deptno,m.ename mname bulk collect into v_emp from emp e inner join emp m on e.empno=m.mgr;
  for v_i in v_emp.first  .. v_emp.last
  loop
    dbms_output.put_line('员工编号：'||v_emp(v_i).empno||
                         '员工姓名：'||v_emp(v_i).ename||
                         '领导姓名：'||v_emp(v_i).mname||
                         '部门编号：'||v_emp(v_i).deptno);
  end loop;
end;
 
begin
   pro_emp2();
end;