Rogério Francisco

@Simon Viegas, deu pra enxugar e rodou beleza.

algoritmo "cadastro de pessoas"
// Função : cadastrar pessoas por idade e sexo, informar quantidade e media de idade
// Autor : Rogério
// Data : 02/06/2019
// Seção de Declarações Faça um algoritmo que solicite a digitação da idade e do sexo de uma
//pessoa (o sexo deve ser F ou M) e depois pergunte se o usuário deseja
//informar uma nova pessoa. Esse processo deve se repetir até que o usu-ário informe que não deseja mais informar novas pessoas. Quando isso
//acontecer, o algoritmo deve imprimir na tela a quantidade de pessoas do
//sexo masculino informadas; a quantidade de pessoas do sexo feminino
//informadas; a média das idades informadas para pessoas de sexo mas-culino; e a média das idades informadas para pessoas de sexo feminino.
var

sexo_f, sexo_m, idade : inteiro
inclui,sexo : literal
idade_f, idade_m : real

inicio

inclui <- ("sim")  //responsavel pelo laço (loop)
idade_f <-0 //vai armazenar a soma das idades do sexo feminino
idade_m <-0 //vai armazenar a soma das idades do sexo masculino
sexo_f  <-0 //vai armazenar a quantidade de pessoas do sexo feminino
sexo_m  <-0 //vai armazenar a quantidade de pessoas do sexo masculino
idade   <-0 //armazena a idade digitada para o sexo escolhido


enquanto inclui = ("sim")  faca  //inicio do laço
   escreva ("Digite seu sexo  ")

   leia (sexo)

   se (sexo) = ("f") entao
      sexo_f <- (sexo_f + 1) //soma quantidade de "F"
      escreva ("Digite sua idade  ")
      leia (idade)
      idade_f <- ( idade_f + idade ) //soma a idade de "F"
      escreval ("Incluir outro")

   fimse

   se sexo = ("m") entao
      sexo_m <- (sexo_m + 1)     //soma quantidade de "M"
      escreva ("Digite sua idade")
      leia (idade)
      idade_m <- (idade_m + idade) //soma a idade de "M"
      escreval ("Incluir outro")
      leia (inclui)


      se inclui = ("nao") entao
         escreval ("Media idade feminino  ",idade_f / sexo_f)   //media de idade soam das idades dividida pela quantidade de pessoas "F"
         escreval ("Media idade masculino  ",idade_m / sexo_m)  //media de idade soam das idades dividida pela quantidade de pessoas "M"
         escreva ("Pessoas do sexo feminino ",sexo_m," Pessoas do sexo masculino ", sexo_f) // Quantidade de pessoas por sexo

      fimse
   fimse
fimenquanto    //fim do laço


fimalgoritmo

@Simon Viegas

algoritmo "cadastro de pessoas"
// Função : cadastrar pessoas por idade e sexo, informar quantidade e media de idade
// Autor : Rogério
// Data : 02/06/2019
// Seção de Declarações Faça um algoritmo que solicite a digitação da idade e do sexo de uma
//pessoa (o sexo deve ser F ou M) e depois pergunte se o usuário deseja
//informar uma nova pessoa. Esse processo deve se repetir até que o usu-ário informe que não deseja mais informar novas pessoas. Quando isso
//acontecer, o algoritmo deve imprimir na tela a quantidade de pessoas do
//sexo masculino informadas; a quantidade de pessoas do sexo feminino
//informadas; a média das idades informadas para pessoas de sexo mas-culino; e a média das idades informadas para pessoas de sexo feminino.
var

sexo_f, sexo_m, idade1, idade2 : inteiro
inclui,sexo : literal
idade_f, idade_m : real

inicio

inclui <- ("sim")  //responsavel pelo laço (loop)
idade_f <-0 //vai armazenar a soma das idades do sexo feminino
idade_m <-0 //vai armazenar a soma das idades do sexo masculino
sexo_f  <-0 //vai armazenar a quantidade de pessoas do sexo feminino
sexo_m  <-0 //vai armazenar a quantidade de pessoas do sexo masculino
idade1 <- 0 //armazena a idade digitada para o sexo escolhido no caso o "F"
idade2 <- 0 //armazena a idade digitada para o sexo escolhido no caso o "M"

