--zad1
CREATE OR REPLACE PACKAGE KONWERSJA IS
    FUNCTION CELS_TO_FAHR(v_liczba NUMBER) RETURN NUMBER;
    FUNCTION FAHR_TO_CELS(v_liczba NUMBER) RETURN NUMBER;
END KONWERSJA;
/

CREATE OR REPLACE PACKAGE BODY KONWERSJA IS
    FUNCTION CELS_TO_FAHR(v_liczba NUMBER) RETURN NUMBER IS
        v_tf NUMBER;
        BEGIN
            v_tf := 9/5 * v_liczba + 32;
            return v_tf;
        END CELS_TO_FAHR;

    FUNCTION FAHR_TO_CELS(v_liczba NUMBER) RETURN NUMBER IS
        v_tc NUMBER;
        BEGIN
            v_tc :=  5/9 * (v_liczba - 32);
            return v_tc;
        END FAHR_TO_CELS;
END KONWERSJA;
/

SELECT KONWERSJA.FAHR_TO_CELS(212) AS CELSJUSZ FROM DUAL;
SELECT KONWERSJA.CELS_TO_FAHR(0) AS FAHRENHEIT FROM DUAL;

--zad2
CREATE OR REPLACE PACKAGE ZMIENNE IS
    PROCEDURE ZwiekszLicznik;
    PROCEDURE ZmniejszLicznik;
    FUNCTION PokazLicznik RETURN NUMBER;
END ZMIENNE;
/

CREATE OR REPLACE PACKAGE BODY ZMIENNE IS
    vLicznik NUMBER :=0;
    PROCEDURE ZwiekszLicznik IS
        BEGIN
            vLicznik := vLicznik + 1;
            dbms_output.put_line('Zwiekszono!');
        END ZwiekszLicznik;
    PROCEDURE ZmniejszLicznik IS
        BEGIN
            vLicznik := vLicznik - 1;
            dbms_output.put_line('Zmniejszono!');
        END ZmniejszLicznik;
    FUNCTION PokazLicznik RETURN NUMBER IS
        BEGIN
            RETURN vLicznik;
        END PokazLicznik;
    BEGIN
    vLicznik :=1;
END ZMIENNE;
/
set serveroutput on
/
begin
 dbms_output.put_line(Zmienne.PokazLicznik);
 end;
 /
 begin
 Zmienne.ZwiekszLicznik;
 dbms_output.put_line(Zmienne.PokazLicznik);
 Zmienne.ZwiekszLicznik;
 dbms_output.put_line(Zmienne.PokazLicznik);
 end;
 /
 begin
 dbms_output.put_line(Zmienne.PokazLicznik);
 Zmienne.ZmniejszLicznik;
 dbms_output.put_line(Zmienne.PokazLicznik);
 end;
 /

--zad3
CREATE OR REPLACE PROCEDURE IleRekordow (rel VARCHAR) IS
    vRekordow NUMBER :=0;
    sql_stmt VARCHAR(250);
BEGIN
    sql_stmt := 'SELECT COUNT(*) FROM ' || rel;
    EXECUTE IMMEDIATE sql_stmt INTO vRekordow;
    dbms_output.put_line('Liczba rekordow relacji '||  rel || ': ' || vRekordow);
END;
/

begin
 IleRekordow('PRACOWNICY');
 IleRekordow('ZESPOLY');
 end;

--zad4
CREATE OR REPLACE PACKAGE MODYFIKACJE IS
    PROCEDURE DodajKolumne(relacja VARCHAR, kolumna VARCHAR,typ VARCHAR);
    PROCEDURE UsunKolumne(relacja VARCHAR, kolumna VARCHAR);
    PROCEDURE ZmienTypKolumny(relacja VARCHAR, kolumna VARCHAR,typ VARCHAR, dane VARCHAR);
END MODYFIKACJE;
/

CREATE OR REPLACE PACKAGE MODYFIKACJE IS

END MODYFIKACJE;