9) Foi feita uma pesquisa para determinar a relação entre o peso das crianças nascidas em um certo período em uma certa região e o tipo de parto.

Para tal, foram tabulados os seguintes dados para cada criança: sexo (“M” para masculino e “F” para feminino), tipo de parto (“N” para normal e “C” para cesariana) e peso (em gramas).Escreva um algoritmo que fique lendo tais dados até que o sexo informado seja vazio (“ “). Após, o algoritmo deve calcular e escrever:

a) a porcentagem de crianças nascidas de parto normal e cesariana;

b) a porcentagem de crianças do sexo masculino nascidas de parto normal e cesariana;
c) a porcentagem de crianças do sexo feminino nascidas de parto normal e cesariana;
d) a porcentagem de crianças nascidas de partos normal com peso inferior a 2 kg; e

e) a porcentagem de crianças nascidas de cesariana com peso inferior a 2Kg.

algoritmo “Parto normal ou cesariana”
var
  sexo,f,m,x: literal
  parto,n,c: literal
  peso,pn,pc,normal,cesariana,mn,mc,fn,fc: real
  a,b,j,d,l,g,h,i,p: inteiro
inicio
a<-0
b<-0
j<-0
d<-0
l<-0
g<-0
h<-0
i<-0
p<- -1
 repita
  escreva(“Digite o sexo (m/f) ou x para terminar: “)
  leia(sexo)
  se (sexo=”m”)entao
    escreva(“Digite o tipo de parto (n/c): “)
    leia(parto)
      se (parto=”n”)entao
        a<-a+1
        escreva(“Digite o peso em gramas: “)
        leia(peso)
        se (peso<2000)entao
          b<-b+1
        fimse
      senao
        j<-j+1
        escreva(“Digite o peso em gramas: “)
        leia(peso)
        se (peso<2000)entao
          d<-d+1
        fimse
      fimse
  fimse
  se (sexo=”f”)entao
    escreva(“Digite o tipo de parto (n/c): “)
    leia(parto)
    se (parto=”n”)entao
      l<-l+1
      escreva(“Digite o peso em gramas: “)
      leia(peso)
      se (peso<2000)entao
        g<-g+1
      fimse
    senao
      h<-h+1
      escreva(“Digite o peso em gramas: “)
      leia(peso)
      se(peso<2000)entao
        i<-i+1
      fimse
    fimse
  fimse
 p<-p+1
 ate (sexo=”x”)
  normal<-(a+l)*100/p
  cesariana<-(j+h)*100/p
  mn<-a*100/p
  mc<-j*100/p
  fn<-l*100/p
  fc<-h*100/p
  pn<-(b+g)*100/p
  pc<-(d+i)*100/p
 escreval(“Porcentagem de crianças nascidas de parto normal e cesariana: “,normal,cesariana)
 escreval(“Porcentagem de meninos nascidos de parto normal e cesariana: “,mn,mc)
 escreval(“Porcentagem de meninas nascidas de parto normal e cesariana: “,fn,fc)
 escreval(“Porcentagem de crianças nascida de parto normal com menos de 2000 gramas: “,pn:2:3)
 escreval(“Porcentagem de crianças nascidas de parto cesariana com menos de 2000 gramas: “,pc:2:3)
fimalgoritmo