Question

Faça um programa que fique em laço solicitando a digitação do estado civil (S para solteiro, C para Casado, V para viúvo ou D para Divorciado) e da idade de pessoas. O programa só deve parar de solicitar a digitação de dados de novas pessoas quando for informado um estado civil inválido (diferente de S, C, V e D) ou uma idade inválida (idade menor que 0).
Quando isso acontecer, devem ser exibidas as quantidades de pessoas de cada estado civil e a respectiva média de idade.

Answer 1

var   estado : caracter   soma_sol, result_sol, soma_cas, result_cas, soma_viu, result_viu, soma_div, result_div : real   idade, solteiro, casado, viuvo, divorciado : inteiro
inicio// Seção de Comandos   idade <- 1   estado <- "S"
   enquanto (idade > 0) e (estado = "S") ou (estado = "C") ou (estado = "V") ou (estado = "D") faca   escreva("Estado Civil S para solteiro, C para Casado, V para viúvo ou D para Divorciado? ")   leia(estado)   escreva("Idade? ")   leia(idade)      se (estado="S") entao   solteiro <- solteiro + 1   soma_sol <- soma_sol + idade   result_sol <- soma_sol/solteiro   fimse
   se (estado="C") entao   casado <- casado + 1   soma_cas <- soma_cas + idade   result_cas <- soma_cas/casado   fimse      se (estado="V") entao   viuvo <- viuvo + 1   soma_viu <- soma_viu + idade   result_viu <- soma_viu/viuvo   fimse      se (estado="D") entao   divorciado <- divorciado + 1   soma_div <- soma_div + idade   result_div <- soma_div/divorciado   fimse      fimenquanto      escreval("Estado Civil solteiro: ", solteiro)   escreval("Média idade: ", result_sol)   escreval("Estado Civil casado: ", casado)   escreval("Média idade: ", result_cas)   escreval("Estado Civil viuvo: ", viuvo)   escreval("Média idade: ", result_viu)   escreval("Estado Civil divorciado: ", divorciado)   escreval("Média idade: ", result_div)
fimalgoritmo