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: IMINV = 0: IMAX = 0: TP! = 0: TL! = 0
80 '
90 CLS
Line 725:
290 ITP = 0
300 FOR I=1 TO IMAX-1
310
320 FOR J=I+1 TO IMAX
320 IF N(I)>N(J) THEN SWAP N(I), N(J): TP! = TP! + 1▼
330 IF N(IMINV)>N(J) THEN IMINV = J
340
350 PRINT: PRINT "Sorted list:";▼
360
370 LOCATE ,X: PRINT ". Done!"
370 ' Final results▼
380
390 FOR I=1 TO IMAX: PRINT N(I);: NEXT I
400 PRINT "Time lapse:"; TIMER-TL!; "seconds."▼
410 PRINT▼
420 PRINT "
430 END▼
450 PRINT "End of program"
</lang>
| |||