everton.carniato

Opa, obrigado pelas dicas!! Irei estudar mais afundo e realizar testes com a dica da lista.

Antes de ler a resposta aqui consegui fazer, segue o código: algoritmo "exerc17" var nome,sexo,signo,nomePmaior,nomeAmenor:caracter altura,peso,pesomaior,alturamenor,mediapeso:real cont,dia,mes,ano,mulheres,idade,mediaid,pessoasD,pessoasG,contH,apoioH,pessoasH,aries,touro,gemeos,cancer,leao,virgem,libra,escorpiao,sagitario,capricornio,aquario,peixes:inteiro inicio mulheres:=0 idade:=0 pesomaior:=0 pessoasD:=0 alturamenor:=999999999999999999999999999999 mediapeso:=0 pessoasG:=0 apoioH:=0 pessoasH:=0 aries:=0 touro:=0 gemeos:=0 cancer:=0 leao:=0 virgem:=0 libra:=0 escorpiao:=0 sagitario:=0 capricornio:=0 aquario:=0 peixes:=0 mediaid:=0 para cont de 1 ate 40 faca escreval("|-------------------- FICHA DE INFORMAÇÕES --------------------|") escreval(" Preencha os campos abaixo:") // Nome ------------------------------------------------------------------------ escreva (" 1. Nome do aluno: ") leia(nome) escreval // Data ------------------------------------------------------------------------ escreval (" 2. Data de nascimento (DD/MM/AAAA): ") escreva(" Dia: ") leia(dia) escreva(" Mês: ") leia(mes) escreva(" Ano: ") leia(ano) REPITA Se (dia<1) ou (dia>31) então escreva(" Dia inválido, insira novamente: ") leia(dia) fimse se (mes<1) ou (mes>12) então escreva(" Mês inválido, insira novamente: ") leia(mes) fimse se (ano<1900) então escreva(" Ano inválido, insira novamente: ") leia(ano) fimse ATE (dia>=1) e (dia<=31) e (mes>=1) e (mes<=12) e (ano>=1900) ENQUANTO ((mes=2) e (ano mod 4=0) e (dia>29)) ou ((mes=2) e (ano mod 4<>0) e (dia>28)) faca se (mes=2) então se (ano mod 4<>0) e (dia>28) então escreva(" Dia inválido, insira novamente: ") leia(dia) senao se (ano mod 4=0) e (dia>29) então escreva(" Dia inválido, insira novamente: ") leia(dia) fimse fimse fimse fimenquanto ENQUANTO ((mes=4) ou (mes=6) ou (mes=9) ou (mes=11)) e (dia>30) faca se (mes=4) e (dia>30) então escreva(" Dia inválido, insira novamente: ") leia(dia) fimse se (mes=6) e (dia>30) então escreva(" Dia inválido, insira novamente: ") leia(dia) fimse se (mes=9) e (dia>30) então escreva(" Dia inválido, insira novamente: ") leia(dia) fimse se (mes=11) e (dia>30) então escreva(" Dia inválido, insira novamente: ") leia(dia) fimse fimenquanto escreval //b) média de idade dos alunos se (dia>15) e (mes>4) então idade:=2018-ano-1 senao idade:=2018-ano fimse mediaid:=mediaid+idade //g) percentual de pessoas que nasceram em ano BISSEXTO se (ano mod 4=0) então pessoasG:=pessoasG+1 fimse //h) quantidade de pessoas que nasceram em dias PRIMO para contH de 1 ate dia faca se (dia mod contH=0) então apoioH:=apoioH+1 fimse fimpara se (apoioH=2) então pessoasH:=pessoasH+1 fimse // Sexo ------------------------------------------------------------------------ repita escreva (" 3. Sexo (F/M/O): ") leia(sexo) escolha sexo caso "M" caso "F" caso "O" outrocaso escreval("Informe um sexo válido.") fimescolha ate (sexo="F") ou (sexo="M") ou (sexo="O") escreval //a)Percentual de alunos do sexo feminino SE (sexo="F") então mulheres:=mulheres+1 fimse // Signo ----------------------------------------------------------------------- se (dia>=21) e (dia<=31) e (mes=3) ou (dia>=1) e (dia<=19) e (mes=4) então signo:="Áries" aries:=aries+1 senao se (dia>=20) e (dia<=30) e (mes=4) ou (dia>=1) e (dia<=20) e (mes=5) então signo:="Touro" touro:=touro+1 senao se (dia>=21) e (dia<=31) e (mes=5) ou (dia>=1) e (dia<=21) e (mes=6) então signo:="Gêmeos" gemeos:=gemeos+1 senao se (dia>=22) e (dia<=30) e (mes=6) ou (dia>=1) e (dia<=22) e (mes=7) então signo:="Câncer" cancer:=cancer+1 senao se (dia>=23) e (dia<=31) e (mes=7) ou (dia>=1) e (dia<=22) e (mes=8) então signo:="Leão" leao:=leao+1 senao se (dia>=23) e (dia<=31) e (mes=8) ou (dia>=1) e (dia<=22) e (mes=9) então signo:="Virgem" virgem:=virgem+1 senao se (dia>=23) e (dia<=30) e (mes=9) ou (dia>=1) e (dia<=22) e (mes=10) então signo:="Libra" libra:=libra+1 senao se (dia>=23) e (dia<=31) e (mes=10) ou (dia>=1) e (dia<=21) e (mes=11) então signo:="Escorpião" escorpiao:=escorpiao+1 senao se (dia>=22) e (dia<=30) e (mes=11) ou (dia>=1) e (dia<=21) e (mes=12) então signo:="Sagitário" sagitario:=sagitario+1 senao se (dia>=22) e (dia<=31) e (mes=12) ou (dia>=1) e (dia<=19) e (mes=1) então signo:="Capricórnio" capricornio:=capricornio+1 senao se (dia>=20) e (dia<=31) e (mes=1) ou (dia>=1) e (dia<=18) e (mes=2) então signo:="Aquário" aquario:=aquario+1 senao se (dia>=19) e (dia<=29) e (mes=2) ou (dia>=1) e (dia<=20) e (mes=3) então signo:="Peixes" peixes:=peixes+1 fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse escreval(" 4. Signo: ",signo) escreval // Altura ---------------------------------------------------------------------- escreva(" 5. Altura(m): ") leia(altura) REPITA se (altura<=0) então escreva(" Altura inválida, insira novamente: ") leia(altura) fimse ATE (altura>0) escreval // d) quantidade de pessoas do signo de GEMEOS abaixo de 1,75m de altura se (signo="Gêmeos") e (altura<1.75) então pessoasD:=pessoasD+1 fimse // e) nome e altura da pessoa mais baixa se (altura<alturamenor) então alturamenor:=altura nomeAmenor:=nome fimse // Peso ------------------------------------------------------------------------ escreva(" 6. Peso: ") leia(peso) repita se (peso<=0) então escreva(" Peso inválido, insira novamente: ") leia(peso) fimse ate (peso>0) //c) nome e peso da pessoa mais pesada do sexo masculino se (sexo="M") e (peso>pesomaior) então pesomaior:=peso nomepmaior:=nome fimse // f) média aritmética de peso de todos os alunos entrevistados mediapeso:=mediapeso+peso //------------------------------------------------------------------------------ limpatela fimpara // Respostas ------------------------------------------------------------------- escreval("|-------------------- RESULTADOS --------------------|") escreval escreval(" a) Percentual de alunos do sexo feminino: ",(10*mulheres)/4,"%;") escreval(" b) Média de idade dos alunos: ",mediaid/40," anos;") escreval(" c) Nome e peso da pessoa mais pesada do sexo masculino: ",nomepmaior," pesa",pesomaior," kg;") escreval(" d) Quantidade de pessoas do signo de gêmeos abaixo de 1,75m de altura: ",pessoasD," ;") escreval(" e) Nome e altura da pessoa mais baixa: ",nomeAmenor," mede",alturamenor," m;") escreval(" f) Média aritmética de peso de todos os alunos entrevistados: ",mediapeso/40," kg;") escreval(" g) Percentual de pessoas que nasceram em ano BISSEXTO: ",(10*pessoasG)/4,"%;") escreval(" h) Quantidade de pessoas que nasceram em dias PRIMO: ",pessoasH,";") escreval(" j) Quantidade de alunos por signo: ") escreval(" -Áries: ",aries) escreval(" -Touro: ",touro) escreval(" -Gêmeos: ",gemeos) escreval(" -Câncer: ",cancer) escreval(" -Leão: ",leao) escreval(" -Virgem: ",virgem) escreval(" -Libra: ",libra) escreval(" -Escorpião: ",escorpiao) escreval(" -Sagitário: ",sagitario) escreval(" -Capricórnio: ",capricornio) escreval(" -Aquário: ",aquario) escreval(" -Peixes: ",peixes) fimalgoritmo

