Se quiser, baixe esse app ¬ Visualg, copie o código, cole, teste, altere, treine, seja feliz! Sorria! Mesmo, se o mudo fizer careta (RS!).
Exercícios
algoritmo "Seletor de Pessoas"
var
sexo, resp: caractere
idade, cabelo, TotH18, TotM25: inteiro
idade, cabelo, TotH18, TotM25: inteiro
inicio
Repita
LimpaTela
EscrevaL("------------------------------------")
EscrevaL(" RESULTADO FINAL ")
EscrevaL("------------------------------------")
EscrevaL("Total de homens com mais de 18 e cabelos castanhos ", TotH18)
EscrevaL("Total de mulheres entre 25 e 30 e cabelos loiros ", TotM25)
LimpaTela
EscrevaL("==========================")
EscrevaL(" SELETOR DE PESSOAS ")
EscrevaL("==========================")
Escreva("Qual o Sexo? [M/F] ")
Leia(sexo)
Escreva("Qual a idade? ")
Leia(idade)
EscrevaL("Qual a cor do Cabelo?")
EscrevaL("---------------------")
EscrevaL("[1] Preto")
EscrevaL("[2] Castanho")
EscrevaL("[3] Loiro")
EscrevaL("[4] Ruivo")
Leia(cabelo)
Se (sexo = "M") e (idade > 18) e (cabelo = 2) entao
Leia(resp)
Ate (resp = "N")
EscrevaL("==========================")
EscrevaL(" SELETOR DE PESSOAS ")
EscrevaL("==========================")
Escreva("Qual o Sexo? [M/F] ")
Leia(sexo)
Escreva("Qual a idade? ")
Leia(idade)
EscrevaL("Qual a cor do Cabelo?")
EscrevaL("---------------------")
EscrevaL("[1] Preto")
EscrevaL("[2] Castanho")
EscrevaL("[3] Loiro")
EscrevaL("[4] Ruivo")
Leia(cabelo)
Se (sexo = "M") e (idade > 18) e (cabelo = 2) entao
TotH18 <- TotH18 + 1
FimSe
Se (sexo = "F") e ((idade >= 25) e (idade <= 30)) e (cabelo = 3) entao
Escreva("Quer continuar? [S/N] ")
TotM25 <- TotM25 + 1
FimSe
Leia(resp)
LimpaTela
EscrevaL("------------------------------------")
EscrevaL(" RESULTADO FINAL ")
EscrevaL("------------------------------------")
EscrevaL("Total de homens com mais de 18 e cabelos castanhos ", TotH18)
EscrevaL("Total de mulheres entre 25 e 30 e cabelos loiros ", TotM25)