【Ejercicios Resueltos Oracle】Bloques anonimos

Ejercicio Nro 01
Elabore un bloque anónimo que permita calcular el área de un triangulo.
Si el área del triangulo es mayor que 100 que muestre un mensaje de TRIANGULO GRANDE.*/

SET SERVEROUTPUT ON

DECLARE
base Number:=60;
Altura Number:=5;
Area NUMBER;
BEGIN
Area:= base*Altura/2;
DBMS_output.put_line('el area del triangulo es : '||Area);
if (Area>100)THEN
DBMS_OUTPUT.PUT_LINE('TRIANGULO GRANDE');
end if;
end;

Ejercicio Nro 02
Elabore un bloque anónimo que permita calcular el área de un triangulo.
Si el área del triangulo es mayor que 100 que muestre un mensaje indicando TRIANGULO GRANDE, caso contrario que muestre TRIANGULO PEQUEÑO.

DECLARE
b Number:=8;
h Number:=6;
A NUMBER;
BEGIN
A:=b*h/2;
DBMS_OUTPUT.PUT_LINE('el area del triangulo es :'||A);
IF (A>100)THEN
DBMS_OUTPUT.PUT_LINE('TRIANGULO GRANDE :');
ELSE
DBMS_OUTPUT.PUT_LINE('TRIANGULO PEQUEÑO');
END IF;
END;

Ejercicio Nro 03
Elabore un bloque anónimo que permita ingresar la edad de una persona y muestre la etapa de la vida en la cual se encuentra.
0 < edad <=5 preinfancia
5 < edad <=13 ninez
13 < edad <=18 adolescencia
18< edad <=30 juventud
30< edad <=60 adultez
60< edad <=-- ancidad

DECLARE EDAD
number := 20;
BEGIN IF
(EDAD>0 AND EDAD <=5 )
THEN DBMS_OUTPUT.PUT_LINE('ETAPA: PREINFANCIA');
ELSIF (EDAD>5 AND EDAD <=13)
THEN DBMS_OUTPUT.PUT_LINE('ETAPA: NIÑEZ');
 ELSIF (EDAD>13 AND EDAD <=8)
THEN DBMS_OUTPUT.PUT_LINE('ETAPA: ADOLESCENCIA');
 ELSIF (EDAD>18 AND EDAD <=30)
THEN DBMS_OUTPUT.PUT_LINE('ETAPA: JUVENTUD');
ELSIF (EDAD>30 AND EDAD <=60)
THEN DBMS_OUTPUT.PUT_LINE('ETAPA: ADULTEZ');
ELSE DBMS_OUTPUT.PUT_LINE('ETAPA: ANCIANIDAD');
END IF;
 END;

Ejercicio Nro 04
Elabore un bloque anónimo que muestre la serie: 3, 7, 11, 15, 19

Loop DECLARE
Numero number := 3;
contador number := 1;
BEGIN loop
DBMS_OUTPUT.PUT_LINE (Numero);
Numero:=Numero+4;
 contador:=contador+1;
 IF (conta>5 )THEN
exit;
end if;
end loop;
END;

while Loop
DECLARE
Numero number := 3;
conta number := 1;
BEGIN
while (conta<=5)loop
DBMS_OUTPUT.PUT_LINE(Numero);
Numero:=Numero+4;
conta:=conta+1;
end loop;
END;

for loop
declare
numero number:=3;
contador number;
begin
FOR contador in 1 .. 5 LOOP
DBMS_OUTPUT.PUT_LINE(Numero);
numero:=numero+4;
END LOOP;
end;