Arrays: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,922: / Line 4,922: @@
 # retrieve an element
 say arr[-1];             #=> 'baz'</lang>
+=={{header|Simula}}==
+<lang simula>BEGIN
+  PROCEDURE STATIC;
+  BEGIN
+    INTEGER ARRAY X(0:4);
+    X(0) := 10;
+    X(1) := 11;
+    X(2) := 12;
+    X(3) := 13;
+    X(4) := X(0);
+    OUTTEXT("STATIC AT 4: ");
+    OUTINT(X(4), 0);
+    OUTIMAGE
+  END STATIC;
+  PROCEDURE DYNAMIC(N); INTEGER N;
+  BEGIN
+    INTEGER ARRAY X(0:N-1);
+    X(0) := 10;
+    X(1) := 11;
+    X(2) := 12;
+    X(3) := 13;
+    X(4) := X(0);
+    OUTTEXT("DYNAMIC AT 4: ");
+    OUTINT(X(4),0);
+    OUTIMAGE
+  END DYNAMIC;
+  STATIC;
+  DYNAMIC(5)
+END ARRAYS.
+</lang>
 =={{header|Slate}}==