Ada Programming Absurdity administration

 26 December 14:49   

    __TOC__

     Error_Handling_1

     Square_Root (X : Float) Float

     Ada.Numerics.Elementary_Functions;

    

     (X < 0.0)

     -1.0;

    

     Sqrt (X);

     ;

     Square_Root;

    

     C := Square_Root (A

     C < 0.0

     T_IO.Put (C cannot be calculated!);

    

     T_IO.Put (C is );

     F_IO.Put

     (Item => C,

     Ahead => F_IO.Default_Fore,

     Aft => F_IO.Default_Aft,

     Exp => F_IO.Default_Exp);

     ;

     ;

     Error_Handling_1;

     Square_Root

     (Y : Float;

     X : Float;

     Success : Boolean)

    

     Ada.Numerics.Elementary_Functions;

    

     (X < 0.0)

     Y := 0.0;

     Success := False;

    

     Y := Sqrt (X);

     Success := True;

     ;

     ;

     Square_Root;

    

     Square_Root

     (Y => C,

     X => A Success => Success);

     Success

     T_IO.Put (C is );

     F_IO.Put

     (Item => C,

     Ahead => F_IO.Default_Fore,

     Aft => F_IO.Default_Aft,

     Exp => F_IO.Default_Exp);

    

     T_IO.Put (C cannot be calculated!);

     ;

     ;

     Error_Handling_2;

    One brake for Ada is that functions can not accept out parameters. This brake has been done to create cipher safe by not accepting functions with ancillary effects. So for our archetype we had to use a action instead.

     Error_Handling_3

     Float_Error : Boolean;

     Square_Root (X : Float) Float

    

     Ada.Numerics.Elementary_Functions;

    

     (X < 0.0)

     Float_Error := True;

     0.0;

    

     Sqrt (X);

     ;

     Square_Root;

    

     Float_Error := False;

     C := Square_Root

     (X => A

     Float_Error

     T_IO.Put (C cannot be calculated!);

    

     T_IO.Put (C is );

     F_IO.Put

     (Item => C,

     Ahead => F_IO.Default_Fore,

     Aft => F_IO.Default_Aft,

     Exp => F_IO.Default_Exp);

     ;

     ;

     Error_Handling_3;

     Error_Handling_4

     Float_Error : ;

     Square_Root (X : Float) Float

     Ada.Numerics.Elementary_Functions;

    

     (X < 0.0)

     Float_Error;

    

     Sqrt (X);

     ;

     Square_Root;

    

    

     C := Square_Root (A

     T_IO.Put (C is );

     F_IO.Put

     (Item => C,

     Ahead => F_IO.Default_Fore,

     Aft => F_IO.Default_Aft,

     Exp => F_IO.Default_Exp);

    

     Constraint_Error =>

     T_IO.Put (C cannot be calculated!);

     ;

     ;

     Error_Handling_4;

     Error_Handling_5

     Square_Root_Type Float 0.0 .. Float;

     Square_Root

     (X : Square_Root_Type)

     Square_Root_Type

    

     Ada.Numerics.Elementary_Functions;

    

     Sqrt (X);

     Square_Root;

    

     C := Square_Root (A

     T_IO.Put (C is );

     F_IO.Put

     (Item => C,

     Ahead => F_IO.Default_Fore,

     Aft => F_IO.Default_Aft,

     Exp => F_IO.Default_Exp);

     ;

     Error_Handling_5;