[Duvida] Porcentagem

[HelderMacedo 0]

Bom dia, estou com duvida como a porcentagem de aprovação e desaprovação da questão abaixo, poderiam me ajudar?

 

- Implemente um algoritmo que receba como entrada as quantidades de pessoas do sexo masculino e feminino que aprovaram e que não aprovaram o lançamento de um determinado produto, Em seguida calcule:

a. O número total de pessoas entrevistadas

b. O percentual de aprovação e desaprovação

c. O percentual de mulheres entrevistadas

 

fiz o seguinte código

 

Var
// Seção de Declarações das variáveis
masculinoAp, masculinoDesa, femininoAp, femininoDesa, totalPessoas:inteiro
totalAp, totalDesa, percAp, percDesa :real
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreval("Pessoas do sexo masculino que aprovam ")
leia(masculinoAp)
escreval("pessoas do sexo masculino que não aprovam ")
leia(masculinoDesa)
escreval("Pessoas do sexo feminino que aprovam ")
leia(femininoAp)
escreval("Pessoas do sexo feminino que não aprovam")
leia(femininoDesa)

totalPessoas <- masculinoAp + masculinoDesa + femininoAp + femininoDesa
totalAp <- masculinoAp + femininoAp
totalDesa <- masculinoDesa + femininoDesa
percAp <- (totalPessoas / totalAp) * 100
percDesa <- (totalPessoas / totalDesa ) * 100

//Saida de dados
escreval("Total de pessoas entrevistadas ",totalPessoas)
escreval("Porcentual Aprovados ",percAp)
escreval("Porcentual de pessoas que não aprovam ",percDesa)

[snowstormdelivery 19]

Você só errou em colocar a divisão ao contrário:

percAp <- (totalPessoas / totalAp) * 100
percDesa <- (totalPessoas / totalDesa ) * 100

Inverta esta divisão acima e tudo dará certo.