PL/SQL笔记整理

–1输出小于等于指定参数的所有斐波那契数列，比如输入参数为10Procedure名称：fibonacci_output
–参数：p_limit,0、1、1、2、3、5、8、13
–说明：参数为输出限制，最后数据不超过该参数，使用dbms_output.put_line来输出

  procedure fibonacci_output(p_limit number) is
    i    number := 0;
    t    number := 1;
    temp number := 1;
  begin
    dbms_output.put_line(i);
    while temp < p_limit loop
      dbms_output.put_line(temp);
      temp := i + t;
      i    := t;
      t    := temp;
    end loop;
  end;

–2. 输入一个日期，计算该日期在该年内第几天
–Procedure名称：date_num
–参数：p_date，类型为字符，格式yyyy-mm-dd
–说明：使用dbms_output.put_line来输出（5分）
–失误，没有看清题意，参数传错了

  Procedure date_num(p_date varchar2) is
    first_day date;
    n         number := 0;
  begin
    first_day := TRUNC(to_date(p_date,'yyyy-mm-dd'), 'YEAR');
    n         := to_date(p_date,'yyyy-mm-dd') - first_day + 1;
    dbms_output.put_line('the date is the ' || n || 'th day of the year');
  end;

–3. 个人所得税计算：个人所得税分段计算，具体分段如下：
/*0-3500 免征税
3501-4500 10%
4501-9000 20%
9000以上 25%
输入一个参数，计算应该缴纳的税收为多少
function名称：tax_calc
参数：p_salary
返回值：需要缴纳的税收*/

  function tax_calc(p_salary number) return number is
    tax_sum number;
  begin
    if p_salary > 0 and p_salary < 3500 then
      tax_sum := 0;
    elsif p_salary > 3501 and p_salary < 4500 then
      tax_sum := (p_salary-3500) * 0.1;
    elsif p_salary > 4501 and p_salary < 9000 then
      tax_sum := 1000*0.1+(p_salary-4500) * 0.2;
    elsif p_salary >= 9000 then
      tax_sum := 1000*0.1+4500*0.2+(p_salary-9000) * 0.25;
    end if;
    dbms_output.put_line('the tax you should pay is : ' || tax_sum);
    return tax_sum;
  end;

1. A/B/C三种物品的价格分别为p_a_price,p_b_price,p_c_price，总金额为p_total，计算A/B/C数量（整数）分别为多少，
   使得A/B/C总金额加起来不超过p_total并且最接近p_total（如果有多个组合，只需要得出一个组合即可），
   在包里写一个函数。
   procedure名称：quantity_calc
   参数：p_a_price
   p_b_price
   p_c_price
   p_total
   x_a_quantity
   x_b_quantity
   x_c_quantity
   p开头的为输入类型参数，x开头为输出类型参数
   （15分）

  procedure  quantity_calc(p_a_price in number,p_b_price in number,p_c_price in number,p_total in number,
                    x_a_quantity out number,x_b_quantity out number, x_c_quantity out number ) is
  i number:=0;
  j number:=0;
  t number:=0;
  begin 
       for i in 0..trunc(p_total/p_a_price,0) loop
           for j in 0..trunc(p_total/p_b_price,0) loop
               for t in 0..trunc(p_total/p_c_price,0) loop
                   if(i*p_a_price+j*p_b_price+t*p_c_price)=p_total then 
                        x_a_quantity:=i;
                        x_b_quantity:=j;
                        x_c_quantity:=t;
                    end if;
               end loop;
            end loop;
         end loop;
    end;

