Occam Gates

Amigo agradeço, confesso que fiquei perdido na questão. Agradeço a você com sua excelente metodologia. (mas é assim mesmo, com os erros só temos a melhorar nosso aprendizado)...És um ótimo professor - parabéns.

algoritmo "busca sequencial " var j,k, vb : inteiro v : vetor[1..20] de inteiro v1: vetor [1..20] de inteiro achou : logico RESP: logico ENTER:caractere procedimento preenchevetor var j : inteiro inicio para j de 1 ate 20 faca v[j] <- randi(200) escreval(j:10,v[j]:10) fimpara fimprocedimento inicio RESP:= verdadeiro enquanto RESP = verdadeiro faca preenchevetor escreva("Entre com o valor de busca (ESC termina) :") leia(vb) j <- 1 repita se v[j] = vb entao achou <- verdadeiro senao j <- j+1 fimse ate (achou=verdadeiro) ou (j>20) se achou entao escreval("Achei ", vb , " na posição ", j) senao repita se v[j] = vb entao achou <- verdadeiro senao j <- j+1 fimse ate(achou > 0) ou (j>20) escreval(" o valor ", vb , "repetiu na posição ", j) fimse escreva ("Pressione ENTER para continuar") leia(ENTER) fimenquanto fimalgoritmo Saudações meu amigo Simon Viegas, voltei com o código ainda em construção, inclusive tentei fazer o solicitado no post #2, mas estamos quase lá ! Observe que acrescentei o repita dessa vez com "achou >0" como forma de tentar encontrar ocorrências, mas nada ainda.Desde já obrigado.

Citação: Ao tempo que agradeço a interação, deixo meu entendimento após sua excelente explicação. Fiz o que me disse, Inclusive acrescentei o vetor de modo que achou > 1, como forma de tentar fazer com que o vetor pudesse encontrar as ocorrências, mas não consegui. algoritmo "busca sequencial " var j,k, vb : inteiro v : vetor[1..20] de inteiro v1: vetor [1..20] de inteiro achou : logico RESP: logico ENTER:caractere procedimento preenchevetor var j : inteiro inicio para j de 1 ate 20 faca v[j] <- randi(200) escreval(j:10,v[j]:10) fimpara fimprocedimento inicio RESP:= verdadeiro enquanto RESP = verdadeiro faca preenchevetor escreva("Entre com o valor de busca (ESC termina) :") leia(vb) j <- 1 repita se v[j] = vb entao achou <- verdadeiro senao j <- j+1 fimse ate (achou=verdadeiro) ou (j>20) se achou entao escreval("Achei ", vb , " na posição ", j) senao repita se ( v[j] = vb) achou <- verdadeiro ate (achou > 1) ou (j>20) escreval(" Valor: ", vb , " repetiu na posição ", j)} senao} escreval("Nao achei.")} fimse fimse escreva ("Pressione ENTER para continuar") leia(ENTER) fimenquanto fimalgoritmo

Saudações galera, sou novo em programação e gostaria de suas valiosa dicas com relação a seguinte questão: Faça um programa que efetue a busca do tipo sequencial por um valor em um vetor de 200 posições, sabendo que o mesmo valor pode ocorrer mais de uma vez no vetor. O programa deve imprimir o número de ocorrências do valor de busca, caso ocorram. Obs. (O programa deve ser desenvolvido por meio da ferramenta Visualg) Comecei fazendo a questão, porém o mesmo não consegue identificar os valores repetidos no vetor. Por gentileza onde estou errando ? Segue o código do programa: algoritmo "busca sequencial " var j,k, vb : inteiro v : vetor[1..20] de inteiro v1: vetor [1..20] de inteiro achou : logico RESP: logico procedimento preenchevetor var j : inteiro inicio para j de 1 ate 20 faca v[j] <- randi(200) escreval(j:10,v[j]:10) fimpara fimprocedimento inicio RESP:= verdadeiro enquanto RESP = verdadeiro faca preenchevetor escreva("Entre com o valor de busca (ESC termina) :") leia(vb) j <- 1 repita se v[j] = vb entao achou <- verdadeiro senao j <- j+1 fimse ate (achou=verdadeiro) ou (j>20) se achou entao escreval("Achei ", vb , " na posição ", j) senao se ( v[j] = vb) entao escreval(" Valor: ", vb , " repetiu na posição ", j) senao escreval("Nao achei.") fimse fimse fimenquanto fimalgoritmo No mais só tenho a agradecer.