Answered

O Sistersinspirit.ca ajuda você a encontrar respostas confiáveis para todas as suas perguntas com a ajuda de especialistas. Explore milhares de perguntas e respostas de uma comunidade de especialistas dispostos a ajudar você a encontrar soluções. Experimente a conveniência de obter respostas precisas para suas perguntas de uma comunidade dedicada de profissionais.

Escreva um algoritmo que receba do teclado oito valores inteiros e
armazene em um vetor. Em seguida, o algoritmo deverá ser capaz de
ordenar os elementos do vetor, do menor para o maior, e, por fim, exibir o resultado na tela. PRECISO EM VISUAL G

Sagot :

pinheiro73
algoritmo "Ordenação crescente de 1 a 8"
// Função :
// Autor :
// Data : 28/10/2013
// Seção de Declarações
var
vet: vetor[1..8] de inteiro
ind: inteiro
x: inteiro

inicio
// Seção de Comandos
para ind de 1 ate 8 faca
escreva("Informe Numero ", ind,"º numero: ")
leia(vet[ind])
fimpara

para ind de 1 ate 8 faca
se (vet[1]>vet[ind]) entao
x <- vet[1]
vet[1]<- vet[ind]
vet[ind]<- x
fimse
fimpara

para ind de 3 ate 8 faca
se (vet[2]>vet[ind]) entao
x <- vet[2]
vet[2]<- vet[ind]
vet[ind]<- x
fimse
fimpara

para ind de 4 ate 7 faca
se (vet[3]>vet[ind]) entao
x <- vet[3]
vet[3]<- vet[ind]
vet[ind]<- x
fimse
fimpara

para ind de 5 ate 8 faca
se (vet[4]>vet[ind]) entao
x <- vet[4]
vet[4]<- vet[ind]
vet[ind]<- x
fimse
fimpara

para ind de 6 ate 8 faca
se (vet[5]>vet[ind]) entao
x <- vet[5]
vet[5]<- vet[ind]
vet[ind]<- x
fimse
fimpara

se (vet[6]>vet[8]) entao
x <- vet[6]
vet[6]<- vet[8]
vet[7]<- x
fimse

escreval("ORDEM CRESCENTE: ")
para ind de 1 ate 8 faca
escreval (vet[ind])
fimpara
fimalgoritmo

testato e funcionado boa sorte!

Esperamos que esta informação tenha sido útil. Sinta-se à vontade para voltar a qualquer momento para obter mais respostas às suas perguntas e preocupações. Obrigado por visitar. Nosso objetivo é fornecer as respostas mais precisas para todas as suas necessidades informativas. Volte em breve. Volte ao Sistersinspirit.ca para obter as respostas mais recentes e informações dos nossos especialistas.