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