定义

逆序数的计算　PASCAL源码

定义

在一个排列中，如果一对数的前后位置与大小顺序相反，即前面的数大于后面的数，那么它们就称为一个逆序。一个排列中逆序的总数就称为这个排列的逆序数。逆序数为偶数的排列称为偶排列；逆序数为奇数的排列称为奇排列。如2431中，21，43，41，31是逆序，逆序数是4，为偶排列。

也就说，对于n个不同的元素，先规定各元素之间有一个标准次序（例如n个 不同的自然数，可规定从小到大为标准次序），于是在这n个元素的任一排列中，当某两个元素的先后次序与标准次序不同时，就说有1个逆序。一个排列中所有逆序总数叫做这个排列的逆序数。

逆序数的计算　PASCAL源码

type

f=array[0..1000] of longint;

var

j,k,n:longint;

a:f;

procedure input(var a:f);

var

s:string;

i,j,k,t,n:longint;

begin

readln(s);

a[0]:=length(s);

for i:=1 to length(s) do

begin

if (s[i]<='9') and (s[i]>='0') then

a[a[0]+1-i]:=ord(s[i])-ord('0')

else

a[a[0]+1-i]:=ord(s[i])-ord('A')+10;

end;

end;

begin

readln(t);

input(a);

for j:=1 to a[0] do

write(a[j]);

writeln;

end.

C++归并排序求逆序数

void mergeSort(long first, long last)

{

if(first < last) {

long mid = (first + last) / 2;

mergeSort(first, mid);

mergeSort(mid+1, last);

merge(first, mid, last);

}

}

void merge(long p, long q, long r)

{

long i, j = 0;

long beginA = p, endA = q, beginB = q+1, endB = r;

while(beginA <= endA && beginB <= endB) {

if(a[beginA] <= a[beginB]) {

b[j++] = a[beginA++];

} else {

for(int t = beginA; t <= q; t++) {

cout << "Found: " <<a[t] <<", "<<a[beginB]<<endl;

}

b[j++] = a[beginB++];

}

}

while(beginA <= endA) {

b[j++] = a[beginA++];

}

while(beginB <= endB) {

b[j++] = a[beginB++];

}

for(i = 0; i < j; i++) {

a[p+i] = b[i];

}

}

Microsoft Visual Basic 6.0代码

Private Function NiXushu(ByVal l As String) As Long '逆序数计算

Dim i As Integer, j As Integer, c As Long

Dim n() As Integer

ReDim n(Len(l))

For i = 1 To Len(l)

n(i) = Val(Mid(l, i, 1))

For j = 1 To i - 1

If n(i) < n(j) Then

c = c + 1

End If

Next j

Next i

NiXushu = c

End Function