Re: Case statement and Integers.

[Anatoly Chernyshev <rhezusfactor@yahoo.com>]

As usual with the open source, you can modify them at your own risk. This
sample did not assume any usefulness in numbers comparison, it is just to
illustrate use of the case selection.

tmoran@acm.org wrote:

> > pivot:constant integer:=30;
> > begin
> > for j in 1..100 loop
> > numbers(j):=j;
> > case Numbers(J) is
> >     when 1..Pivot - 1 =>      ...
> >     when Pivot + 1 .. 100 =>  ...
> >     when others =>
> > put_line (integer'image (j) & " is equal to " & integer'image(pivot));
> >  end case;
> >  end loop;
> It must be Monday morning.  Insert the line
>   if j = 5 then numbers(j) = 500;end if;
> and you will be surprised to find that " 5 is equal to  30"