Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- algoritmo Ogalvao()
- declare ncp, m, f, vin4:inteiro;
- declare s:literal;
- escreva("Informe o número de crianças nascidas no período: ");
- leia(ncp);
- vin4 <- 0;
- faca
- escreva("Informe o sexo [M/F]: ");
- leia(s);
- se (s <> 'vazio') entao
- se (s == m) entao
- m <- m + 1;
- senao
- f <- f + 1;
- fimse
- escreva("Informe o número de meses de vida da criança: ");
- leia(mv);
- se (mv <= 24) entao
- vin4 <- vin4 + 1;
- fimse
- fimse
- enquanto (s != 'vazio')
- escreval("A porcentagem de crianças mortas nesse período é: ", (((m+f)*100))/ncp));
- escreval("A porcentagem de crianças do sexo masculino, mortas nesse período é: ", (((m)*100))/ncp));
- escreval("A porcentagem de crianças que viveram 24 meses ou menos é: ", (((vin4)*100))ncp));
- fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement