Ada_Ru форум

А как определить generic параметр, что бы к нему подходили числа и с плавающей и с фиксированной запятой ?

Dmitriy Anisimkov wrote:

 

А как определить generic параметр, что бы к нему подходили числа и с

плавающей и с фиксированной запятой ?

 

Боюсь, никак. Разве что определить его как private, и передавать вместе с

ним всю арифметику и сравнения (если задать значения по умолчанию как <>,

при настройке передавать ничего не придется):

 

generic

type Float_Or_Fixed is private;

with function "+" (L, R : Float_Or_Fixed) return Float_Or_Fixed is <>;

with function "-" (L, R : Float_Or_Fixed) return Float_Or_Fixed is <>;

...

-- а если нужен формальный объект, то:

Float_Or_Fixed_Object : Float_Or_Fixed;

...

Sergey I. Rybin wrote:

Dmitriy Anisimkov wrote:

 

 

А как определить generic параметр, что бы к нему подходили числа и с плавающей и с фиксированной запятой ?

 

 

Разве что определить его как private, и передавать вместе с

ним всю арифметику и сравнения (если задать значения по умолчанию как <>,

Пойдет.