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

Ülesanne 11    1. Kirjutage PL/SQL-programm, mis leiab tabelist kandidaadid, mitu inimest on sündinud 1982. a. 1. 
kuus, 1982. a. 2. kuus jne. kuni 1984.a. 12. kuus  --- ylesanne11-1.psql ----  
SET SERVEROUTPUT ON 
declare 
  alates_aasta constant integer := 82;    kuni_aasta constant integer := 84;    alates_kuu constant integer := 1;    kuni_kuu constant integer := 12;    tudengite_arv integer;  begin 
  for aasta in alates_aasta .. kuni_aasta loop      for kuu in alates_kuu .. kuni_kuu loop        select count(*) into tudengite_arv from scott.kandidaadid        where substr(ID,2,2) = aasta and substr(ID,4,2) = kuu;    dbms_output.put_line('19' || aasta || '. a. ' || kuu || '. kuus on sündinud ' || 
tudengite_arv || ' kandidaati.');      end loop;    end loop;  end; 
/ 
--- ylesanne11-1.psql ----  
 
START C:\Users\kasutaja\Desktop\ylesanne11-1.psql     


2. Kasutage asendusmuutujaid (accept-lausete abil) ning sisestage uue kandidaadi isikukood, ees- ja 
perenimi ning kolme eksami tulemused.   Koostada progamm, mis sisestab uue kandidaadi tabelisse kandidaadid juhul kui   1) sellise isikukoodiga kandidaati ei ole tabelis;   2) sisestatud ID-kood on õige pikkusega (11 sümbolit) ja sisaldab ainult numbreid;   3) Eksamitulemused on täisarvud vahemikus 0 – 100.   Vigase sisestamiskatse korral väljastage vastav teade.  CREATE TABLE minu_kandidaadid AS 
(SELECT * FROM scott.kandidaadid);  
  --- ylesanne11-2.psql ---- 
SET SERVEROUTPUT ON 
accept eesnimi prompt 'Eesnimi: ' 
accept perenimi prompt 'Perenimi: ' 
accept isikukood prompt 'Isikukood: ' 
accept matemaatika prompt 'Matemaatika eksami tulemus: ' 
accept voorkeel prompt 'Voorkeele eksami tulemus: ' 
accept emakeel prompt 'Emakeele eksami tulemus: ' 
 
declare 
  kokku integer;  begin 
    if length('&isikukood') != 11 or 
    LENGTH(TRIM(TRANSLATE('&isikukood', '0123456789', ' '))) > 0 then 
    dbms_output.put_line('Sisestatud isikukood on vigane! (Isikukood peab olema 11 sümbolit pikk  ja tohib sisaldada ainult numbreid)'); 
    goto lopp;    end if;       
  select count(*) into kokku from minu_kandidaadid where ID = '&isikukood';    if kokku > 0 then      dbms_output.put_line('Sisetatud isikukoodiga ' || '&isikukood' || ' kandidaat on juba olemas!');      goto lopp;    end if;   
  if &matemaatika < 0 or &matemaatika > 100 or    &voorkeel < 0 or &voorkeel > 100 or    &emakeel < 0 or &emakeel > 100 then      dbms_output.put_line('Eksamitulemused peavad olema täisarvud vahemikus 0 – 100!');      goto lopp;    end if;   
  insert into minu_kandidaadid    values('&eesnimi', '&perenimi', '&isikukood', &matemaatika, &voorkeel, &emakeel);      dbms_output.put_line('Andmed korras. Uus kandidaat sisestatud!'); 
 
 


<> 
null; 
end; 
/ 
--- ylesanne11-2.psql ----  
  START C:\Users\kasutaja\Desktop\ylesanne11-2.psql    1)  Proovin sisestada kandidaati, kelle isikukood on juba tabelis olemas        2)  Proovin sisestada vigast isikukoodi      3)  Proovin sisestada vale eksamitulemust