Criar um algoritmo que dada uma sequência de n números reais, determinar os números que compõem a sequência e o número de vezes que cada um deles ocorre na mesma.
Exemplo: n = 8
Sequência:
-1.7,
3.0,
0.0,
1.5,
0.0,
-1.7,
2.3,
-1,7
Saída:
-1.7 ocorre 3 vezes
3.0 ocorre 1 vez
0.0 ocorre 2 vezes
1.5 ocorre 1 vez
2.3 ocorre 1 vez
Fiz no VisualG Código:
ALGORITMO "QUESTAO 9"
VAR
C,X,SEQ,I: INTEIRO
VSR: VETOR[1..100] DE REAL
SEQUENCIA: VETOR[1..100] de REAL
INICIO
ESCREVA("QUANTOS NÚMEROS REAIS COMPÕEM A SEQUÊNCIA? ")
LEIA(SEQ)
ESCREVAL("INFORME A SEQUÊNCIA: ")
PARA I DE 1 ATE SEQ FACA
LEIA(SEQUENCIA[I])
SE (SEQUENCIA[I])<>(VSR[I]) então
VSR[I]<-SEQUENCIA[I]
fimse
fimpara
para X de 1 ate SEQ faca
C <- 0
para I de 1 ate SEQ faca
se (VSR[X] = SEQUENCIA[I]) então
C <- C + 1
fimse
fimpara
escreval(VSR[X], " OCORRE ", C, " VEZES")
fimpara
escreval(" ")
escreval(VSR[X], " OCORRE ",SEQUENCIA[SEQ], " VEZES")
fimalgoritmo
Counter
da libcollections
resolve isso. Veja aquicomments
. Atualiza seu post, por favor.