Notes

DECLARE
moyenne NUMBER ;
FUNCTION fn_moyenne(ELNum ELEVE.NUM_ELEVE % TYPE, PErr OUT NUMBER )
RETURN NUMBER IS
moyenne NUMBER;
BEGIN
SELECT AVG(POINTS) INTO moyenne
WHERE NUM_ELEVE=ELNum ; PErr :=0 ;
RETURN moyenne ;
EXCEPTION
WHEN NO_DATA_FOUND THEN PErr :=1 ; RETURN Null ;
END ;
BEGIN
moyenne := fn_moyenne(&Num, VErr) ;
IF VErr = 0
THEN DBMS_ OUTPUT.PUT_LINE('La moyenne est : ' || moyenne)
; ELSE DBMS_ OUTPUT.PUT_LINE('Eleve inexistant') ;
END IF ;
END ;


DECLARE
moyenne NUMBER ;
PROCEDURE pr_resultat (ELNum ELEVE.NUM_ELEVE % TYPE) IS
moyenne NUMBER;
BEGIN
SELECT AVG(POINTS) INTO moyenne
WHERE NUM_ELEVE=ELNum ; PErr :=0 ;
IF moyenne = 0 THEN DBMS_OUTPUT.PUT_LINE( 'FAILURE');
END IF;
IF moyenne > 0 AND moyenne <= 5 THEN DBMS_OUTPUT.PUT_LINE( 'PASSABLE');
END IF;
IF moyenne > 5 AND moyenne <= 10 THEN DBMS_OUTPUT.PUT_LINE( 'PRETTY GOOD');
END IF;
IF moyenne > 10 AND moyenne <= 15 THEN DBMS_OUTPUT.PUT_LINE( 'GOOD');
END IF;
IF moyenne > 15 AND moyenne <= 20 THEN DBMS_OUTPUT.PUT_LINE( 'VERY GOOD');
END IF;
COMMIT ;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE( 'Elelve inexistant') ;
END ;

CREATE OR REPLACE PACKAGE PackResult
Function fn_moyenne(ELNum ELEVE.NUM_ELEVE % TYPE, PErr OUT NUMBER );
Procedure pr_resultat (ELNum ELEVE.NUM_ELEVE % TYPE);
EndPackResult;