【Rank】

1. Inputs: RankNum(Numeric), PriceValue(Numeric), Len(Numeric), SOrder(Numeric);
   
2. Variables: var0(0);
   
3. Array: arr0[1000](0);
   
4. 
   
5. condition1 = MinList(Len, RankNum) > 0 AND MaxList(Len, RankNum) <= 1000 ;
   
6. If condition1 Then Begin
   
7.         For value1 = 1 To Len Begin
   
8.                 arr0[value1] = PriceValue[value1-1];
   
9.         End;               
   
10.         For value1 = 1 To Len-1 Begin
    
11.         condition1 = arr0[value1] > arr0[value1+1] ;
    
12.                 If condition1 Then Begin
    
13.                         var0 = arr0[value1];
    
14.                         arr0[value1] = arr0[value1+1];
    
15.                         arr0[value1+1] = var0;
    
16.                         value1 = 0;
    
17.                 End;
    
18.         End;
    
19.         If SOrder > 0 Then
    
20.                 Rank = arr0[RankNum]
    
21.         Else
    
22.                 Rank = arr0[Len - RankNum + 1];
    
23. End;

复制代码