Re: Simple program to find average of 3 numbers

[vashwath@rediffmail.com (prashna)]

> you shoud declare your type "one_to_100" differently... 
> this should work better:
> -------------------------------------------------------
> procedure Average is
> 
>     type One_To_100 is new Integer range 1 .. 100;
> 
>     Obj1,
>     Obj2,
>     Obj3,
>     Avg  : One_To_100;
> 
> begin
>     Obj1 := 70;
>     Obj2 := 70;
>     Obj3 := 70;
>     AVG := (OBJ1+OBJ2+OBJ3)/3;
> end Average;
> 
> -------------------------------------------------------
> 
> you will get a constraint error only when the sum of OBJ1+OBJ2+OBJ3 will
> reach a number higher than the highest permited  value in the Integer 
> type (2**15-1 if iremember well)
> 
> gilles


Thanks every one for the replies.

Among these two type declarations which is better one?In my opinion
declaring a type as derived type of another type (integer in this
case) is better one because the intermediate results of arithmetic
operations will be stored as integer type or Is there any advantage of
declaring a type as just a values within certain range (ex:type
ONE_TO_100 is range 1 .. 100;)?

Thanks