Anonymous

--oppgave 1:SET SERVEROUTPUT ONBEGIN  DBMS_OUTPUT.PUT_LINE('We will not use Hellow World');END;/--oppgave 2a:CREATE OR REPLACE FUNCTION f_snittkarakterRETURN NUMBERIS  v_fnavn VARCHAR2(30) := 'PROG';  i_snitt INTEGER(5,2) := 0;BEGIN  SELECT AVG(e.karakter) INTO i_snitt    FROM eksamen e, fag f    WHERE e.fnr = f.fnr    AND f.fnavn = v_fnavn;  RETURN i_snitt;END;/SELECT f_snittkarakter FROM dual;--oppgave 2b:DECLARE  v_fnavn VARCHAR2(30);  i_snitt INTEGER(5,2);BEGIN  v_fnavn := 'PROG';  i_snitt := f_snittkarakter();  DBMS_OUTPUT.PUT_LINE('Snittkarakteren i faget ' || v_fnavn || ' er: ');  DBMS_OUTPUT.PUT_LINE( i_snitt );  DBMS_OUTPUT.PUT_LINE( 'Dagens dato er: ' || SYSDATE() );END;--oppgave 2c:VARIABLE v_fnavn VARCHAR2(30)BEGIN  :v_fnavn := 'DB';END; /DECLAREi_snitt INTEGER(5,2);BEGIN  SELECT AVG(karakter) INTO i_snitt FROM eksamen     WHERE fnr = ( SELECT fnr FROM fag WHERE fnavn = :v_fnavn );  DBMS_OUTPUT.PUT_LINE( i_snitt );END;/--oppgave 2d:CREATE OR REPLACE FUNCTION f_snittkarakter2( v_fnavn VARCHAR )RETURN NUMBERISi_snitt INTEGER(5,2);BEGIN  SELECT AVG( karakter ) INTO i_snitt    FROM eksamen     WHERE fnr = ( SELECT fnr FROM fag WHERE fnavn = v_fnavn );  RETURN i_snitt;END;/SELECT f_snittkarakter2( 'PROG' ) FROM dual;--oppgave 3CREATE OR REPLACE FUNCTION dato( p_dager NUMBER )RETURN DATEIS  d_dagensdato DATE := SYSDATE;  d_nydato DATE;BEGIN  d_nydato := d_dagensdato + p_dager;  RETURN d_nydato;END;/SELECT dato( 31 ) FROM dual;