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