Sorting algorithms/Selection sort: Difference between revisions
Content deleted Content added
Line 703: | Line 703: | ||
70 I=0: J=0: IMAX = 0: ITP! = 0: TL! = 0 |
70 I=0: J=0: IMAX = 0: ITP! = 0: TL! = 0 |
||
80 ' |
80 ' |
||
90 |
90 CLS |
||
⚫ | |||
100 FALSE=0: TRUE=NOT FALSE |
|||
⚫ | |||
110 ' |
|||
⚫ | |||
120 CLS |
|||
130 IF IMAX > 1000 THEN IMAX = 1000 |
|||
⚫ | |||
⚫ | |||
⚫ | |||
150 |
150 ' Creates and shows the unsorted list |
||
⚫ | |||
⚫ | |||
170 FOR I=1 TO IMAX: N(I) = I: NEXT I |
|||
⚫ | |||
180 FOR I=1 TO IMAX |
|||
180 ' Creates and shows the unsorted list |
|||
⚫ | |||
⚫ | |||
200 |
200 SWAP N(I), N(J) |
||
210 |
210 NEXT I |
||
220 PRINT: PRINT "Unsorted list:"; |
|||
⚫ | |||
230 FOR I=1 TO IMAX |
230 FOR I=1 TO IMAX: PRINT N(I);: NEXT I |
||
240 PRINT: PRINT |
|||
⚫ | |||
⚫ | |||
250 SWAP N(I), N(J) |
|||
260 |
260 TL! = TIMER |
||
270 |
270 PRINT "Sorting"; IMAX; "numbers"; |
||
280 |
280 COLOR 7+16: X = POS(0): PRINT"...";: COLOR 7 |
||
290 |
290 ITP = 0 |
||
300 FOR I=1 TO IMAX-1 |
|||
⚫ | |||
310 |
310 FOR J=I+1 TO IMAX |
||
⚫ | |||
320 PRINT "Sorting"; IMAX; "numbers"; |
|||
⚫ | |||
330 COLOR 7+16: X = POS(0): PRINT"...";: COLOR 7 |
|||
⚫ | |||
340 ITP = 0 |
|||
350 |
350 PRINT: PRINT "Sorted list:"; |
||
360 |
360 FOR I=1 TO IMAX: PRINT N(I);: NEXT I |
||
370 ' Final results |
|||
⚫ | |||
⚫ | |||
380 NEXT J, I |
|||
⚫ | |||
⚫ | |||
400 |
400 PRINT "Time lapse:"; TIMER-TL!; "seconds." |
||
410 |
410 PRINT |
||
420 |
420 PRINT "End of program" |
||
⚫ | |||
⚫ | |||
⚫ | |||
450 PRINT "Time lapse:"; TIMER-TL!; "seconds." |
|||
460 PRINT |
|||
470 PRINT "End of program" |
|||
⚫ | |||
</lang> |
</lang> |
||