Eu preciso fazer um algoritmo no VisualG que leia um determinado número de notas e as organize-as de forma crescente, eu consegui elaborar o algoritmo, mais, no resultado ele aparece um 0, sendo que eu não digitei nenhum 0.
Exemplo:
Digitei: 9
10
2
No resultado aparece: 0
2
9
10
O algoritmo está abaixo, obrigado.
Algoritmo "Obter notas e apresentar em ordem crescente"
Var
aNotas: VETOR[1..50] DE INTEIRO
I, J, Y, L, K, nNumero: INTEIRO
Inicio
Escreva("Digite o número de notas que você deseja ordenar: ")
Leia(nNumero)
Para I De 1 Ate nNumero Passo 1 Faca
Escreva("Digite a", I,"° nota: ")
Leia(aNotas[I])
Fimpara
Para K De 1 Ate I-1 Faca
Para J De 1 Ate nNumero Faca
Se aNotas[J] > aNotas[J+1] Entao
Y <- aNotas[J]
aNotas[J] <- aNotas[J+1]
aNotas[J+1] <- Y
Fimse
Fimpara
Fimpara
Para L De 1 Ate J Faca
Escreval(aNotas[L])
Fimpara
Fimalgoritmo
Pergunta
Imguvoss
Olá pessoal,
Eu preciso fazer um algoritmo no VisualG que leia um determinado número de notas e as organize-as de forma crescente, eu consegui elaborar o algoritmo, mais, no resultado ele aparece um 0, sendo que eu não digitei nenhum 0.
Exemplo:
Digitei: 9
10
2
No resultado aparece: 0
2
9
10
O algoritmo está abaixo, obrigado.
Algoritmo "Obter notas e apresentar em ordem crescente" Var aNotas: VETOR[1..50] DE INTEIRO I, J, Y, L, K, nNumero: INTEIRO Inicio Escreva("Digite o número de notas que você deseja ordenar: ") Leia(nNumero) Para I De 1 Ate nNumero Passo 1 Faca Escreva("Digite a", I,"° nota: ") Leia(aNotas[I]) Fimpara Para K De 1 Ate I-1 Faca Para J De 1 Ate nNumero Faca Se aNotas[J] > aNotas[J+1] Entao Y <- aNotas[J] aNotas[J] <- aNotas[J+1] aNotas[J+1] <- Y Fimse Fimpara Fimpara Para L De 1 Ate J Faca Escreval(aNotas[L]) Fimpara FimalgoritmoLink para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.