Ordenacao_(Sem_Subalgoritmo)_Prof_Eolisses

Prévia do material em texto

Algoritmo: G:\Estudos\02 - Faculdade IESPLAN\Aulas\Aula 06 - 30 maio\Ordenacao_sem_subalgor
itmo.alg
Data: 07/06/2012
 1 algoritmo "Ordenacao_sem_subalgoritmo"
 2 // Faculdade IESPLAN
 3 // Curso de Engenharia Civil
 4 // Disciplina: Métodos Computacionais
 5 // Autor : Prof. EOLISSES F. LEOPOLDINO
 6 // Data : 27/05/2012
 7 var
 8 nr1, nr2, nr3, aux1, op : inteiro
 9 sair : logico
 10 inicio
 11 repita
 12 escreval("Entre com 3 números inteiro:")
 13 escreval("")
 14 //-------
 15 escreva("Nr 1: ")
 16 leia(nr1)
 17 //-------
 18 escreva("Nr 2: ")
 19 leia(nr2)
 20 //-------
 21 escreva("Nr 3: ")
 22 leia(nr3)
 23 //-------
 24 escreval("")
 25 escreval("")
 26 //-----------------------
 27 se (nr2 < nr1) entao
 28 aux1 <- nr1 //----> aux1 guarda o valor de nr1
 29 nr1 <- nr2 //----> nr1 recebe o valor de nr2
 30 nr2 <- aux1 //----> nr2 recebe o valor de aux1 (que era de nr1)
 31 fimse
 32 //-----------------------
 33 se (nr3 < nr1) entao
 34 aux1 <- nr1
 35 nr1 <- nr3
 36 nr3 <- aux1
 37 fimse
 38 //------------------------
 39 se (nr3 < nr2) entao
 40 aux1 <- nr2
 41 nr2 <- nr3
 42 nr3 <- aux1
 43 fimse
 44 escreva("Sequencia ordenada: ", nr1, " - ", nr2, " - ", nr3)
 45 //----------
 46 escreval("")
 47 escreval("")
 48 //----------
 49 escreva("Testar novamente? <SIM>-1 <NÃO>-2 :")
 50 leia(op)
 51 //----
 52 se (op = 1) entao
 53 sair <- FALSO
 54 senao
 55 sair <- VERDADEIRO
 56 fimse
 57 //----------
 58 limpatela
 59 //----------
 60 ate sair = VERDADEIRO
 61 fimalgoritmo
 62