From Wikibooks, the open-content textbooks collection
[edit] Operator
[edit] Standard Operations
[edit] Arithmetic Power of
The "**" operator is defined as arithmetic power of for all numeric types.
function "**" (Left : T; Right : Integer) return T;
A : constant Float := 5.0 ** 2; -- A is now 25.0
B : constant Integer := 5 ** 2; -- B is also 25
[edit] Working Example
with Ada.Text_IO;
procedure Operator_Power is
A : constant Float := 5.0 ** 2; -- A is now 25.0
B : constant Integer := 5 ** 2; -- B is also 25
package T_IO renames Ada.Text_IO;
package F_IO is new Ada.Text_IO.Float_IO (Float);
package I_IO is new Ada.Text_IO.Integer_IO (Integer);
begin
T_IO.Put ("A = ");
F_IO.Put (
Item => A,
Fore => 3,
Aft => 1,
Exp => 0);
T_IO.New_Line;
T_IO.Put ("B = ");
I_IO.Put (
Item => B,
Width => 3,
Base => 10);
T_IO.New_Line;
end Operator_Power;
[edit] See also
[edit] Wikibook
[edit] Ada 95 Reference Manual
[edit] Ada 2005 Reference Manual
