Algoritmo vetores

Algoritmo "ordenação de vetores"

Var
    cp, k, aux: inteiro
   v:vetor[1..5] de inteiro

Inicio
   v[1] <- 3
   v[2] <- 5
   v[3] <- 2
   v[4] <- 4
   v[5] <- 1
   cp <- 4 // comprimento do vetor menos 1

   enquanto cp > 0 faca
      para k de 1 ate cp  faca
         se v[k] > v[k+1] entao // troca
            aux <- v[k]
            v[k] <- v[k+1]
            v[k+1] <- aux
         fimse
      fimpara
      cp <- cp-1
   fimenquanto

   v[1] <- 3
   v[2] <- 5
   v[3] <- 2
   v[4] <- 4
   v[5] <- 1
   cp <- 4 // comprimento do vetor menos 1

   repita
      para k de 1 ate cp  faca
         se v[k] > v[k+1] entao // troca
            aux <- v[k]
            v[k] <- v[k+1]
            v[k+1] <- aux
         fimse
      fimpara
      cp <- cp-1
   ate cp=1


Fimalgoritmo