construir esse algoritmo

[giacometti 0]

55) respondeu a um questionário, que perguntava a sua idade (ID) e a opinião em relação ao filme (OP), seguindo os seguintes critérios:

Em um cinema, certo dia, cada espectador

Opinião Significado

A Ótimo

B Bom

C Regular

D Ruim

E Péssimo

 

A entrada de dados sobre a opinião deve ser validada.

O final da pesquisa será indicado quando a idade do usuário for informada como negativa (idade inexistente).

Construa um programa que, lendo esses dados, calcule e apresente:

• Quantidade de pessoas que respondeu a pesquisa

• Média de idade das pessoas que responderam a pesquisa

• Porcentagem de cada uma das respostas

 

 

fiz um aki mas nao esta dando certo e falta calcula porcentagem

[giacometti 0]

aqui e ate onde eu cheguei se alguem poder me orientar

 

 

 

 

algoritmo "exercicio 55"

 

var

id,somaid,mediaid,cont:inteiro

op,opA,opB,opC,opD,opE:caractere

porcentagem:real

 

 

inicio

cont<-1

id<-1

 

enquanto (id)>0 faca

escreva("digite sua idade: ")

leia(id)

se (id)>0 entao

escreval("digite A para otimo")

escreval("digite B para bom")

escreval("digite C para regular")

escreval("digite D para ruim")

escreval("digite E para pessimo")

leia (op)

 

se op="A" entao

op<-opA

opA<-op+1

se op="B" entao

opB<-op

opB<-op+1

se op="C" entao

opC<-op+1

se op="D" entao

opD<-op+1

se op="E" entao

opE<-op+1

enquanto (op<>"A")ou(op<>"B")ou(op<>"C")ou(op<>"D")ou(op<>"E") faca

escreva("digite um valor letra valida : ")

leia (op)

 

cont<-cont+1

somaid<-id

somaid<-id+somaid

mediaid<-somaid

mediaid<-mediaid/cont

fimenquanto

fimse

fimse

fimse

fimse

fimse

fimse

fimenquanto

escreval("quantidade de pessoas que responderam a pesquisa : ",cont)

escreval("media de idade das pessoas : ",mediaid)

fimalgoritmo

[quitZAUMMM 18]

oq acha q falta?

tem ideia de como implementar?

 

[]s

[Armando Nogueira 0]

Olá Amigo,

 

veja se ajuda.

 

[]'s

 

algoritmo "exercicio 55"

var
contador_a,contador_b,contador_c,contador_d,contagem_total_de_espectadores:inteiro
continuar,op:caractere
percent_a,percent_b,percent_c,percent_d,contagem_total_das_idades:real


inicio
	faca
		escreva("Informe a idade: ");
		leia(idade);
			se (idade < 0 )entao
				escreva("Idade incorreta!");
			senao
				escreva("Informe a opnião do espectador:");
				leia (op);
				escolha(op)
					caso(op=='A')entao
						contador_a = contador_a + 1;
						parar;
					caso(op=='B')entao
						contador_b = contador_b + 1;
						parar;
					caso(op=='C')entao
						contador_c = contador_c + 1;
						parar;
					caso(op=='D')entao
						contador_d = contador_d + 1;
						parar;
				fimescolha;
				
				contagem_total_de_espectadores = contagem_total_de_espectadores + 1;
				contagem_total_das_idades = contagem_total_das_idades + idade;
			fimse;
		escreva("Continuar 'S' Sim ou 'N' Não ? ");
		leia(continuar);
	enquanto((continuar<>"N") OU (continuar<>"n") );
	
	media_das_idades = (contagem_total_das_idades/contagem_total_de_espectadores);
	
	escreva("O Total de espectadores é: ", contagem_total_de_espectadores);
	escreva("A média de idade dos espectadores é: ", media_das_idades);	
	
	percent_a = (contador_a/100);percent_b = (contador_b/100);
	percent_c = (contador_c/100);percent_d = (contador_d/100);
	
	escreva("O Total de opniões do tipo A: ", percent_a,"%");
	escreva("O Total de opniões do tipo B: ", percent_b,"%");
	escreva("O Total de opniões do tipo C: ", percent_c,"%");
	escreva("O Total de opniões do tipo D: ", percent_d,"%");
	

fim
 :thumbsup: