{ Mostrar os resultados de uma pesquisa sobre um novo suco, referente o sabor do mesmo e
tipo de embalagem fornecido por três equipes diferentes, dados como entrada opções de
escolhas e notas.
José Carlos da Silva
maio/2011 }
algoritmo
declare
i, pergunta1, somaValor1, somaValor2, somaValor3, notaSabor, somaNota2, equipes,
somaNota123, equipes1, equipes2, equipe3, outraResp, porcSim, porNao, cont,
porcOutraResp: inteiro
mediaNao: real
{ Inicialização das variáveis }
i = 0
somaValor1 = 0
somaValor2 = 0
somaValor3 = 0
somaNota123 = 0
somaNota2 = 0
equipe1 = 0
equipe2 = 0
equipe3 = 0
outraResp = 0
mediaNao = 0
porcSim = 0
porcNao = 0
cont = 0
porcOutraResp = 0
{ Apresentação do problema }
escreva (Mostrar resultados de pesquisa sobre: o sabor e embalagens de um novo suco)
escreva (Regras para as perguntas da pesquisa)
escreva (Pergunta1 digite: sim = 1 / não = 2 / outra resposta = 3 / parar pesquisa = 4)
escreva (Pergunta2 digitar notas: de 0 (ruim) até 10 (excelente))
escreva (Pergunta3 digitar: Equipe1 = 1 / equipe2 = 2 / equipe3 = 3 / outras resp. = 4)
faça
i <- i + 1
leia (pergunta1)
se pergunta1 = 1 ou pergunta1 = 2 ou pergunta1 = 3 então
cont <- cont + 1
fim-se
se pergunta1 >= 4 então
interrompe o fluxo
fim-se
se pergunta = 1 então
somaValor1 <- somaValor1 + 1
fim-se
se pergunta1 = 2 então
somaValor2 <- somaValor2 + 1
fim-se
se pergunta1 = 3 então
somaValor3 <- somaValor3 + 1
fim-se
faça
leia (notaSAbor)
enquanto notaSabor >= 11
se pergunta1 = 2 então
somaNota2 <- somaNota2 + notaSabor
fim-se
se somaValor2 = 0 e somaNota2 = 0 então
mediaNao <- 0
fim-se
senão
mediaNao <- (real) somaNota2 / somaValor2
fim-senão
somaNota123 <- somaNota123 + notaSabor
faça
leia (equipes)
enquanto equipes >= 5
se equipes = 1 então
equipe1 <- equipe1 + 1
fim-se
se equipes = 2 então
equipe2 <- equipe2 + 1
fim-se
se equipes = 3 então
equipe3 <- equipe3 + 1
fim-se
se equipe = 4 então
outraResp <- outraResp + 1
fim-se
enquanto pergunta1 <= 3
se pergunta1 >= 4 e cont = 0 então
escreva (Pesquisa encerrada sem nemhum dado enserido)
fim-se
senão
porcSim <- (real)(somaValor1 * 100) / (i-1)
porcNao <- (real)(somaValor2 * 100) / (i-1)
porcOutraResp = (float)(somaValor3 * 100) / (i-1)
escreva (Total de pessoas entrevistadas: pessoas)
escreva (Resultados em porcentagem para a primeira pergunta:)
escreva (sim: % / Não: % / Outra resposta: % )
escreva (A media das notas dadas por todos para o sabor foi: (real) somaNota123 / (i-1) )
escreva (Media das notas dos que responderam NÃO na pergunta 1: )
escreva (A(s) embalagen(ns) preferida(s) pelas pessoas pesquisadas:)
se equipe1 = equipe2 e equipe1 = equipe3 então
escreva (Foram as das: Equipe 1, Equipe 2 e Equipe 3)
fim-se
se equipe1 = equipe2 e equipe1 > equipe3 então
escreva (Foram as das: Equipe1 e Equipe2)
fim-se
se equipe1 = equipe3 e equipe1 > equipe2) então
escreva (Foram as das: Equipe 1 e Equipe 3)
fim-se
se equipe2 = equipe3 e equipe2 > equipe1) então
escreva (Foram as das: Equipe 2 e Equipe 3)
fim-se
se equipe1 > equipe2 e equipe1 > equipe3 então
escreva (Foi a da: Equipe 1)
fim-se
se equipe2 > equipe1 e equipe2 > equipe3 então
escreva (Foi a da: Equipe 2)
fim-se
se equipe3 > equipe1 e equipe3 > equipe2
escreva (Foi a da: Equipe 3)
fim-se
fim-senão
fim-algoritmo