Цитата vladh (
)
Какой самый простой способ нахождения максимального или минимального значения в байтовом массиве, составленным из переменных типа word?
Например, можно использовать пузырьковую сортировку.
Declare All_Digital On
Declare Create_Coff = 1
Dim Array[6] As Word
Dim i As Byte
Dim t As Word
Dim SWAP_Flag As Bit
main:'==========================================================================================
Array[0] = 1223
Array[1] = 216
Array[2] = 1
Array[3] = 13345
Array[4] = 4116
Array[5] = 6
GoSub BUBBLE_SORT
GoTo main
;============================
; Пузырьковая сортировка
;============================
BUBBLE_SORT:
Repeat
SWAP_Flag = 0 ' очистим флаг указывающий на перемещение в массиве
i = 0
Repeat ' повтор¤ем для каждой ячейки в массиве
If Array > Array[i + 1] Then ' если значение массива больше следующей ячейки, то перемещаем вверх
t = Array ' перемещаем.....
Array = Array[i+1]
Array[i+1] = t
SWAP_Flag = 1 ' ставим флаг, что было перемещение
EndIf
Inc i
Until i = 5 'длина массива - 1
Until SWAP_Flag = 0
i = 0
Return
End
