DROP TABLE PRACOWNIK;
CREATE TABLE pracownik(
ID_PRACOWNIK NUMBER(6) PRIMARY KEY,
IMIE VARCHAR2(25),
NAZWISKO VARCHAR2(25),
MIEJSCOWOSC VARCHAR2(30),
PESEL NUMBER(11)
);
INSERT INTO PRACOWNIK VALUES(1,'BARBARA','WOJCIK','PCIM',12345678901);
INSERT INTO PRACOWNIK VALUES(2,'WOJCIECH','KOWALSKI','ZALESIE',12345678902);
INSERT INTO PRACOWNIK VALUES(3,'MICHAL','NIESPIELAK','CHELM',12345678903);
INSERT INTO PRACOWNIK VALUES(4,'ZBIGNIEW','RADOMIAK','PLOCK',12345678904);
INSERT INTO PRACOWNIK VALUES(5,'KRZYSZTOF','BUGAJSKI','TORUN',12345678905);


--1
CREATE OR REPLACE PROCEDURE CW5_1 IS
    DATA VARCHAR2(100);
BEGIN
    SELECT TO_CHAR(SYSDATE,'DD/MM/RRRR HH24:MI:SS') INTO DATA FROM DUAL;
    HTP.HTMLOPEN;
        HTP.HEADOPEN;
            HTP.TITLE('CW5_1');
        HTP.HEADCLOSE;
        HTP.BODYOPEN;
            HTP.CENTEROPEN;
                HTP.HEADER(3,' DATA:');
                HTP.BR;
                HTP.PRINT(DATA);
            HTP.CENTERCLOSE;
        HTP.BODYCLOSE;
    HTP.HTMLCLOSE;
END;


--2
CREATE OR REPLACE PROCEDURE CW5_2 IS
    X NUMBER(10);
    Y NUMBER(10);
    Z NUMBER(10);
BEGIN
    HTP.HTMLOPEN;
        HTP.HEADOPEN;
            HTP.TITLE('CW5_2');
        HTP.HEADCLOSE;
        HTP.BODYOPEN;
            HTP.CENTEROPEN;
                HTP.FORMOPEN('CW5_2_ROWNANIE_KWADRATOWE','GET');
                    HTP.PRINT('PODAJ PARAMETRY ROWNANIA');
                    HTP.BR;
                    HTP.PRINT('X:');
                    HTP.FORMTEXT('X');
                    HTP.BR;
                    HTP.PRINT('Y:');
                    HTP.FORMTEXT('Y');
                    HTP.BR;
                    HTP.PRINT('Z:');
                    HTP.FORMTEXT('Z');
                    HTP.BR;
                    HTP.FORMSUBMIT(NULL,'WYNIK',NULL);
                HTP.FORMCLOSE;
            HTP.CENTERCLOSE;
        HTP.BODYCLOSE;
    HTP.HTMLCLOSE;
END;







CREATE OR REPLACE PROCEDURE CW5_2_ROWNANIE_KWADRATOWE(X VARCHAR2, Y VARCHAR2, Z VARCHAR2) IS
    DELTA NUMBER(10,2);
    R1 NUMBER(10,2);
    R2 NUMBER(10,2);
    ILOSC_ROZWIAZAN NUMBER(1);
    BLAD EXCEPTION;
BEGIN
    IF X IS NULL OR Y IS NULL OR Z IS NULL THEN RAISE BLAD;
    END IF;
    DELTA:= POWER(Y,2)-(4*X*Z);
    IF DELTA < 0 THEN ILOSC_ROZWIAZAN := 0;

    END IF;
    IF DELTA = 0 THEN ILOSC_ROZWIAZAN := 1;
        R1 := -Y/2*X;
    END IF;
    IF DELTA > 0 THEN ILOSC_ROZWIAZAN := 2;
        R1 := (-Y-SQRT(DELTA))/(2*X);
        R2 := (-Y+SQRT(DELTA))/(2*X);
    END IF;
    HTP.HTMLOPEN;
        HTP.HEADOPEN;
            HTP.TITLE('CW5_2');
        HTP.HEADCLOSE;
        HTP.BODYOPEN;
            HTP.CENTEROPEN;
                IF ILOSC_ROZWIAZAN = 0 THEN
                    HTP.PRINT('DELTA UJEMNA. BRAK ROZWIAZAN RZECZYWISTYCH');
                END IF;
                IF ILOSC_ROZWIAZAN = 1 THEN
                    HTP.PRINT('JEDNO ROZWIAZANIE');
                    HTP.BR;
                    HTP.PRINT('R = ' || R1);
                    HTP.BR;
                    HTP.ANCHOR('CW5_2','POWROT.',NULL,NULL);
                END IF;
                IF ILOSC_ROZWIAZAN = 2 THEN
                    HTP.PRINT('DWA ROZWIANIA');
                    HTP.BR;
                    HTP.PRINT('R1 = ' || R1);
                    HTP.BR;
                    HTP.BR;
                    HTP.PRINT('R2 = ' || R2);
                    HTP.BR;
                    HTP.ANCHOR('CW5_2','POWROT.',NULL,NULL);
                END IF;
            HTP.CENTERCLOSE;
        HTP.BODYCLOSE;
    HTP.HTMLCLOSE;
    EXCEPTION
        WHEN BLAD THEN
            HTP.BOLD('BRAK PARAMETRU NULL!');
            HTP.BR;
            HTP.ANCHOR('CW5_2','POWROT',NULL,NULL);
        WHEN OTHERS THEN
            HTP.BOLD('ANOTHER ERROR!');
            HTP.BR;
            HTP.ANCHOR('CW5_2','POWROT',NULL,NULL);
END;
 --3

CREATE OR REPLACE PROCEDURE CW5_3 IS
BEGIN
    HTP.HTMLOPEN;
      HTP.HEADOPEN;
        HTP.TITLE('CW5_3');
      HTP.HEADCLOSE;
      HTP.BODYOPEN;
        HTP.CENTEROPEN;
          HTP.TABLEOPEN('border="1"');
            HTP.TABLEHEADER('ID_PRACOWNIK');
            HTP.TABLEHEADER('IMIE');
            HTP.TABLEHEADER('NAZWISKO');
            HTP.TABLEHEADER('MIEJSCOWOSC');
            HTP.TABLEHEADER('PESEL');
          FOR M IN (SELECT * FROM PRACOWNIK) LOOP
            HTP.TABLEROWOPEN;
            HTP.TABLEDATA(M.ID_PRACOWNIK);
            HTP.TABLEDATA(M.IMIE);
            HTP.TABLEDATA(M.NAZWISKO);
            HTP.TABLEDATA(M.MIEJSCOWOSC);
            HTP.TABLEDATA(M.PESEL);
            HTP.TABLEROWCLOSE;
        END LOOP;
        HTP.TABLECLOSE;
        HTP.CENTERCLOSE;
      HTP.BODYCLOSE;
    HTP.HTMLCLOSE;
    EXCEPTION
        WHEN OTHERS THEN HTP.PRINT('ANOTHER ERROR');
END;