| 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/ExampleFiles/ |
Upload File : |
' InsersionSort.bas
MaxSize = 5
REDIM MyArray(MaxSize)
FOR I = 1 TO MaxSize
MyArray(I) = INT(RND(1) * 100) + 1
PRINT MyArray(I); SPACE$(1);
NEXT I
PRINT "(Initial array)"
FOR ArrayPos = 2 TO MaxSize
TempValue = MyArray(ArrayPos)
StopNow = 0
Count = 1
Time2Stop = 0
WHILE (Time2Stop = 0)
IF TempValue < MyArray(Count) THEN
FOR J = ArrayPos TO Count STEP -1
MyArray(J) = MyArray(J - 1)
NEXT J
MyArray(Count) = TempValue
StopNow = 1
FOR I = 1 TO MaxSize
PRINT MyArray(I); SPACE$(1);
NEXT I
PRINT
END IF
Count = Count + 1
IF (StopNow = 1) OR (Count = ArrayPos) THEN
Time2Stop = 1
END IF
WEND
NEXT ArrayPos
FOR I = 1 TO MaxSize
PRINT MyArray(I); SPACE$(1);
NEXT I
PRINT "(Sorted array)"
END