Exemplos de Algoritmos para VISUALG

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

// Algoritmo BUBBLESORT
// Função : Demonstração para o programa VisuAlg
// Autor : Claudio Morgado de Souza
// Data : 08/09/2002
algoritmo "Bubble Sort"
dos
var
 a, b : inteiro
 temp : real
 x : vetor[1..10] de real
inicio
// Leitura dos dados
aleatorio 0,100,3
para a de 1 ate 10 faca
 leia(x[a])
fimpara
// Ordenação
para a de 1 ate 10 faca
 para b de 1 ate 9 faca
 se x[b] > x[b+1] entao
 temp <- x[b]
 x[b] <- x[b+1]
 x[b+1] <- temp
 fimse
 fimpara
fimpara
// Impressão dos dados ordenados
para a de 1 ate 10 faca
 escreval(a:3," - ", x[a] : 10 : 3)
fimpara
fimalgoritmo