ICA0016 Oracle programmeerimiskeeled SQL ja PLSQL 12. ülesanne (0)

12. Ülesanne    1. Tehke endale koopia tabelist lepikult.koduylesanded. Koostage programm, kustutab tehtud 
koopiast need ülesanded, mis on saadetud „topelt“ – sama üliõpilase poolt sama kursuse ja sama 
numbriga töö kohta. Alles jätke parim tulemus. Kasutage ülesande lahendamiseks kursorit.     CREATE TABLE minu_koduylesanded AS  (SELECT * FROM lepikult.koduylesanded);    SELECT yliopilase_id, kursusekood, too_nr, punktid    FROM minu_koduylesanded    ORDER BY yliopilase_id, kursusekood, too_nr;      DECLARE      CURSOR kodutood IS          SELECT yliopilase_id, kursusekood, too_nr, punktid          FROM minu_koduylesanded k          WHERE k.punktid = (              SELECT MAX(punktid) FROM minu_koduylesanded WHERE yliopilase_id = k.yliopilase_id AND kursusekood = 
k.kursusekood AND too_nr = k.too_nr)          ORDER BY yliopilase_id, kursusekood, too_nr;   


BEGIN      FOR ylesanne IN kodutood LOOP          DELETE FROM minu_koduylesanded          WHERE yliopilase_id = ylesanne.yliopilase_id AND kursusekood = ylesanne.kursusekood AND too_nr = 
ylesanne.too_nr AND punktid != ylesanne.punktid;      END LOOP;  END;    PL/SQL procedure successfully completed.      SELECT yliopilase_id, kursusekood, too_nr, punktid    FROM minu_koduylesanded    ORDER BY yliopilase_id, kursusekood, too_nr;               


2. Koosada programm, mis tabelite lepikult.yliopilased, lepikult.koduylesanded ja lepikult.oppeained 
alusel väljastab iga üliõpilase nime juurde need kursused, mille kohta ta ainsatki kodutööd esitanud ei 
ole.    DECLARE      CURSOR tegemata_ained           (opilase_id lepikult.yliopilased.id%TYPE) IS          SELECT DISTINCT o.nimetus          FROM lepikult.koduylesanded k, lepikult.oppeained o          WHERE k.kursusekood = o.kood AND k.kursusekood NOT IN (  SELECT kursusekood FROM lepikult.koduylesanded WHERE yliopilase_id = opilase_id);    BEGIN      FOR opilane IN (SELECT * FROM lepikult.yliopilased) LOOP          dbms_output.put_line('-----------------------------------------');          dbms_output.put_line(opilane.eesnimi || ' ' || opilane.perenimi);          dbms_output.put_line('Tegemata kursused:');          FOR tegemata_aine IN tegemata_ained(opilane.id) LOOP              dbms_output.put_line('    -  ' || tegemata_aine.nimetus);          END LOOP;          dbms_output.put_line('');      END LOOP;  END;    PL/SQL procedure successfully completed.