enquanto inclui = ("sim")  faca  //inicio do laço
   escreva ("digite seu sexo")

   leia (sexo)

   se (sexo) = ("f") entao
      sexo_f <- (sexo_f + 1) //soma quantidade de "F"
      escreva ("digite sua idade")
      leia (idade1)
      idade_f <- ( idade_f + idade1 ) //soma a idade de "F"
      escreval ("incluir outro")
      leia (inclui)     //espera o comando "sim" ou "nao"

   fimse
   // se inclui for "nao" divide a soma das idades e divide pela quantidade de pessoas de "F" e de "M"
   // por fim informa a quantidade de cada sexo, e encerra o laço fechando o programa
   se inclui = ("nao") entao
      escreval ("media idade feminino",idade_f / sexo_f:2:1)
      escreval ("media idade masculino",idade_m / sexo_m:2:1)
      escreva ("pessoas do sexo feminino ",sexo_f ,"pessoas do sexo masculino ", sexo_m)
   fimse

   se sexo = ("m") entao
      sexo_m <- (sexo_m + 1)
      escreva ("digite sua idade")
      leia (idade2)
      idade_m <- (idade2 + idade_m)
      escreval ("incluir outro")

      leia (inclui)
      se inclui = ("nao") entao
         escreval ("media idade feminino  ",idade_f / sexo_f)
         escreval ("media idade masculino  ",idade_m / sexo_m)
         escreva ("pessoas do sexo feminino ",sexo_m," pessoas do sexo masculino ", sexo_f)

      fimse
   fimse
fimenquanto


fimalgoritmo   //fim do laço

@Simon Viegas  VisuAlg

@Simon Viegas beleza, to so no começo e estou a responder os exercícios de uma apostila que baixei, estou usando o tempo vago que tenho para estudar logica. obrigado Simon.

@Simon Viegas

Obrigado pela atenção, vou fazer as alterações e posto de novo.

saudações a todos, estou entrando nessa de programação agora com 38 anos então peguem leve, hehe.

gostaria da opinião de vocês para melhorar o código.

   algoritmo "semnome"
// Função :
// Autor :
// Data : 02/06/2019
// Seção de Declarações Faça um algoritmo que solicite a digitação da idade e do sexo de uma
//pessoa (o sexo deve ser F ou M) e depois pergunte se o usuário deseja
//informar uma nova pessoa. Esse processo deve se repetir até que o usu-ário informe que não deseja mais informar novas pessoas. Quando isso
//acontecer, o algoritmo deve imprimir na tela a quantidade de pessoas do
//sexo masculino informadas; a quantidade de pessoas do sexo feminino
//informadas; a média das idades informadas para pessoas de sexo mas-culino; e a média das idades informadas para pessoas de sexo feminino.
var

    sexo_f, sexo_m, idade1, idade2 : inteiro
    inclui,sexo : literal
    idade_f, idade_m : real

inicio

      inclui <- ("sim")
      idade_f <-0
      idade_m <-0
      sexo_f  <-0
      sexo_m  <-0
      idade1 <- 0
      idade2 <- 0
      
      enquanto inclui = ("sim")  faca
      escreva ("digite seu sexo")

      leia (sexo)

      se (sexo) = ("f") entao
        sexo_f <- (sexo_f + 1)
        escreva ("digite sua idade")
        leia (idade1)
        idade_f <- ( idade_f + idade1 )
        escreval ("incluir outro")
        leia (inclui)

        fimse

        se inclui = ("nao") entao
        escreval ("media idade feminino",idade_f / sexo_f)
        escreval ("media idade masculino",idade_m / sexo_m)
        escreva ("pessoas do sexo feminino ",sexo_f ,"pessoas do sexo masculino ", sexo_m)
        fimse

         se sexo = ("m") entao
          sexo_m <- (sexo_m + 1)
          escreva ("digite sua idade")
          leia (idade2)
          idade_m <- (idade2 + idade_m)
         escreval ("incluir outro")

          leia (inclui)
           se inclui = ("nao") entao
            escreval ("media idade feminino  ",idade_f / sexo_f)
            escreval ("media idade masculino  ",idade_m / sexo_m)
            escreva ("pessoas do sexo feminino ",sexo_m," pessoas do sexo masculino ", sexo_f)

      fimse
      fimse
       fimenquanto


fimalgoritmo