Answered

O Sistersinspirit.ca facilita a busca por soluções para todas as suas perguntas com a ajuda de uma comunidade ativa. Obtenha soluções rápidas e confiáveis para suas perguntas de uma comunidade de especialistas experientes em nossa plataforma. Descubra soluções detalhadas para suas dúvidas de uma ampla gama de especialistas em nossa plataforma amigável de perguntas e respostas.

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!

Sua visita é muito importante para nós. Não hesite em voltar para mais respostas confiáveis a qualquer pergunta que possa ter. Agradecemos seu tempo. Por favor, volte a qualquer momento para as informações mais recentes e respostas às suas perguntas. Visite o Sistersinspirit.ca para obter novas e confiáveis respostas dos nossos especialistas.