【SortArray】
[code]inputs:PriceValueArray[MaxSize]( numericarrayref ),
Size( numericsimple ),
HiLo( numericsimple ) ;
variables:
var0( 0 ) ;
for Value1 = 1 to Size - 1
begin
for Value2 = Value1 + 1 to Size
begin
condition1 = ( HiLo = 1 and PriceValueArray[Value1] < PriceValueArray[Value2] )
or ( HiLo = -1 and PriceValueArray[Value1] > PriceValueArray[Value2] ) ;
if condition1 then
begin
var0 = PriceValueArray[Value1] ;
PriceValueArray[Value1] = PriceValueArray[Value2] ;
PriceValueArray[Value2] = var0 ;
end ;
end ;
end ;
SortArray = 1 ;
[/code]
页:
[1]