Re: loop and constraint error

[franke@minet.uni-jena.de (Frank Ecke)]

On Sun, 11 Oct 1998 17:13:09 GMT, Kas_le_chat <kasino@attcanada.net> wrote:

> In this projet I have to get a quantity between 0 and 50.From that
> quantity I have to distribute it in some variables depending on a
> certain range.When i am out of that fiel 0..50 the program end whit
> constraint error, but I nead it to loop to the get variable and dont
> know how to do this.

Try

procedure A is

   Quantity : Float range 0.0 .. 50.0;
   package My_Float_IO is new Ada.Text_IO.Float_IO(Float);
   use My_Float_IO;


begin
   Enter_Quantity :
      loop
         begin
            Put("Enter a value between 0.0 and 50.0 ");
            Get(Quantity);
            exit Enter_Quantity;

         exception
            when Constraint_Error =>
               Put_Line("I SAID BETWEEN 0.0 AND 50.0");
	    when others =>
	       Put_Line("Something else went wrong");
         end;
      end loop Enter_Quantity;
   Put(Quantity);
end A;


Hope this helps.


Frank

--
Frank Ecke <franke@minet.uni-jena.de>


       In a world without walls and fences, who needs windows and gates?