nighthunder5

EXERCÍCIO 2 SEM VETOR

Algoritmo "exercício 2"
Var
   nome, sexo, nome_alto : caractere
   alt, peso, media_peso, perc_homens, perc_mulheres, total_peso, mais_alta : real
   n, homens, mulheres : inteiro
Inicio
   para n de 1 ate 250 faca
      escreval("NÚMERO DE CADASTRO", n)
      escreval()
      escreva("NOME: ")
      leia(nome)
      escreval()
      escreva("ALTURA: ")
      leia(alt)
      escreval()
      escreva("PESO: ")
      leia(peso)
      escreval()
      escreva("SEXO (M) MASCULINO (F) FEMININO :")
      leia(sexo)
      escreval()

      se sexo = "M" então
         homens <- homens + 1
      senao
         se sexo = "F" então
            mulheres <- mulheres + 1
         fimse
      fimse

      total_peso <- total_peso + peso

      se (alt > mais_alta) então
         mais_alta <- alt
         nome_alto <- nome
      fimse
   fimpara
   media_peso <- total_peso / 250
   perc_homens <- homens / 250 * 100
   perc_mulheres <- mulheres / 250 * 100

   escreval("HOMENS: ", homens, perc_homens:3:2, "%")
   escreval("MULHERES: ", mulheres, perc_mulheres:3:2, "%")
   escreval("MÉDIA DE PESO DOS CADASTRADOS: ", media_peso:3:2)
   escreval("CADASTRADO MAIS ALTO(A): ", nome_alto)


Fimalgoritmo

Eu resolvi dessa maneira:

Algoritmo "exercício 1"
Var
   n,inter_1, inter_2, inter_3, inter_4 : inteiro
   i : caractere

Inicio
   enquanto n > -1 faca
      escreva("INSIRA UM NÚMERO, PARA FINALIZAR DIGITE UM NÚMERO NEGATIVO:  ")
      leia(n)
      escreval()
      se (n >= 0) e (n < 25) então
         inter_1 <- inter_1 + 1
      fimse

      se (n >= 25) e (n < 50) então
         inter_2 <- inter_2 + 1
      fimse

      se (n >= 50) e (n < 75) então
         inter_3 <- inter_3 + 1
      fimse

      se (n >= 75) e (n <= 100) então
         inter_4 <- inter_4 + 1
      fimse
   fimenquanto

   escreval(i:13, "TABELA DE INTERVALOS")
   escreval("|  0 a 25  |  25 a 50  |  50 a 75  |  75 a 100  |")
   escreval("|  ", inter_1:6, "  |   ", inter_2:6, "  |   ", inter_3:6, "  |   ", inter_4:7, "  |")

Fimalgoritmo