【SortUp_a】
[code]Inputs: SortArray[size](NumericArrayRef), VArraySize(Numeric);Variables: var0(0);
SortUp_a = -1;
condition1 = MinList(size, VArraySize) > 1 AND VArraySize <= size ;
If condition1 Then Begin
For value1 = 1 To VArraySize - 1 Begin
For value2 = Value1 + 1 To VArraySize Begin
condition1 = SortArray[value1] > SortArray[value2] ;
If condition1 Then Begin
var0 = SortArray[value1];
SortArray[value1] = SortArray[value2];
SortArray[value2] = var0;
End;
End;
End;
End;
SortUp_a = 1;
[/code]
页:
[1]