–1. 创建一个过程，给所有成绩低于该课程平均分的男生加2分，女生加3分，加完分后，如果超过100分，
–就更新为100分。如果加分后的学生成绩低于60分，则输出学生的信息（按学号顺序）。处理成功则提交事物；失败则回滚事物。（10分）
–Procedure名称：update_score
–说明：使用dbms_output.put_line输出，输出学生编号、学生姓名

  Procedure update_score is
    CURSOR cur_core IS
      select hsc.student_no, hs.student_name, hs.student_gender, hsc.core
        from (SELECT hsc.course_no, avg(hsc.core) AVG_C
                FROM hand_student_core hsc
               group by (hsc.course_no)) H,
             hand_student hs,
             hand_student_core hsc
       where hsc.core < H.AVG_C
         and hsc.course_no = H.course_no
         AND hsc.student_no = hs.student_no
         FOR UPDATE OF hsc.core;
  --TYPE core_ind IS TABLE OF cur_core INDEX BY hand_student_core.student_no%TYPE;   
  begin
    DBMS_OUTPUT.put_line('学生编号  学生姓名');
    for rec_core in cur_core loop
      if (rec_core.core + 2) > 60 and rec_core.student_gender = '男' then
        UPDATE hand_student_core hsc
           SET hsc.core = rec_core.core + 2
         WHERE CURRENT OF cur_core;
      elsif (rec_core.core + 3) > 60 and rec_core.student_gender = '女' then
        UPDATE hand_student_core hsc
           SET hsc.core = rec_core.core + 3
         WHERE CURRENT OF cur_core;
      elsif ((rec_core.core + 2) > 100 and rec_core.student_gender = '男') OR
            ((rec_core.core + 3) < 100 and rec_core.student_gender = '女') then
        UPDATE hand_student_core hsc
           SET hsc.core = 100
         WHERE CURRENT OF cur_core;
      elsif ((rec_core.core + 2) < 60 and rec_core.student_gender = '男') OR
            ((rec_core.core + 3) < 60 and rec_core.student_gender = '女') THEN
            --core_ind(rec_core.student_no).student_no=rec_core.student_no;
            --core_ind(rec_core.student_no).student_name= rec_core.student_name;     
        DBMS_OUTPUT.put_line(rec_core.student_no || '  ' ||rec_core.student_name);
        --如何按学号顺序实现，没头绪。。
      END IF;
    END LOOP;
   commit;--没提交上去，好奇怪。。

  EXCEPTION
    WHEN OTHERS THEN
      ROLLBACK;
  END;

–2. 写一个procedure，对学分小于6分的补课程，
–成绩60-70分的1个学分，70-80的2个学分，80以上的3个学分。（10分）
–Procedure名称:student_score
–说明：补充的课程必须是该学生没选修过的课程，补的课程成绩默认85分，
–补课程的数量要使得这个学生的学分大于等6分，比如该学生之前学分2分，那就必须补2个课程，如果之前学分3分，则只需补一个课程。
写了好久才摸索出来，自己有点low，如果有大神有更好的算法，还请不吝赐教。。。

  procedure student_score is
    cursor course_to_learn is
      select h.student_no, sum(h.c) sum_c
        from (select hsc.student_no,
                     hsc.course_no,
                     case
                       when hsc.core between 60 and 69 then
                        1
                       when hsc.core between 70 and 79 then
                        2
                       when hsc.core > 80 then
                        3
                       when hsc.core < 60 then
                        0
                     end c
                from hand_student_core hsc) h
       group by (h.student_no);
    need_core number;
    cursor c_minus(s varchar2) is
      select TA.course_no
        from ((select hc.course_no from hand_course hc) minus
              (select hsc.course_no
                 from hand_student_core hsc
                where hsc.student_no = s)) TA;
    i number;
  begin
    for rec in course_to_learn loop
      if rec.sum_c < 6 then
        need_core := 6 - rec.sum_c;
        need_core := ceil(need_core / 3);
        dbms_output.put_line('学生学号:' || rec.student_no);
        dbms_output.put_line('需要修的课程数：' || need_core);
        dbms_output.put_line('可选修课程如下：' || need_core);
        i := 0;
        FOR minu_c in c_minus(rec.student_no) loop
          i := i + 1;
          dbms_output.put_line(minu_c.course_no);
          exit when i = need_core;
        end loop;
      end if;
    end loop;
  end;