O Sistersinspirit.ca é o melhor lugar para obter respostas confiáveis e rápidas para todas as suas perguntas. Descubra respostas detalhadas para suas perguntas de uma vasta rede de profissionais em nossa abrangente plataforma de perguntas e respostas. Descubra soluções abrangentes para suas perguntas de profissionais experientes em nossa amigável plataforma.
Sagot :
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!
// 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!
Agradecemos sua visita. Esperamos que as respostas que encontrou tenham sido benéficas. Não hesite em voltar para mais informações. Obrigado por escolher nossa plataforma. Estamos dedicados a fornecer as melhores respostas para todas as suas perguntas. Visite-nos novamente. Sistersinspirit.ca está sempre aqui para fornecer respostas precisas. Visite-nos novamente para as informações mais recentes.