algoritmo "semnome"
// Função :
// Autor :
// Data : 30/5/2011
// Seção de Declarações 
var
saborSuco, totalEntrevistas, respostaSim, respostaNao, notaSim, notaNao: inteiro
somaNotaSim, somaNotaNao, outraResposta, notaOutraResposta, somaOutraResposta: inteiro
embalagem, embEquipe1, embEquipe2, embEquipe3,:inteiro
mediaSaborSuco, mediaRespostaNao: real

inicio
// Seção de Comandos

totalEntrevistas  <- 0
respostaSim       <- 0
respostaNao       <- 0
somaNotaSim       <- 0
somaNotaNao       <- 0
outraResposta     <- 0
somaOutraResposta <- 0
embEquipe1        <- 0
embEquipe2        <- 0
embEquipe3        <- 0



escreval("----------PESQUISA DE OPNIAO----------")
escreval
escreval("-------Gostou do sabor do suco-------")
escreval("Digite 1 = SIM")
escreval("Digite 2 = NAO")
escreval("Digite 3 = OUTRA RESPOSTA")
escreval("Digite 4 = FINALIZA A PESQUISA")
leia(saborSuco)

enquanto ((saborSuco = 1) ou (saborSuco = 2) ou (saborSuco = 3)) faca

    se saborSuco = 1 entao
    respostaSim <- respostaSim + 1
    totalEntrevistas <- totalEntrevistas + 1
    escreval("Qual nota daria para o sabor do suco")
    escreval("Intervalo de [0 a 10]")
    leia(notaSim)

        se (notaSim >=0) e (notaSim <=10) entao
        somaNotaSim <- somaNotaSim + notaSim
        
        senao
        escreval("nota nao eh valida")
        escreval("Digite a nota novamente")
        leia(notaSim)
        somaNotaSim <- somaNotaSim + notaSim
        fimse
    fimse
    
    se saborSuco = 2 entao
    respostaNao<- respostaNao + 1
    totalEntrevistas <- totalEntrevistas + 1
    escreval("Qual nota daria para o sabor do suco")
    escreval("Intervalo de [0 a 10]")
    leia(notaNao)
        se (notaNao >=0) e (notaNao <=10) entao
        somaNotaNao <- somaNotaNao + notaNao

        senao
        escreva1("nota nao eh valida")
        escreval("Digite a nota novamente")
        leia(notaNao)
        somaNotaNao <- somaNotaNao + notaNao
        fimse
    fimse
    
    se saborSuco = 3 entao
    outraResposta <- outraResposta + 1
    totalEntrevistas <- totalEntrevistas + 1
    escreval("Qual nota daria para o sabor do suco")
    escreval("Intervalo de [0 a 10]")
    leia(notaOutraResposta)
        se (notaOutraResposta >=0) e (notaOutraResposta <=10) entao
        somaOutraResposta <- somaOutraResposta + NotaOutraResposta

        senao
        escreva1("nota nao eh valida")
        escreval("Digite a nota novamente")
        leia(notaOutraResposta)
        somaOutraResposta <- somaOutraResposta + NotaOutraResposta
        fimse
    fimse

    escreval("Qual das embalagens mais gostou")
    escreval("Embalagem 1 = Digite 1")
    escreval("Embalagem 2 = Digite 2")
    escreval("Embalagem 3 = Digite 3")
    leia(embalagem)
    
        se (embalagem >= 4) entao
        escreval("Digite o numero da Embalagem novamente")
        fimse
            se embalagem = 1 entao
            embEquipe1 <- embEquipe1 + 1
            fimse
               se embalagem = 2 entao
               embEquipe2 <- embEquipe2 + 1
               fimse
                   se embalagem = 3 entao
                   embEquipe3 <- embEquipe3 + 1
                   fimse
                   
escreval("-------Gostou do sabor do suco-------")
escreval("Digite 1 = SIM")
escreval("Digite 2 = NAO")
escreval("Digite 3 = OUTRA RESPOSTA")
escreval("Digite 4 = FINALIZA A PESQUISA")
leia(saborSuco)

fimenquanto

// processamento das medias
mediaSaborSuco   <- (somaNotaSim + somaNotaNao + somaOutraResposta) / totalEntrevistas
mediaRespostaNao <- (somaNotaNao / respostaNao)

// RESULTADOS DA PESQUISA

escreval("-----RESULTADO DA PESQUISA-----")
escreval
escreval("Total de pessoas entrevistadas: ",totalEntrevistas)
escreval("A resposta Sim, obteve ", (respostaSim *100 / totalEntrevistas):2:2,"%")
escreval("Nota media do sabor do suco: ", mediaSaborSuco:2:2)
escreval("Nota media dos que responderam 'nao': ", mediaRespostaNao:2:2)

// CALCULOS DA EMBALAGEM PREFERIDA

se(embEquipe1 > embEquipe2) e (embEquipe2 = embEquipe3) entao
escreva("A embalagem preferida foi a da Equipe 1")
fimse
  se(embEquipe2 > embEquipe1) e (embEquipe1 = embEquipe3) entao
 escreva("A embalagem preferida foi a da Equipe 2")
 fimse
    se(embEquipe3 > embEquipe1) e (embEquipe1 = embEquipe2) entao
    escreva("A embalagem preferida foi a da Equipe 3")
    fimse
      se(embEquipe1 = embEquipe2) e (embEquipe2 > embEquipe3)entao
      escreva("As embalagens preferidas foram as da Equipe 1 e da Equipe 2")
      fimse
        se(embEquipe1 = embEquipe3) e (embEquipe3 > embEquipe2)entao
       escreva("As embalagens preferidas foram as da Equipe 1 e da Equipe 3")
       fimse
          se(embEquipe2 = embEquipe3) e (embEquipe3 > embEquipe1)entao
         escreva("As embalagens preferidas foram as da Equipe 2 e da Equipe 3")
         fimse
            se(embEquipe1 = embEquipe2) e (embEquipe2 = embEquipe3) entao
            escreva("As embalagens preferidas foram as da Equipe 1, da Equipe 2 e da Equipe 3")
            fimse


fimalgoritmo