【SortDown_a】

1. Inputs: SortArray[size](NumericArrayRef), VArraySize(Numeric);
   
2. Variables: var0(0);
   
3.                                                                                                      
   
4. 
   
5. SortDown_a = -1;
   
6. 
   
7. condition1 = MinList(size, VArraySize) > 1 AND VArraySize <= size ;
   
8. If  condition1
   
9. Then Begin
   
10.         For value1 = 1 To VArraySize - 1 Begin
    
11.                 For value2 = value1 + 1 To VArraySize Begin
    
12.                 condition1 = SortArray[value1] < SortArray[value2] ;
    
13.                         If condition1 Then Begin                       
    
14.                                 var0 = SortArray[value1];
    
15.                                 SortArray[value1] = SortArray[value2];
    
16.                                 SortArray[value2] = var0;
    
17.                         End;
    
18.                 End;
    
19.         End;
    
20. End;
    
21. 
    
22. SortDown_a = 1;

复制代码