Seleção direta e inserção direta

[anonymouatour]

Olá galera não estou conseguindo criar um algoritmo em visualg que funcione esses dois metodos de ordenação fiquei meio perdido na logica quem pode me ´passar dois codigos deles em visualg para mim estudar?abs obs não quero copiar e colocar apenas entender e aplicar no meu programa que estou montando 

 

adicionado 3 minutos depois

aqui o codigo do inserção direta 

procedimento InsertionSort(n:inteiro)
var
 i, j, chave: inteiro
inicio
 para j de 2 ate n faca
 chave <- vet[j]
 i <- j-1
 enquanto ((i>0)e(vet[i]>chave)) faca
 vet[i+1] <- vet[i]
 i <- i-1
 fimenquanto
 vet[i+1] <- chave
 fimpara
fimprocedimento

 

adicionado 5 minutos depois

e o seleção  

procedimento SelectionSort(n:inteiro)
var
   i, j, min, aux: inteiro
inicio
   para i de 1 ate n-1 faca
     min <- i
     para j de i+1 ate n faca
          se vet[j] < vet[min] então
             min <- j
          fimse
     fimpara
     se min <> i então
        aux <- vet [i]
        vet[i] <- vet[min]
        vet[min] <- aux
        fimse
   fimpara
fimprocedimento

 

[Simon Viegas]

Olá.

 

Sobre o SelectionSort(), já foi citado aqui:

Sobre o InsertionSort, primeiro tente entender o outro...