Olá,
Meu professor do curso de Técnico em Informática na Etec Lauro Gomes (caso alguém conheça) em São Bernardo, pediu para nós resolver-mos o seguinte exercício:
[quote]Construir um algoritmo para ordenar uma lista com 5 nomes em ordem crescente.[/quote],
Gostaria de saber se é possível fazer este exercício no VisuAlg, que é um editor e interpretador de pseudocódigos. :?:
Então galera para contribuir com o fórum coloquei aqui o algoritmo que fiz para resolver esse problema: :thumbup:
[code]algoritmo “Ordenar5Nomes”
var word1, word2, word3, word4, word5, p1word, p2word, p3word, p4word, p5word : caractere
cont : inteiro
inicio
// cabeçário
escreval(" ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||")
escreval(" || Programa para ordenar 5 palavras em ordem alfabética ||")
escreval(" ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||")
escreval("__________________________________________________________________________________")
escreval("")
// solicitação da palavras ao usuário
escreva("Entre com a primeira palavra: ")
leia(word1)
escreva("Entre com a segunda palavra: ")
leia(word2)
escreva("Entre com a terceira palavra: ")
leia(word3)
escreva("Entre com a quarta palavra: ")
leia(word4)
escreva("Entre com a quinta palavra: ")
leia(word5)
escreval("__________________________________________________________________________________")
escreval("")
se(word1 = word2) ou (word1 = word3) ou (word1 = word4) ou (word1 = word5) ou (word2 = word3) ou (word2 = word4) ou (word2 = word5) ou (word3 = word4) ou (word3 = word5) ou (word4 = word5) entao
escreval("Existem palavras iguais na sequência inserida, ")
escreval("por favor verifique e tente novamente.")
senao
// descobrindo a posição da primeira palavra
se(word1 < word2) entao
cont <- cont + 1
fimse
se(word1 < word3) entao
cont <- cont + 1
fimse
se(word1 < word4) entao
cont <- cont + 1
fimse
se(word1 < word5) entao
cont <- cont + 1
fimse
// atribuindo a palavra à variável de posição adequada
se(cont = 4) entao
p1word <- word1
fimse
se(cont = 3) entao
p2word <- word1
fimse
se(cont = 2) entao
p3word <- word1
fimse
se(cont = 1) entao
p4word <- word1
fimse
se(cont = 0) entao
p5word <- word1
fimse
cont <- 0 // reiniciando o contador
// descobrindo a posição da segunda palavra
se(word2 < word1) entao
cont <- cont + 1
fimse
se(word2 < word3) entao
cont <- cont + 1
fimse
se(word2 < word4) entao
cont <- cont + 1
fimse
se(word2 < word5) entao
cont <- cont + 1
fimse
// atribuindo a palavra à variável de posição adequada
se(cont = 4) entao
p1word <- word2
fimse
se(cont = 3) entao
p2word <- word2
fimse
se(cont = 2) entao
p3word <- word2
fimse
se(cont = 1) entao
p4word <- word2
fimse
se(cont = 0) entao
p5word <- word2
fimse
cont <- 0 // reiniciando o contador
// descobrindo a posição da terceira palavra
se(word3 < word1) entao
cont <- cont + 1
fimse
se(word3 < word2) entao
cont <- cont + 1
fimse
se(word3 < word4) entao
cont <- cont + 1
fimse
se(word3 < word5) entao
cont <- cont + 1
fimse
// atribuindo a palavra à variável de posição adequada
se(cont = 4) entao
p1word <- word3
fimse
se(cont = 3) entao
p2word <- word3
fimse
se(cont = 2) entao
p3word <- word3
fimse
se(cont = 1) entao
p4word <- word3
fimse
se(cont = 0) entao
p5word <- word3
fimse
cont <- 0 // reiniciando o contador
// descobrindo a posição da quarta palavra
se(word4 < word1) entao
cont <- cont + 1
fimse
se(word4 < word2) entao
cont <- cont + 1
fimse
se(word4 < word3) entao
cont <- cont + 1
fimse
se(word4 < word5) entao
cont <- cont + 1
fimse
// atribuindo a palavra à variável de posição adequada
se(cont = 4) entao
p1word <- word4
fimse
se(cont = 3) entao
p2word <- word4
fimse
se(cont = 2) entao
p3word <- word4
fimse
se(cont = 1) entao
p4word <- word4
fimse
se(cont = 0) entao
p5word <- word1
fimse
cont <- 0 // reiniciando o contador
// descobrindo a posição da quinta palavra
se(word5 < word1) entao
cont <- cont + 1
fimse
se(word5 < word2) entao
cont <- cont + 1
fimse
se(word5 < word3) entao
cont <- cont + 1
fimse
se(word5 < word4) entao
cont <- cont + 1
fimse
// atribuindo a palavra à variável de posição adequada
se(cont = 4) entao
p1word <- word5
fimse
se(cont = 3) entao
p2word <- word5
fimse
se(cont = 2) entao
p3word <- word5
fimse
se(cont = 1) entao
p4word <- word5
fimse
se(cont <= 0) entao
p5word <- word5
fimse
cont <- 0 // reiniciando o contador
escreval("1ª palavra:", p1word)
escreval("2ª palavra:", p2word)
escreval("3ª palavra:", p3word)
escreval("4ª palavra:", p4word)
escreval("5ª palavra:", p5word)
fimse
escreval("__________________________________________________________________________________")
fimalgoritmo[/code]