VisualG Gostaria de saber se há uma forma de melhorar o meu código!

Robs156 · 14 de abril de 2022

Eis o exercício proposto:

Crie um programa que leia a idade de 8 pessoas e guarde-as em um vetor. No final, mostre:

a) Qual é a média de idade das pessoas cadastradas

b) Em quais posições temos pessoas com mais de 25 anos

c) Qual foi a maior idade digitada (podem haver repetições)

d) Em que posições digitamos a maior idade

Meu código:

algoritmo "semnome"
var
idade: vetor [1..8] de inteiro
i, maior, posicao_maior: inteiro
media: real
inicio
maior <- 0
Para i <- 1 ate 8 faca
   EscrevaL("Digite sua idade: ")
   Leia(idade[i])
   media <- media + idade[i]
      Se (idade[i] > maior) entao
         maior <- idade[i]
         posicao_maior <- i
      Fimse
FimPara
EscrevaL("A média de idade foi: ", media/8)
EscrevaL("A maior idade digitada foi: ", maior)
EscrevaL("Temos pessoas com mais de 25 anos nas posições: ")
Para i <- 1 ate 8 faca
   Se (idade[i] > 25) entao
      EscrevaL("Posição: ",i)
   FimSe
FimPara
EscrevaL("A maior idade foi digitada na posição: ", posicao_maior)
fimalgoritmo

kgin · 15 de abril de 2022

@Robs156 Não tem muito o que melhorar, a sua lógica está muito boa.

você deveria usar constantes e evitar usar letras soltas.

exemplo

algoritmo "semnome"

const
   QUANTIDADE_PESSOAS = 3
var
   idade: vetor [1..QUANTIDADE_PESSOAS] de inteiro
   contador, maior, posicao_maior: inteiro
   soma_idades: real
inicio
   maior <- 0
   Para contador <- 1 ate QUANTIDADE_PESSOAS faca
      EscrevaL("Digite sua idade: ")
      Leia(idade[contador])
      soma_idades <- soma_idades + idade[contador]
      Se (idade[contador] > maior) entao
         maior <- idade[contador]
         posicao_maior <- contador
      Fimse
   FimPara
   EscrevaL("A média de idade foi: ", soma_idades/QUANTIDADE_PESSOAS)
   EscrevaL("A maior idade digitada foi: ", maior)
   EscrevaL("Temos pessoas com mais de 25 anos nas posições: ")
   Para contador <- 1 ate QUANTIDADE_PESSOAS faca
      Se (idade[contador] > 25) entao
         EscrevaL("Posição: ",contador)
      FimSe
   FimPara
   EscrevaL("A maior idade foi digitada na posição: ", posicao_maior)
fimalgoritmo