Sorting algorithms/Insertion sort: Difference between revisions

Content added Content deleted
(Added Oberon-2)
Line 3,856: Line 3,856:
VAR
VAR
i:LONGINT;
A1:ARRAY 10 OF INTEGER;
A1:ARRAY 10 OF INTEGER;
Line 3,880: Line 3,879:


PROCEDURE PrintArray(VAR A:ARRAY OF INTEGER);
PROCEDURE PrintArray(VAR A:ARRAY OF INTEGER);
VAR i:LONGINT;
BEGIN
BEGIN
FOR i := 0 TO LEN(A)-1 DO Out.Int(A[i],0); Out.Char(' ') END;
FOR i := 0 TO LEN(A)-1 DO Out.Int(A[i],0); Out.Char(' ') END;