返回变化的程序PL/SQL

Question

我正在尝试创建一个返回20,10,5和1美元账单（所有用户值和输入都是整数）变化的程序。

例如：

exec Change(15, 200); 

9 Twenty Dollar Bill 
1 Five Dollar Bill 

我到目前为止有：

CREATE or REPLACE Procedure Change(
    p_MoneyDue number, p_Paid number 
) as 

p_Change number := p_MoneyDue - p_Paid; 

BEGIN 

    IF (p_Change = 0) THEN 
    dbms_output.put_line ('You just gave me exact change! Thank you!'); 
    ELSIF p_MoneyDue > p_Paid THEN 
    dmbs_output.put_line ('You need to give me more money!'); 
    ELSIF p_Change >= 100 THEN 

    dbms_output.put_line ('Twenty dollar bill') 
    ELSIF p_Change <= 100 THEN 

    dbms_output.put_line ('10 dollar bill') 
    ELSIF p_Change THEN 

    dbms_output.put_line ('5 dollar bill') 

    ELSE p_Change THEN 

    dbms_output.put_line ('1 dollar bill') 
    END IF; 

END; 
/

Answer 1

DECLARE 
PROCEDURE CHANGE(
     p_moneydue NUMBER, 
     p_paid  NUMBER) 
AS 
    p_change NUMBER := p_paid - p_moneydue; 
    -- 20 10 5 1 
    bill_20 NUMBER := 0; 
    bill_10 NUMBER := 0; 
    bill_5 NUMBER := 0; 
    bill_1 NUMBER := 0; 
BEGIN 
    IF (p_change = 0) THEN 
     dbms_output.put_line ('You just gave me exact change! Thank you!'); 
    elsif p_moneydue > p_paid THEN 
     dbms_output.put_line ('You need to give me more money!'); 
    END IF; 
    IF (p_change > 0) THEN 
     bill_20 := TRUNC(p_change/20); 
     p_change := p_change - (20 * bill_20); 
     bill_10 := TRUNC(p_change/10); 
     p_change := p_change - (10 * bill_10); 
     bill_5 := TRUNC(p_change/5); 
     p_change := p_change - (5 * bill_5); 
     bill_1 := p_change; 
     IF(bill_20 > 0) THEN 
      dbms_output.put_line(bill_20 ||' Twenty Dollar Bill'); 
     END IF; 
     IF(bill_10 > 0) THEN 
      dbms_output.put_line(bill_10 ||' Ten Dollar Bill'); 
     END IF; 
     IF(bill_5 > 0) THEN 
      dbms_output.put_line(bill_5 ||' Five Dollar Bill'); 
     END IF; 
     IF(bill_1 > 0) THEN 
      dbms_output.put_line(bill_1 ||' One Dollar Bill'); 
     END IF; 
    END IF; 
END; 
BEGIN 
    CHANGE(15, 200); 
END; 
/

Answer 2

你在你的代码做了很多错误。你有没有试过编译？正确的程序可以如下所示

create or replace Procedure Change(
    p_MoneyDue number, p_Paid number 
) as 

    p_Change number := p_Paid - p_MoneyDue; 
    p_twenty number := 0; 
    p_ten number := 0; 
    p_five number := 0; 
    p_one number := 0; 
BEGIN 

    IF (p_Change = 0) THEN 
    dbms_output.put_line ('You just gave me exact change! Thank you!'); 
    ELSIF p_MoneyDue > p_Paid THEN 
    dbms_output.put_line ('You need to give me more money!'); 
    END IF; 

    WHILE p_change > 0 
    LOOP 
    IF p_Change >= 20 THEN 
     p_twenty := p_twenty + 1; 
     p_Change := p_Change - 20; 
    ELSIF p_Change >= 10 
    THEN 
     p_ten := p_ten + 1; 
     p_Change := p_Change - 10; 
    ELSIF p_Change >= 5 THEN 
     p_five := p_five + 1; 
     p_Change := p_Change - 5; 
    ELSE 
     p_one := p_one + 1; 
     p_Change := p_Change - 1; 
    END IF; 
    END LOOP; 

    if p_twenty > 0 then 
    dbms_output.put_line (p_twenty || ' Twenty Dollar Bill'); 
    END IF; 
    if p_ten > 0 then 
    dbms_output.put_line (p_ten || ' Ten Dollar Bill'); 
    END IF; 
    if p_five > 0 then 
    dbms_output.put_line (p_five || ' Five Dollar Bill'); 
    END IF; 
    if p_one > 0 then 
    dbms_output.put_line (p_one || ' One Dollar Bill'); 
    END IF; 
END; 
/