Floyd's triangle: Difference between revisions

Content added Content deleted

Inline

@@ Line 21: / Line 21: @@
 procedure Floyd_Triangle is
-   Rows:       constant Positive := Integer'Value(Ada.Command_Line.Argument(1));
+   Rows:    constant Positive := Integer'Value(Ada.Command_Line.Argument(1));
+   Current:          Positive := 1;
-   Last_Number:constant Positive := (Rows * (Rows+1)) / 2;
-   Current:             Positive := 1;
+   Width:            array(1 .. Rows) of Positive;
-   Width:               array(1 .. Rows) of Positive;
 begin