L'objet cercle
Creation d'un objet et son utilisation. Simple et efficace. /* || Domain : Oracle Objects & Oracle Types Oracle 8 || Doc : Auto-explicatif || Objet crée, routine qui exemplifie || Radu Caulea, bonjour chez vous ! */ create or replace type cercle as object ( x_pos NUMBEr, y_pos number, rayon number, member function superficie return number ); / create or replace type body cercle IS member function superficie return number is begin return (3.1417*rayon*rayon); end; end; / set serveroutput on /* on ouvre la vanne */ Declare mon_cercle CERCLE; superficie NUMBER; rayon NUMBER; Begin DBMS_OUTPUT.ENABLE(1000000); mon_cercle := cercle(2,3,4); superficie := mon_cercle.superficie; rayon := mon_cercle.rayon; dbms_output.put_line ('Un cercle de rayon ' || to_char(rayon) || ' a une superficie de ' || to_char(superficie)); End; /
Creation d'un objet et son utilisation. Simple et efficace.
/* || Domain : Oracle Objects & Oracle Types Oracle 8 || Doc : Auto-explicatif || Objet crée, routine qui exemplifie || Radu Caulea, bonjour chez vous ! */ create or replace type cercle as object ( x_pos NUMBEr, y_pos number, rayon number, member function superficie return number ); / create or replace type body cercle IS member function superficie return number is begin return (3.1417*rayon*rayon); end; end; / set serveroutput on /* on ouvre la vanne */ Declare mon_cercle CERCLE; superficie NUMBER; rayon NUMBER; Begin DBMS_OUTPUT.ENABLE(1000000); mon_cercle := cercle(2,3,4); superficie := mon_cercle.superficie; rayon := mon_cercle.rayon; dbms_output.put_line ('Un cercle de rayon ' || to_char(rayon) || ' a une superficie de ' || to_char(superficie)); End; /
