Re: Simple program to find average of 3 numbers

[g_ak <gillesamalkik@videotron.ca>]

prashna wrote:
> Hi friends,
> 
> What is wrong in the following program which is giving constraint error?
> 
> procedure average is 
>    type ONE_TO_100 is range 1 .. 100; 
> 
>    OBJ1,  
>    OBJ2,  
>    OBJ3,  
>    AVG  : ONE_TO_100;  
> begin
>    OBJ1 := 70;
>    OBJ2 := 70;
>    OBJ3 := 70;
>    AVG := OBJ1+OBJ2+OBJ3/3;
> end average;
> 
> 
> Thanks in advance


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