Initial data commit

Task/Multi-dimensional-array/Ada/multi-dimensional-array-1.ada

@@ -0,0 +1,5 @@
+type Grade is range 0..100;
+subtype Lower_Case is Character range 'a'..'z';
+subtype Natural is Integer range 0..Integer'Last;
+subtype Positive is Integer range 1..Integer'Last;
+type Deflection is range -180..180;

Task/Multi-dimensional-array/Ada/multi-dimensional-array-10.ada

@@ -0,0 +1,4 @@
+Mat1 : Matrix;
+Mat2 : Matrix;
+...
+Mat1 := Mat2;

Task/Multi-dimensional-array/Ada/multi-dimensional-array-11.ada

@@ -0,0 +1,4 @@
+V1 : Vector := (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
+V2 : Vector := (2, 2, 2, 2, 2, 2, 2, 2, 2, 2);
+...
+V2(3..6) := V1(7..10);

Task/Multi-dimensional-array/Ada/multi-dimensional-array-12.ada

@@ -0,0 +1,8 @@
+function "*" (Left : Vector; Right : Integer) return Vector is
+   Result : Vector;
+begin
+   for I in Vector'Range loop
+      Result(I) := Left(I) * Right;
+   end loop;
+   return Result;
+end "*"

Task/Multi-dimensional-array/Ada/multi-dimensional-array-13.ada

@@ -0,0 +1,12 @@
+type Unconstrained_Vector is array (Positive range <>) of Integer;
+U1 : Unconstrained_Vector := (1,2,3,4,5,6,7,8,9,10);
+U2 : Unconstrained_Vector := (10,11,12,13);
+...
+function "*" (Left : Unconstrained_Vector; Right : Integer) return Unconstrained_Vector is
+   Result : Unconstrained_Vector(Left'Range);
+begin
+   for I in Left'Range loop
+      Result(I) := Left(I) * Right;
+   end loop;
+   return Result;
+end "*";

Task/Multi-dimensional-array/Ada/multi-dimensional-array-2.ada

@@ -0,0 +1,2 @@
+type Char_Array is array (0..9) of Character;  -- A constrained array of characters
+type String is array (Positive range <>) of Character;  -- An unconstrained array of characters

Task/Multi-dimensional-array/Ada/multi-dimensional-array-3.ada

@@ -0,0 +1 @@
+subtype Positive is Integer range 1..Integer'Last;

Task/Multi-dimensional-array/Ada/multi-dimensional-array-4.ada

@@ -0,0 +1 @@
+Name : String := "Rosetta Code";

Task/Multi-dimensional-array/Ada/multi-dimensional-array-5.ada

@@ -0,0 +1 @@
+Num_Elements : Natural := Char_Array'Length;

Task/Multi-dimensional-array/Ada/multi-dimensional-array-6.ada

@@ -0,0 +1,2 @@
+type Vector is array (1..10) of Integer;
+type Table is array (0..99) of Vector;

Task/Multi-dimensional-array/Ada/multi-dimensional-array-7.ada

@@ -0,0 +1,3 @@
+V : Vector;
+...
+V(2) := 10;

Task/Multi-dimensional-array/Ada/multi-dimensional-array-8.ada

@@ -0,0 +1,3 @@
+T : Table;
+...
+T(1)(2) := 10;

Task/Multi-dimensional-array/Ada/multi-dimensional-array-9.ada

@@ -0,0 +1,4 @@
+type Matrix is array (0..99, 1..10) of Integer;
+M : Matrix;
+...
+M(1,2) := 10;