Исключение Numeric_Error
Исключение Numeric_Error возбуждается в случае когда предопределенная численная операция не может предоставить математически корректный результат
Это может произойти при арифметическом переполнении, делении на нуль, а также не возможности обеспечить требуемую точность при выполнении операций с плавающей точкой.
Следует заметить, что в Ada95 Numeric_Error переопределена таким образом, что является тем же самым, что и Constraint_Error.
| procedure Numeric_Demo is
X : Integer; Y : Integer; begin X := Integer'Last; Y := X + X; -- вызывает Numeric_Error end Numeric_Demo; |
