Floyd's triangle: Difference between revisions
Content deleted Content added
Line 21: | Line 21: | ||
procedure Floyd_Triangle is |
procedure Floyd_Triangle is |
||
Rows: |
Rows: constant Positive := Integer'Value(Ada.Command_Line.Argument(1)); |
||
Current: Positive := 1; |
|||
Last_Number:constant Positive := (Rows * (Rows+1)) / 2; |
|||
Width: array(1 .. Rows) of Positive; |
|||
Width: array(1 .. Rows) of Positive; |
|||
begin |
begin |