OverL0rk
commented
18 hours ago Habilitar la salida de DBMS_OUTPUT SET SERVEROUTPUT ON;
DECLARE -- Constantes CONSTANT VP_NOMBRE CONSTANT VARCHAR2(50) := 'Juan Pérez'; CONSTANT VP_DEPARTAMENTO CONSTANT VARCHAR2(50) := 'Finanzas'; CONSTANT VP_LOCALIDAD CONSTANT VARCHAR2(50) := 'Oficina Principal, Ciudad Central';
CONSTANT PRESIDENTE_NOMBRE CONSTANT VARCHAR2(50) := 'Carlos Gómez'; CONSTANT PRESIDENTE_SALARIO CONSTANT NUMBER := 120000; CONSTANT PRESIDENTE_CIUDAD CONSTANT VARCHAR2(30) := 'Santo Domingo'; CONSTANT PRESIDENTE_PROVINCIA CONSTANT VARCHAR2(30) := 'Distrito Nacional'; CONSTANT PRESIDENTE_PAIS CONSTANT VARCHAR2(30) := 'República Dominicana';
-- Procedimiento para elevar un número a la potencia de 2 PROCEDURE calcular_potencia_2(numero IN NUMBER) IS resultado NUMBER; BEGIN resultado := POWER(numero, 2); DBMS_OUTPUT.PUT_LINE('1. El número ' || numero || ' elevado a la potencia de 2 es: ' || resultado); END calcular_potencia_2;
-- Procedimiento para imprimir la fecha actual PROCEDURE imprimir_fecha_actual IS fecha_actual DATE; BEGIN fecha_actual := SYSDATE; DBMS_OUTPUT.PUT_LINE('2. La fecha actual del sistema es: ' || TO_CHAR(fecha_actual, 'DD-MM-YYYY HH24:MI:SS')); END imprimir_fecha_actual;
-- Procedimiento para concatenar dos variables PROCEDURE concatenar_variables(var1 IN VARCHAR2, var2 IN VARCHAR2) IS concatenado VARCHAR2(40); BEGIN concatenado := var1 || ' ' || var2; DBMS_OUTPUT.PUT_LINE('3. La concatenación es: ' || concatenado); END concatenar_variables;
-- Procedimiento para imprimir la información de un Vicepresidente Ejecutivo PROCEDURE imprimir_vicepresidente IS BEGIN DBMS_OUTPUT.PUT_LINE('4. Vicepresidente Ejecutivo: ' || VP_NOMBRE); DBMS_OUTPUT.PUT_LINE(' Departamento: ' || VP_DEPARTAMENTO); DBMS_OUTPUT.PUT_LINE(' Localidad: ' || VP_LOCALIDAD); END imprimir_vicepresidente;
-- Procedimiento para imprimir la información del Presidente PROCEDURE imprimir_presidente IS BEGIN DBMS_OUTPUT.PUT_LINE('5. Presidente: ' || PRESIDENTE_NOMBRE); DBMS_OUTPUT.PUT_LINE(' Salario: ' || PRESIDENTE_SALARIO); DBMS_OUTPUT.PUT_LINE(' Ubicación: ' || PRESIDENTE_CIUDAD || ', ' || PRESIDENTE_PROVINCIA || ', ' || PRESIDENTE_PAIS); END imprimir_presidente;
BEGIN -- Llamar a los procedimientos en secuencia calcular_potencia_2(5); -- Puedes cambiar el valor 5 si deseas otro número imprimir_fecha_actual; concatenar_variables('Hola', 'Mundo'); imprimir_vicepresidente; imprimir_presidente;
EXCEPTION -- Manejo general de errores WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE('Ha ocurrido un error: ' || SQLERRM); END; /
1.Realice un programa PL-SQL declarando un variable contenedora del numeral que será elevando a la potencia de 2. guarde el resultado en una variable resultante e imprímalo por pantalla. 2.Realice un programa PLSQL que imprima la fecha actual del sistema por pantalla. 3.Realice un programa que concatene 2 variables y los imprima por pantalla. 4.Realice un programa que imprima uno de los Vicepresidentes ejecutivos de la empresa, el departamento al que pertenece, el nombre y la localidad donde se encuentra. 5.Realice un programa que imprima el presidente de la empresa, nombre, salario y ubicación(ciudad, provincia y país) de su oficina.