1.

SET SERVEROUTPUT ON
SET VERIFY OFF

DECLARE
type equirec is record
(v_nombre equipo.equinombre%type,
v_ciudad equipo.equiciudad%type,
v_division division.divnombre%type,
v_pg estadistica.estpg%type,
v_pe estadistica.estpe%type,
v_pp estadistica.estpp%type);

v_equip equirec;

BEGIN
select e.equinombre, e.equiciudad, d.divnombre, es.estpg, es.estpe, es.estpp
into v_equip
from equipo e, division d, estadistica es
where e.divid=d.divid and e.equiid=es.equiid and equinombre='&equi';
DBMS_OUTPUT.PUT_LINE(v_equip.v_nombre || '-' ||
v_equip.v_ciudad || '-' || v_equip.v_division || '-' ||
v_equip.v_pg || '-' ||v_equip.v_pe || '-' ||
v_equip.v_pp || '-' || );

EXCEPTION

WHEN NO_DATA_FOUND then
DBMS_OUTPUT.PUT_LINE('Equipo inexistente);

END;
/

2.

DECLARE
cont number:=0;
v_names equipo.equinombre%type;
BEGIN
for v_name in (select e.equinombre from estadistica s, equipo e where estpg>8 and e.equiid=s.equiid) loop
v_names:= v_name.equinombre;
dbms_output.put_line(v_name.equinombre);
end loop;
end;

3.

PROCEDURE Consultar_Peores_Equipos(v_numero IN NUMBER)
IS
CURSOR c_consulta IS
SELECT equinombre, estpg, estpe, estpp, estpuntosafavor, estpuntosencontra
FROM equipo eq, estadistica es
WHERE eq.equiid = es.equiid
ORDER BY estpg , estpe , estpp DESC, estpuntosencontra DESC;

regist c_consulta%ROWTYPE;

v_cont NUMBER := 1;
BEGIN
OPEN c_consulta;
FETCH c_consulta INTO regist;

IF C_CONSULTA%NOTFOUND THEN
DBMS_OUTPUT.PUT_LINE('NONES');
END IF;

DBMS_OUTPUT.PUT_LINE('LOS '|| v_numero || ' peores equipos de la NFL son: ' || CHR(10));

WHILE c_consulta%FOUND AND v_cont<=v_numero LOOP
DBMS_OUTPUT.PUT_LINE('Equipo : '||regist.equinombre);
DBMS_OUTPUT.PUT_LINE('PG : '||regist.estpg);
DBMS_OUTPUT.PUT_LINE('PE : '||regist.estpe);
DBMS_OUTPUT.PUT_LINE('PP : '||regist.estpp);
DBMS_OUTPUT.PUT_LINE('Ptos F : '||regist.estpuntosafavor);
DBMS_OUTPUT.PUT_LINE('Ptos C : '||regist.estpuntosencontra);
DBMS_OUTPUT.PUT_LINE(CHR(10));

FETCH c_consulta INTO regist;
v_cont := v_cont + 1;
END LOOP;
CLOSE c_consulta;
END Consultar_Peores_Equipos;

DBMS_OUTPUT.PUT_LINE(v_equip.v_nombre);

EXCEPTION

when NO_DATA_FOUND then
DBMS_OUTPUT.PUT_LINE('EQUIPO NO EXISTE');

END;
/