CREATE OR REPLACE FUNCTION f_fact(n IN NUMBER)
RETURN NUMBER
IS
    facto NUMBER := 1; -- Initialisation de la variable pour stocker la factorielle
    est_negative EXCEPTION; -- Exception personnalisée pour les nombres négatifs
BEGIN
    -- Vérifier si le nombre est négatif
    IF n < 0 THEN
        RAISE est_negative; -- Lever l'exception si le nombre est négatif
    END IF;

    -- Calcul de la factorielle avec une boucle FOR
    FOR i IN 1..n LOOP
        facto := facto * i;
    END LOOP;

    -- Retourner la valeur calculée
    RETURN facto;

EXCEPTION
    WHEN est_negative THEN
        -- Gestion de l'exception pour les nombres négatifs
        DBMS_OUTPUT.PUT_LINE('Attention ! Vous avez entré un nombre négatif.');
        RETURN NULL; -- Retourner NULL en cas d'erreur
    WHEN OTHERS THEN
        -- Gestion des autres exceptions
        DBMS_OUTPUT.PUT_LINE('Erreur inattendue : ' || SQLERRM);
        RETURN NULL; -- Retourner NULL en cas d'erreur
END f_fact;
/

-- Tester la fonction
BEGIN
    DBMS_OUTPUT.PUT_LINE('Factorielle de 5 : ' || f_fact(5)); -- Exemple avec un nombre positif
    DBMS_OUTPUT.PUT_LINE('Factorielle de -3 : ' || f_fact(-3)); -- Exemple avec un nombre négatif
END;
/
DECLARE 
    MOY NUMBER; -- Pour stocker la moyenne des salaires
    s NUMBER := 0; -- Variable pour accumuler la somme des salaires
    v_sal employees.salary%TYPE; -- Variable pour stocker un salaire
    emp_curs SYS_REFCURSOR; -- Curseur pour sélectionner les salaires

BEGIN
    -- Ouvrir le curseur
    OPEN emp_curs FOR 
        SELECT salary 
        FROM employees 
        WHERE dept_employees = 20 OR dept_employees = 90;
    
    -- Boucle pour parcourir les salaires
    LOOP
        -- Récupérer chaque salaire dans v_sal
        FETCH emp_curs INTO v_sal;
        
        -- Sortir de la boucle si le curseur n'a plus de lignes
        EXIT WHEN emp_curs%NOTFOUND;
        
        -- Accumuler la somme des salaires
        s := s + v_sal.salary;
    END LOOP;

    -- Calculer la moyenne si des salaires ont été trouvés
    IF emp_curs%ROWCOUNT > 0 THEN
        MOY := s / emp_curs%ROWCOUNT;
        DBMS_OUTPUT.PUT_LINE('La moyenne des salaires est : ' || MOY);
    ELSE
        DBMS_OUTPUT.PUT_LINE('Aucun salaire trouvé pour les départements spécifiés.');
    END IF;

    -- Fermer le curseur
    CLOSE emp_curs;

END;
/