Anonymous user
Roots of unity: Difference between revisions
m
→{{header|Ada}}: Output formatting
(→{{header|Ada}}: Ada example fixed) |
m (→{{header|Ada}}: Output formatting) |
||
Line 4:
<ada>
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;
with Ada.Numerics.Complex_Types; use Ada.Numerics.Complex_Types;
Line 18 ⟶ 19:
Cycle => Float (N)
);
Put (
Put ("+");
end if;
Put (abs Re (Root), Fore => 1, Exp => 0);
if Im (Root) < 0.0 then
Put ("-");
else
Put ("+");
end if;
Put (abs Im (Root), Fore => 1, Exp => 0);
Put_Line ("i");
end loop;
end loop;
Line 30 ⟶ 41:
<pre style="height:30ex;overflow:scroll">
N = 2
k = 0,
k = 1, -1.
N = 3
k = 0,
k = 1, -
k = 2, -
N = 4
k = 0,
k = 1,
k = 2, -1.
k = 3,
N = 5
k = 0,
k = 1,
k = 2, -
k = 3, -
k = 4,
N = 6
k = 0,
k = 1,
k = 2, -
k = 3, -1.
k = 4, -
k = 5,
N = 7
k = 0,
k = 1,
k = 2, -
k = 3, -
k = 4, -
k = 5, -
k = 6,
N = 8
k = 0,
k = 1,
k = 2,
k = 3, -
k = 4, -1.
k = 5, -
k = 6,
k = 7,
N = 9
k = 0,
k = 1,
k = 2,
k = 3, -
k = 4, -
k = 5, -
k = 6, -
k = 7,
k = 8,
N = 10
k = 0,
k = 1,
k = 2,
k = 3, -
k = 4, -
k = 5, -1.
k = 6, -
k = 7, -
k = 8,
k = 9,
</pre>
|