Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,33 @@
|
|||
PROGRAM INSERTION_SORT
|
||||
|
||||
DIM A[9]
|
||||
|
||||
PROCEDURE INSERTION_SORT(A[])
|
||||
LOCAL I,J
|
||||
FOR I=0 TO UBOUND(A,1) DO
|
||||
V=A[I]
|
||||
J=I-1
|
||||
WHILE J>=0 DO
|
||||
IF A[J]>V THEN
|
||||
A[J+1]=A[J]
|
||||
J=J-1
|
||||
ELSE
|
||||
EXIT
|
||||
END IF
|
||||
END WHILE
|
||||
A[J+1]=V
|
||||
END FOR
|
||||
END PROCEDURE
|
||||
|
||||
BEGIN
|
||||
A[]=(4,65,2,-31,0,99,2,83,782,1)
|
||||
FOR I%=0 TO UBOUND(A,1) DO
|
||||
PRINT(A[I%];)
|
||||
END FOR
|
||||
PRINT
|
||||
INSERTION_SORT(A[])
|
||||
FOR I%=0 TO UBOUND(A,1) DO
|
||||
PRINT(A[I%];)
|
||||
END FOR
|
||||
PRINT
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue