Oracle撰寫一個程式塊-有解無憂

找出1000以內所有的完數，即一個數等于，其不包含自身的因子之和
declare
  i number;
  j number;
  sum number;
BEGIN
  for i IN 1..1000
   loop
     sum:=0;
     for j IN 1..i-1
      loop
      if mod(i,j)=0 then sum:=sum+j;
      end if;
      end loop;
    if (i=sum)then dbms_output.putline(To_char(i));
    end if;
   end loop;
end;
希望能幫到剛開始學習的大家啦

uj5u.com熱心網友回復：

感謝分享。最好也在博客中記錄一下。

uj5u.com熱心網友回復：

首先要感謝您的分享，但是本著一個共同學習，共同進步的原則，有2個問題，需要和您分享一下。
第一個，您的代碼在我的環境上，執行不了，有一些內容，需要修改，以下是修改后的內容。
DECLARE
    i       NUMBER;
    j       NUMBER;
    n_sum   NUMBER;
BEGIN
    i := 0;
    n_sum := 0;
    FOR i IN 1..1000 LOOP
        n_sum := 0;
        FOR j IN 1..i - 1 LOOP
            IF
                MOD(i,j) = 0
            THEN
                SELECT
                    n_sum + j
                INTO
                    n_sum
                FROM
                    dual;

            END IF;
        END LOOP;

        IF
            i = n_sum
        THEN
            dbms_output.put_line(i);
        END IF;
    END LOOP;

END;

第二，代碼塊，只有在資料量很大，或者業務邏輯很復雜的情況下，才會用。程式員拼的是邏輯，而不是體力。這個問題，可以通過直接查詢獲取，不需要些代碼塊回圈。
時間有點倉促，沒有仔細看，應該還有優化的余地，供大家分享一下。
以下陳述句，可以查詢到10000以內的完數。
WITH
TAB1 AS (SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= 10000),
TAB2 AS (SELECT T1.L L1,T2.L L2 FROM TAB1 T1 JOIN TAB1 T2 ON MOD(T2.L,T1.L) = 0 AND T2.L > T1.L),
TAB3 AS (SELECT L2,SUM(L1) L1 FROM TAB2 GROUP BY L2)
SELECT L1 FROM TAB3 WHERE L2=L1 ORDER BY 1;

uj5u.com熱心網友回復：

參考 2 樓 AHUA1001 的回復:

首先要感謝您的分享，但是本著一個共同學習，共同進步的原則，有2個問題，需要和您分享一下。
第一個，您的代碼在我的環境上，執行不了，有一些內容，需要修改，以下是修改后的內容。
DECLARE
    i       NUMBER;
    j       NUMBER;
    n_sum   NUMBER;
BEGIN
    i := 0;
    n_sum := 0;
    FOR i IN 1..1000 LOOP
        n_sum := 0;
        FOR j IN 1..i - 1 LOOP
            IF
                MOD(i,j) = 0
            THEN
                SELECT
                    n_sum + j
                INTO
                    n_sum
                FROM
                    dual;

            END IF;
        END LOOP;

        IF
            i = n_sum
        THEN
            dbms_output.put_line(i);
        END IF;
    END LOOP;

END;

第二，代碼塊，只有在資料量很大，或者業務邏輯很復雜的情況下，才會用。程式員拼的是邏輯，而不是體力。這個問題，可以通過直接查詢獲取，不需要些代碼塊回圈。
時間有點倉促，沒有仔細看，應該還有優化的余地，供大家分享一下。
以下陳述句，可以查詢到10000以內的完數。
WITH
TAB1 AS (SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= 10000),
TAB2 AS (SELECT T1.L L1,T2.L L2 FROM TAB1 T1 JOIN TAB1 T2 ON MOD(T2.L,T1.L) = 0 AND T2.L > T1.L),
TAB3 AS (SELECT L2,SUM(L1) L1 FROM TAB2 GROUP BY L2)
SELECT L1 FROM TAB3 WHERE L2=L1 ORDER BY 1;

其實作在程式猿拼的真是體力，不能996的都不能出來混了

uj5u.com熱心網友回復：

感謝分享
不太建議用sum這種關鍵詞當變數名，后面的putline應該是PUT_LINE把這樣就可以跑起來了

uj5u.com熱心網友回復：

參考 2 樓 AHUA1001的回復:

首先要感謝您的分享，但是本著一個共同學習，共同進步的原則，有2個問題，需要和您分享一下。
第一個，您的代碼在我的環境上，執行不了，有一些內容，需要修改，以下是修改后的內容。
DECLARE
    i       NUMBER;
    j       NUMBER;
    n_sum   NUMBER;
BEGIN
    i := 0;
    n_sum := 0;
    FOR i IN 1..1000 LOOP
        n_sum := 0;
        FOR j IN 1..i - 1 LOOP
            IF
                MOD(i,j) = 0
            THEN
                SELECT
                    n_sum + j
                INTO
                    n_sum
                FROM
                    dual;

            END IF;
        END LOOP;

        IF
            i = n_sum
        THEN
            dbms_output.put_line(i);
        END IF;
    END LOOP;

END;

第二，代碼塊，只有在資料量很大，或者業務邏輯很復雜的情況下，才會用。程式員拼的是邏輯，而不是體力。這個問題，可以通過直接查詢獲取，不需要些代碼塊回圈。
時間有點倉促，沒有仔細看，應該還有優化的余地，供大家分享一下。
以下陳述句，可以查詢到10000以內的完數。
WITH
TAB1 AS (SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= 10000),
TAB2 AS (SELECT T1.L L1,T2.L L2 FROM TAB1 T1 JOIN TAB1 T2 ON MOD(T2.L,T1.L) = 0 AND T2.L > T1.L),
TAB3 AS (SELECT L2,SUM(L1) L1 FROM TAB2 GROUP BY L2)
SELECT L1 FROM TAB3 WHERE L2=L1 ORDER BY 1;

不好意思，這是我手打的，就是有一些關鍵詞并不是標準語法！

轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/39937.html

標籤：基礎和管理

上一篇：oracle怎么用存盤程序計算年齡并且修改年齡

下一篇：ORACLE rman備份之ORA-00230 無法備份控制檔案