CREATE OR REPLACE TYPE cerc AS OBJECT (
  raza NUMBER, 
  arie NUMBER,
  -- Se defineste un constructor explicit cu un singur parametru
  CONSTRUCTOR FUNCTION cerc(raza NUMBER) RETURN SELF AS RESULT
);
/

CREATE OR REPLACE TYPE BODY cerc AS
  CONSTRUCTOR FUNCTION cerc(raza NUMBER) RETURN SELF AS RESULT
  AS
  pi CONSTANT number := 3.1415926535897931;
  BEGIN
    SELF.raza := raza;
    SELF.arie := pi*Raza*Raza;
    RETURN;
  END;
END;