terça-feira, fevereiro 26, 2013

algoritmo "semnome"
var
j.k.vb:inteiro
v: vetor[1..10] de inteiro
achou : logico

procedimento preenchevetor
var j : inteiro
inicio
para j de 1 ate 10 faca
v[j] <- p="" randi="">escreva(j:5, v[j]:5)
fimpara
fimprocedimento

inicio
preenchevetor
escreva("Entre com o valor da busca (esc termina):")
leia(vb)
j<-1 p="">repita
se v[j] = vb entao
achou <- p="" verdadeiro="">senao
J<-j p="">fimse
ate (achou = verdadeiro) ou (j<10 p="">se achou entao
escreval("Achei",vb,"na posicao ",j)
seano
escreval("nao achei")
fimse
fimalgoritmo

Nenhum comentário: