Ajuda com questão sobre algoritmo

[Jeeeh]

Olá! Estou com um exercício em que devo criar um algoritmo para o seguinte problema :

Uma empresa decidiu fazer um levantamento em relação aos candidatos que se apresentarem para preenchimento de vagas no seu quadro de funcionários. Supondo que você seja o programador dessa empresa, faça um programa que:

-> Leia, para cada candidato, a idade, o sexo ( M e F ) e a experiência no serviço ( S ou N). Para encerrar a entrada de dados digite zero para a idade.

Calcule e mostre:

-> o número de candidatos do sexo feminino;

-> o número de candidatos do sexo masculino;

-> a idade média dos homens que já tem experiência no serviço;

-> a percentagem dos homens com mais de 45 anos entre o total dos homens;

-> o número de mulheres com idade inferior a 35 anos e com experiência no serviço;

-> a menor idade entre as mulheres que já tem experiência no serviço.

Fiz uma parte no VisuAlg e ficou assim, porém não sei se a linguagem está correta e o algoritmo não roda.

var
i, idade, homens, mulheres, maior, menor, mexp, funcionarios, soma: inteiro
media: real
sexo, experiencia: caractere
inicio
      soma <- 0
      media <- 0
      mexp <- 0
      mulheres <- 0
      homens <- 0
      leia (funcionarios)
      para i<-1 ate funcionarios faca
           escreva ("Entre com a idade do funcionario")
           leia (idade)
           maior <- idade
           menor <- idade
           escreva ("Agora com o sexo do funcionario <H ou M>")
           leia (sexo)
           se sexo = "M" então
              mulheres <- mulheres + 1
           senao
              homens <- homens + 1
           fimse
           escreva ("O funcionario possui experiencia no servico?")
           leia (experiencia)
           se idade < 35 e sexo = "M" e experiencia = "S" então
              mexp <- mexp + 1
           fimse
           se exp = "S" e sexo = "H" então
              soma <- soma + idade
              media <- soma/homens
           fimse
           se sexo = "M" e experiencia = "S" então
              se idade < menor então
                 menor <- idade
              fimse
           fimse
      fimpara
      escreva ("Mulheres : ", mulheres)
      escreva ("Homens : ", homens)
      escreva ("Idade media dos homens com experiencia no servico: ", media)
      escreva ("Numero de mulheres com idade inferior a 35 anos e com experiencia no servico:  ", mexp)
      escreva ("A menor idade entre mulheres que ja tem experiencia no servico e:  ", menor)
fimalgoritmo

Se alguém puder ajudar, agradeço, é urgente.

[dr4cker]

Olá Jeeeh.

Dá uma olhada no código.

var
idade, homens, mulheres, maior, menor, mexp, funcionarios, soma, mulherComExperiencia, homemAcima45: inteiro
media, percentual: real
sexo, experiencia: caractere
inicio
// Seção de Comandos
soma <- 0
media <- 0
mexp <- 0
mulheres <- 0
homens <- 0
homemAcima45 <- 0

repita    [COLOR="Red"]// Uso do repita, pois não se sabe o número exato de funcionários.[/COLOR]
   escreva ("Entre com a idade do funcionario ")
   leia (idade)
   maior <- idade
   menor <- idade
   se (idade = 0) então [COLOR="Red"]// Verificação da Idade[/COLOR]
      interrompa
   fimse
   escreva ("Agora com o sexo do funcionario <H ou M> ")
   leia (sexo)
   se sexo = "M" então
      mulheres <- mulheres + 1
   senao
      homens <- homens + 1
   fimse
   se ((sexo = "H") e (idade > 45)) então [COLOR="Red"]// Contagem de homens com mais de 45 anos[/COLOR]
      homemAcima45 <- homemAcima45 + 1
   fimse
   escreva ("O funcionario possui experiencia no servico? ")
   leia (experiencia)
   se ((idade < 35) e (sexo = "M") e (experiencia = "S")) então    /[COLOR="Red"]/ Não se esqueça de fazer o uso de parênteses nas expressões condicionais.[/COLOR]
      mexp <- mexp + 1
      mulherComExperiencia <- idade
      se (idade <= mulherComExperiencia)então [COLOR="Red"]// Menor idade das mulheres com menos de 35 anos e com experiência[/COLOR]
         mulherComExperiencia <- idade
      fimse
   fimse
   se ((experiencia = "S") e (sexo = "H")) então    [COLOR="Red"]// O erro estava aqui. A variável 'experiência' estava escrita errada, por isso não estava rodando.[/COLOR]
      soma <- soma + idade
      media <- soma/homens
   fimse
   escreval
   escreval
ate (idade <= 0)

limpatela [COLOR="Red"]// Exibir resultados em um tela limpa[/COLOR]

se (homens > 0) então [COLOR="Red"]// Se o número de homens for igual a 0 a divisão não é efetuada. Evita erros com números divididos por 0.[/COLOR]
   percentual <- (homemAcima45 / homens) * 100   [COLOR="Red"]// Cálculo do percentual de homens com mais de 45 anos[/COLOR]
senao
   percentual <- 0
fimse

escreval ("Mulheres : ", mulheres)
escreval ("Homens : ", homens)
escreval ("Idade media dos homens com experiencia no servico: ", media)
escreval ("Percentual de Homens com mais de 45 anos: ",percentual," %")
escreval ("Numero de mulheres com idade inferior a 35 anos e com experiencia no servico: ", mexp)
escreval ("A menor idade entre mulheres que ja tem experiencia no servico e: ", mulherComExperiencia)
fimalgoritmo

[Jeeeh]

Olá dr4cker.

Agora o algoritmo rodou. Me ajudou muito, de verdade. Muito obrigada.

[Goliathvv]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.