Algoritmos: programas da aula de quinta

10Mai08

//programa para achar um elemento num vetor

algoritmo “vetores”
var
numeros: vetor [1..5] de inteiro
num,i:inteiro
achou: logico
inicio
achou<-falso

// rotina para preencher o vetor com seus elementos
para i de 1 ate 5 faca
escreval(”digite um numero”)
leia(numeros[i])
fimpara
//fim da rotina de preenchimento do vetor

//rotina pra mostrar os elementos do vetor
escreval(”valores do vetor”)
para i de 1 ate 5 faca
escreval(numeros[i])
fimpara
//fim da rotina de exibicao dos elementos do vetor

escreval(”digite um numero a ser buscado”)
leia(num)
// o numero num vai ser buscado dentro do vetor
para i de 1 ate 5 faca
se (num = numeros[i])entao
achou<-verdadeiro
fimse
fimpara
//fim da busca. se achou sair com o valor verdadeiro. num esta no vetor
se achou = verdadeiro entao
escreval(”o numero existe no vetor”)
senao
escreval(”o numero NAOOOOO existe no vetor”)
fimse
fimalgoritmo

// questao 14 da lista 3 usando vetores para guardar os elementos

algoritmo “q14″
var
i,j,menor,maior,n:inteiro
encerra:literal
num: vetor [1..100] de inteiro //isso aqui é so pra limitar o tamanho do vetor, obrigatorio
inicio
escreval(”digite o valor de n”)
leia(n)
maior<-n
menor<-n
i<-1
num[i]<-n
repita
escreval(”digite o valor de n”)
leia(n)
i<-i+1
num[i]<-n
se n>maior entao
maior<-n
fimse
se n<menor entao
menor<-n
fimse
escreval(”deseja encerrar? s=sim ou n=nao”)
leia(encerra)
ate (encerra=”s”)
escreval(”o maior é”, maior, “o menor é “, menor)
para j de 1 ate i faca
escreval(num[j])
fimpara
fimalgoritmo

//questao 12 da lista 3 com vetores

algoritmo “q12″
var
i,j,n,maior:inteiro
num: vetor [1..100] de inteiro
inicio
maior<-0
escreval(”digite o valor de n”)
leia(n)
i<-0
enquanto (n>=0) faca
i<-i+1
num[i]<-n //guarda no vetor na posicao i o valor n
se (n>maior) entao
maior <-n
fimse
escreval(”digite o valor de n”)
leia(n)
fimenquanto
escreval(”o maior valor é :”, maior)
para j de 1 ate i faca //vai imprimir o vetor na tela
escreval(num[j])
fimpara
fimalgoritmo

Filed under: Algoritmos   |  Leave a Comment