 |  | intege_functio |  |
 |  | inte_funct.ads |  |
 | inte_funct.adb |
|  | maths | |
| | intege_functio | |
| intege_vectors | ||
| real_functions | ||
| real_numbers | ||
| real_vectors | ||
| vectors | ||
| test_maths.adb |
| | util | |
|  | hash_tables/ | |
| heaps/ | ||
| images/ | ||
| lists/ | ||
| maths/ | ||
| messages/ | ||
| pipes/ | ||
| primes/ | ||
| readers/ | ||
| strings/ | ||
| writers/ |
| | ada | |
| | bin/ | |
| engine/ | ||
| fonts/ | ||
| internal/ | ||
| text/ | ||
| util/ |
|  | Home | |
|  | Showcase | |
 | Snapshots | ||
 | Ada Source | ||
 | PHP Source | ||
 | Fonts |
|  | Sourceforge | |
|  | Summary | |
 | Downloads | ||
 | Browse CVS | ||
 | Donate | ||
 | Activity |
Hosted by
-- $Date: 2004/02/02 09:03:50 $
-- $Revision: 1.3 $
-- $Author: jcrocholl $
with Real_Numbers; use Real_Numbers;
with Real_Functions; use Real_Functions;
with Integer_Strings; use Integer_Strings;
package body Integer_Functions is
-- Convert a number to a string.
function To_String
(This : in Integer; -- Convert this number.
Tolerance : in Integer) -- Tolerance level.
return String is -- The string representation.
begin
return To_String(This);
end To_String;
function Sqrt
(Value : in Integer)
return Integer is
begin
return Integer(Sqrt(Real(Value)));
end Sqrt;
end Integer_Functions;