Re: assignments using different types

[tmoran@bix.com]

>   Velocity := Velocity_Type(float(Distance) / float(Time));
>Can anyone provide me with suggestions to improve the readability
>of the above assignment?  Of course, I'd like efficiency to be

  How about creating

function "/"(Distance : in Distance_Type;
             Time     : in Time_Type)
return Velocity_Type is
begin
  return Velocity_Type(float(Distance) / float(Time));
end "/";

  and then you will be able to write

Velocity := Distance / Time;

(Actually, your current statement is quite readable - though tedious
to write.)