ENUNCIADO: Uma universidade deseja saber algumas informações estatísticas referente a uma sala de aula com 40 alunos. Para isso, fora elaborado um questionário contendo as seguintes perguntas: - Nome do aluno - Data de nascimento (DD/MM/AAAA) - Sexo (F/M/O) - Signo - Altura - Peso Desta forma, deseja-se apresentar no final as seguintes informações: a) Percentual de alunos do sexo Feminino média de idade dos alunos c) nome e peso da pessoa mais pesada do sexo masculino d) quantidade de pessoas do signo de GEMEOS abaixo de 1,75m de altura e) nome e altura da pessoa mais baixa f) média aritmética de peso de todos os alunos entrevistados g) percentual de pessoas que nasceram em ano BISSEXTO h) quantidade de pessoas que nasceram em dias PRIMO J) quantidade de alunos por signo -------------------------------------------------------------------------------------------------- Eu vi depois o erro, mas agora já estou usando o "SE", porém não estou conseguindo, ele trava o visualg toda vez que executo, só preciso validar a entrada da data de nascimento. Para os meses que só tiverem 30 dias, não permitir inserir 31, e para quando o ano não for bissexto, não permitir que insira o dia 29 em fevereiro. segue o código que estou tentando: <code> algoritmo "exerc17" var nome,sexo,signo:caracter altura:real peso,cont,dia,mes,ano:inteiro inicio escreval("|-------------------- FICHA DE INFORMAÇÕES --------------------|") escreval(" Preencha os campos abaixo:") // Nome ------------------------------------------------------------------------ escreva (" 1. Nome do aluno: ") leia(nome) escreval // Data ------------------------------------------------------------------------ escreval (" 2. Data de nascimento (DD/MM/AAAA): ") repita escreva(" Dia: ") leia(dia) se (dia<1) ou (dia>31) então escreval("Dia inválido.") fimse ate (dia>=1) e (dia<=31) repita escreva(" Mês: ") leia(mes) se (mes<1) ou (mes>12) então escreval("Mês inválido.") fimse ate (mes>=1) e (mes<=12) repita escreva(" Ano: ") leia(ano) se (ano<1900) ou (ano>2100) então escreval("Ano inválido.") fimse ate (ano>=1900) e (ano<=2100) //--- repita se (mes=4) e (dia>30) então escreva("Dia inválido, insira novamente: ") leia(dia) fimse se (mes=6) e (dia>30) então escreva("Dia inválido, insira novamente: ") leia(dia) fimse se (mes=9) e (dia>30) então escreva("Dia inválido, insira novamente: ") leia(dia) fimse se (mes=11) e (dia>30) então escreva("Dia inválido, insira novamente: ") leia(dia) fimse se (mes=2) e (dia>29) então escreva("Dia inválido, insira novamente: ") leia(dia) fimse ate ((mes=4) e (dia<=30)) ou ((mes=6) e (dia<=30)) ou ((mes=9) e (dia<=30)) ou ((mes=11) e (dia<=30)) ou ((mes=2) e (dia<=29)) fimalgoritmo

Alguém me ajuda, estou fazendo validação da data de nascimento usando switch case, considerando ano bissexto também, mas está dando esse erro que esperava uma expressão do tipo inteiro... Não estou conseguindo ver onde tem erro... Por favor, se alguém puder me ajuda, agradeço.