SORT/de

Funktion

Sortiert ein Array in aufsteigender Reihenfolge.

 

 

Syntax

SORT array() [,elements]

 

 

Anmerkungen

array()	Das erste Element des zu sortierenden Arrays.
elements	Anzahl der zu sortierenden Elemente. Optionaler Parameter. Standardmäßig werden alle Elemente sortiert.

 

Sortieren funktioniert für Byte, Word und Integer Arrays.

Die Routinen sind in der mcs.lib.

 

 

 

Siehe auch

NONE

 

 

Beispiel

'-------------------------------------------------------------------------------
' SORT.BAS
' (c) 1995-2011 , MCS Electronics
' Dieses Programm demonstriert den SORT-Befehl. Ein Array wird sortiert.
' SORT unterstützt Byte, Integer und Word Arrays.
'------------------------------------------------------------------------------
$regfile = "m88def.dat"
$crystal = 8000000
$hwstack = 16
$swstack = 8
$framesize = 30
 
'Arrays DIMensionieren:
Dim B(10) As Byte , I(10) As Integer , W(10) As Word
Dim J As Byte
 
'Auf Datenbereich zeigen:
Restore Arraydata
 
'Daten lesen:
For J = 1 To 10
 Read B(j)
Next
'Words lesen_
For J = 1 To 10
 Read W(j)
Next
'Integer lesen:
For J = 1 To 10
 Read I(j)
Next
 
'Arrays sortieren:
Sort B(1) , 10 ' 10 Elemente
Sort W(1) ' Alle Elemente
Sort I(1)
 
'Ergebnisse anzeigen:
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%

Languages	English • Deutsch