Anonymous user
Floyd's triangle: Difference between revisions
m
→{{header|Ada}}: fixed a minor bug
(→{{header|Ada}}: Added Ada version) |
m (→{{header|Ada}}: fixed a minor bug) |
||
Line 23:
Rows: constant Positive := Integer'Value(Ada.Command_Line.Argument(1));
Last_Number:constant Positive := (Rows * (Rows+1)) / 2;
Width: constant Positive := Integer'Image(Last_Number)'Length;▼
Width: array(1 .. Rows) of Positive;
Current: Positive := 1;
begin
for I in Width'Range loop
end loop;
for Line in 1 .. Rows loop
for Column in 1 .. Line loop
Ada.Integer_Text_IO.Put(Current, Width =>
Current := Current + 1;
end loop;
Line 47 ⟶ 52:
> ./floyd_triangle 14
=={{header|D}}==
|