Admin at 21:13, 13 December 2014

2014-12-13T21:13:21Z

Admin: Created page with "= Action = Sorts an array in ascending order. ..."

2013-02-12T17:16:49Z

Created page with "= Action = Sorts an array in ascending order. ..."

New page

= Action =

Sorts an array in ascending order.

 

 

= Syntax =

SORT array() [,elements]

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="488" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="22%" style="width: 103px; border: 1px solid rgb(0, 0, 0);" |
array()

| valign="top" width="100%" style="width: 376px; border: 1px solid rgb(0, 0, 0);" |
The first element of the array to sort.

|- style="vertical-align: top;"
| valign="top" width="22%" style="width: 103px; border: 1px solid rgb(0, 0, 0);" |
elements

| valign="top" width="100%" style="width: 376px; border: 1px solid rgb(0, 0, 0);" |
The number of elements to sort. This is an optional value. By default all elements will be sorted.

|}
</div>
 

Sorting is implemented for byte, word and integer arrays.

The routines are located in mcs.lib.

 

 

 

= See also =

NONE

 

 

= Example =

 <source lang="bascomavr">
'-------------------------------------------------------------------------------
' SORT.BAS
' (c) 1995-2011 , MCS Electronics
' This demo demonstrates the SORT statement. It will sort an array
' sort supports, byte, integer and word arrays at the first release
'------------------------------------------------------------------------------
$regfile = "m88def.dat"
$crystal = 8000000
$hwstack = 16
$swstack = 8
$framesize = 30

'Dim some arrays
Dim B(10) As Byte , I(10) As Integer , W(10) As Word
Dim J As Byte

'point to data
Restore Arraydata

'read the data
For J = 1 To 10
Read B(j)
Next
'read the words
For J = 1 To 10
Read W(j)
Next
'read the integers
For J = 1 To 10
Read I(j)
Next

'now sort the arrays
Sort B(1) , 10 ' 10 elements
Sort W(1) ' all elements
Sort I(1)

'and show the result
For J = 1 To 10
Print J ; " " ; B(j) ; " " ; W(j) ; " " ; I(j)
Next
End

Arraydata:
Data 1 , 4 , 8 , 9 , 2 , 5 , 3 , 7 , 6 , 4
Data 1000% , 101% , 1% , 400% , 30000% , 20000% , 15000% , 0% , 999% , 111%
Data -1000% , 101% , -1% , 400% , 30000% , 2000% , -15000% , 0% , 999% , 111%

</source> {{Languages}}

[[Category:BASCOM Language Reference]]

@@ Line 36: / Line 36: @@
 <span style="font-family: Arial;">&nbsp;</span>
-Sorting is implemented for byte, word and integer arrays.
+Sorting is implemented for BYTE, WORD, INTEGER, LONG and DWORD arrays.
 The routines are located in mcs.lib.

SORT - Revision history

Admin at 21:13, 13 December 2014

Admin: Created page with "= Action = Sorts an array in ascending order. ..."