Ejemplos de pl/sql

EJEMPLO UNO:

En este ejemplo se trata de  tres números ingresados por  una persona  entre 1 y  6 representando los números de tres dados y da una sentencia  de condición para decir según el numero  de 6 que aparezcan al lanzarlos cual es su  calificación.

DECLARE

A NUMBER:=:DIGITE_NUMEROUNO;

B NUMBER:=:DIGITE_NUMERODOS;

C NUMBER:=:DIGITE_NUMEROTRES;

BEGIN

IF(A=6 AND B=6 AND C=6) THEN

DBMS_OUTPUT.PUT_LINE('EXCELENTE');

ELSIF(A=6 AND B=6) THEN

DBMS_OUTPUT.PUT_LINE('BIEN');

ELSIF(A=6 AND C=6) THEN

DBMS_OUTPUT.PUT_LINE('BIEN');

ELSIF(B=6 AND C=6) THEN

DBMS_OUTPUT.PUT_LINE('BIEN');

ELSIF(A=6 OR B=6 OR C=6) THEN

DBMS_OUTPUT.PUT_LINE('REGULAR');

ELSE

DBMS_OUTPUT.PUT_LINE('MALO');

END IF;

END;