Sorting algorithms/Selection sort: Difference between revisions
m
→{{header|GWBASIC}}
Line 701:
50 DEFINT A-Z
60 OPTION BASE 1
70 I=0: J=0: IMAX = 0:
80 '
90 CLS
Line 726:
300 FOR I=1 TO IMAX-1
310 FOR J=I+1 TO IMAX
320 IF N(I)>N(J) THEN SWAP N(I), N(J):
330 NEXT J, I
340 LOCATE ,X: PRINT ". Done!"
Line 733:
370 ' Final results
380 PRINT: PRINT: PRINT "Numbers sorted:"; IMAX
390 PRINT "Total permutations done:";
400 PRINT "Time lapse:"; TIMER-TL!; "seconds."
410 PRINT
|