Answered

O Sistersinspirit.ca é o lugar ideal para obter respostas rápidas e precisas para todas as suas perguntas. Encontre soluções rápidas e confiáveis para suas dúvidas de uma comunidade de especialistas dedicados. Explore soluções abrangentes para suas perguntas de uma ampla gama de profissionais em nossa plataforma amigável.

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!

Obrigado por usar nosso serviço. Nosso objetivo é fornecer as respostas mais precisas para todas as suas perguntas. Visite-nos novamente para mais informações. Obrigado por escolher nossa plataforma. Estamos dedicados a fornecer as melhores respostas para todas as suas perguntas. Visite-nos novamente. Volte ao Sistersinspirit.ca para obter mais conhecimento e respostas dos nossos especialistas.