The Ada Program: block.adb

  1 -- block.adb:  an Ada block using exception handling for input errors
  2 
  3 Input:  begin
  4 
  5    Float_IO.Get (Price);
  6    Float_IO.Get (Tax_Rate);
  7    Tax := Tax_Rate * Price;
  8 
  9 exception
 10 
 11    when Text_IO.Data_Error | Constraint_Error =>
 12       Text_IO.Put_Line ("Invalid data."):
 13 
 14    when Text_IO.Device_Error =>
 15       Text_IO.Put_Line ("Hardware error."):
 16 
 17 end Input;