52 lines
1007 B
SQL
52 lines
1007 B
SQL
-- ej1
|
|
DECLARE
|
|
a INT := &primer_numero;
|
|
b INT := &segundo_numero;
|
|
BEGIN
|
|
IF a < b THEN
|
|
dbms_output.put_line('ERROR: a > b');
|
|
ELSIF a MOD b = 0 THEN
|
|
dbms_output.put_line('Son divisibles.');
|
|
ELSE
|
|
dbms_output.put_line('No son divisibles.');
|
|
END IF;
|
|
END;
|
|
/
|
|
|
|
-- ej2
|
|
BEGIN
|
|
dbms_output.put_line(TO_CHAR(SYSDATE, 'Day'));
|
|
END;
|
|
/
|
|
|
|
-- ej3
|
|
DECLARE
|
|
numa INT := &primer_numero;
|
|
numb INT := &segundo_numero;
|
|
numc INT := &tercer_numero;
|
|
BEGIN
|
|
IF numa < 0 OR numb < 0 OR numc < 0 THEN
|
|
dbms_output.put_line('Número negativo no aceptable.');
|
|
ELSE
|
|
suma INT := numa + numb + numc;
|
|
dbms_output.put_line(suma);
|
|
END IF;
|
|
END;
|
|
/
|
|
|
|
-- ej4
|
|
DECLARE
|
|
salario NUMBER(2) := &tu_salario;
|
|
BEGIN
|
|
IF salario <= 0 THEN
|
|
dbms_output.put_line('Salario no válido.');
|
|
ELSIF salario < 20000 THEN
|
|
dbms_output.put_line('Tu salario es bajo.');
|
|
ELSIF salario < 40000 THEN
|
|
dbms_output.put_line('Tu salario está bien.');
|
|
ELSIF salario >= 40000 THEN
|
|
dbms_output.put_line('Tu salario está muy bien!');
|
|
END IF;
|
|
END;
|
|
/
|