template 
class TreeNode{ 
public: 
    T data; 
    int index; 
    int active; 
    TreeNode & operator=(TreeNode & treenode) 
    { 
        this->data=treenode.data; 
        this->index=treenode.index; 
        this->active=treenode.active; 
        return *this; 
    } 
}; 
树节点数据结构包括了data数值，index用来存放该数值在叶节点存放的位置（所有数据开始都是存放在叶节点），active表示激活没有，最后如果该数据移植树根部，则将active字段置0无效。

public static void selectSort(int[]a)
{
    int minIndex=0;
    int temp=0;
    if((a==null)||(a.length==0))
        return;
    for(int i=0;i<a.length-1;i++)
    {
        minIndex=i;//无序区的最小数据数组下标
        for(intj=i+1;j<a.length;j++)
        {
            //在无序区中找到最小数据并保存其数组下标
            if(a[j]<a[minIndex])
            {
                minIndex=j;
            }
        }
        if(minIndex!=i)
        {
            //如果不是无序区的最小值位置不是默认的第一个数据，则交换之。
            temp=a[i];
            a[i]=a[minIndex];
            a[minIndex]=temp;
        }
    }
}

def selection_sort(list2):
    for i in range(0, len (list2)):
min = i
    for j in range(i + 1, len(list2)):
if list2[j] < list2[min]:
min = j
    list2[i], list2[min] = list2[min], list2[i]  # swap

var num,temp,k,loop1,loop2:longint;
a:array[1..1000] of longint;
begin
readln(num);//读入数据个数
for loop1:=1to num do
read(a[loop1]);//读入进行排序的数据
for loop1:=1to num-1 do
begin
k:= loop1;
for loop2:=loop1+1to num do
ifa[k]>a[loop2]then
k:=loop2;//比较得出最小数
ifk<>loop1then//优化节省时间
begin
temp:=a[k];
a[k]:=a[loop1];
a[loop1]:=temp;//进行数据交换
end;
end;
forloop1:=1to num do
write(a[loop1],‘‘);//输出排序后的数据
readln;
readln;
end.

#!/usr/bin/perl
subselect_sort{
    my(*array)=@_;
    $length=@array;
    for($i=0;$i<$length-1;$i++)
    {
        $min=$i;
        for($j=$i+1;$j<$length;$j++)
        {
            if($array[$j]<$array[$min])
            {
                $min=$j;
            }
            if($min!=$i)
            {
                $temp=$array[$i];
                $array[$i]=$array[$min];
                $array[$min]=$temp;
            }
        }
        return@array;
    }

functionselection_sort($array){
    $count=count($array);
    for($i=0;$i<$count-1;$i++){
        /*findtheminest*/
        $min=$i;
        echo‘$min-->‘.$array[$min].‘-->‘;
        for($j=$i+1;$j<$count;$j++){
            //由小到大排列
            if($array[$min]>$array[$j]){
                //表明当前最小的还比当前的元素大
                $min=$j;
                //赋值新的最小的
            }
        }
        echo$array[$min].‘coco<br/>‘;
        /*swap$array[$i]and$array[$min]即将当前内循环的最小元素放在$i位置上*/
        if($min!=$i){
            $temp=$array[$min];
            $array[$min]=$array[$i];
            $array[$i]=$temp;
        }
    }
    return$array;
}
$old_array=array(3,4,5,6,8,2,12);
$new_array=selection_sort($old_array);
print_r($new_array);

def selection_sort(array)  
  result = []  
  array.size.times { result << array.delete_at(array.index(array.min)) } 
  result
end

vb实现选择排序
Private Sub xzPaiXu(a()AsDouble,shengAsBoolean)
‘a为需要排序的数组，sheng为True则为升序排列，为False，则为降序排列。
Dim i AsInteger,j As Integer
Dim temp As Double
Dimm As Integer
For i = LBound(a) To UBound(a)-1
‘进行数组大小-1轮比较m=i‘在第i轮比较时，假定第‘i个元素为最值元素
For j = i+1 To UBound(a)
‘在剩下的元素中找出最‘值元素的下标并记录在m中
If sheng Then
‘若为升序，则m记录最小元素‘下标,否则记录最大元素下标
If a(j)<a(m) Then
m=j
Else If a(j) > a(m) Then
m=j
End If
Next j
‘将最值元素与第i个元素交换
temp=a(i)
a(i)=a(m)
a(m)=temp
Next i
End Sub