| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/nginx/html/JimMartinson/_Archive/CST1794/Archive/Examples/ |
Upload File : |
MaxSize = 5
REDIM NumArray(MaxSize)
FOR I = 1 TO MaxSize
NumArray(I) = INT(RND(1)*10) + 1
PRINT NumArray(I); " ";
NEXT I
PRINT "(Initial array)"
CALL QSort 1, MaxSize
FOR I = 1 TO MaxSize
PRINT NumArray(I); " ";
NEXT I
PRINT "(Sorted array)"
END
SUB QSort Start, Finish
I = Start
J = Finish
X = NumArray(INT((I+J)/2))
WHILE I <= J
WHILE NumArray(I) < X
I = I + 1
WEND
WHILE NumArray(J) > X
J = J - 1
WEND
IF I <= J THEN
A = NumArray(I)
NumArray(I) = NumArray(J)
NumArray(J) = A
I = I + 1
J = J - 1
END IF
WEND
FOR K = 1 TO Finish
PRINT NumArray(K); " ";
NEXT K
PRINT
IF J > Start THEN CALL QSort Start, J
IF I < Finish THEN CALL QSort I, Finish
END SUB