The Ada Program: complex.ads

  1 -- complex.adb:  package for complex numbers
  2 
  3 package Complex is
  4 
  5    type Complex_Number is private;
  6 
  7    function "+" (Left, Right: in Complex_Number) return Complex_Number;
  8    function "<" (Left, Right: in Complex_Number) return Boolean;
  9 
 10 
 11 private
 12 
 13    type Complex_Number is record
 14       Real, Imaginary: Float;
 15    end record;
 16 
 17 end Complex;