GRANT EXECUTE ON lab5 TO PUBLIC;

CREATE OR REPLACE PACKAGE lab5
AS
     PROCEDURE Zad1;
     PROCEDURE Zad2(a IN VARCHAR2, b IN VARCHAR2, c IN VARCHAR2);
END lab5;
/

CREATE OR REPLACE PACKAGE BODY lab5
AS

  PROCEDURE Zad1
IS
BEGIN

  htp.htmlOpen;
  htp.headOpen;
  htp.headClose;
  htp.bodyOpen  ;
  Htp.center(CURRENT_DATE);
     HTP.PRINT('a = '|| 'p_a_txt' || HTF.BR);
     HTP.PRINT('b = '|| 'p_b_txt' || HTF.BR);
  htp.bodyClose;
  htp.htmlClose;
END;


PROCEDURE  Zad2(a IN VARCHAR2, b IN VARCHAR2, c IN VARCHAR2)
IS
  aa NUMBER;
  bb NUMBER;
  cc NUMBER;
  delta NUMBER;
  x1 NUMBER(5,2);
  x2 NUMBER(5,2);
  x0 NUMBER(5,2);
 BEGIN

  -- htp.formText ('a', '10', '10', 'a', '')
  --IF aa IS NUMBER THEN Htp.print('liczba<br>');
  aa:=TO_NUMBER(a);
  bb:=TO_NUMBER(b);
  cc:=TO_NUMBER(c);

  delta:=POWER(bb,2)-4*aa*cc;

  IF delta<0 THEN
    Htp.print('brak pierwiastkow');
  ELSIF delta = 0 THEN
    x0:= (bb*(-1)) / (2*aa);
    Htp.print('delta rowna 0: 1 pierwiastek x0: <br>');
    Htp.print(x0);
  ELSIF delta>0 THEN
   x1 := ((bb*(-1)) - SQRT(delta)) / (2*aa);
   x2 := ((bb*(-1)) + SQRT(delta)) / (2*aa);
   Htp.print('pierwiastek 1: <br>');
   Htp.print(TO_CHAR(x1));
   Htp.print('<br>pierwiastek 2: <br>');
   Htp.print(TO_CHAR(x2)||'<br>');
  END IF;

  EXCEPTION
  WHEN VALUE_ERROR THEN Htp.print('Wprowadzaj tylko liczby<br>');
  WHEN ZERO_DIVIDE THEN Htp.print('Blad dzielenia przez zero<br>');

END;

END lab5;
/