OBS.: MUITO CUIDADO COM O COPIAR E COLAR. ESPECIALMENTE COM OS ESPAÇOS E AS ASPAS.
//programa para armazenar o peso de 5 caixas e retornar o peso total. armazenamento em vetor
algoritmo “caixavetor”
var
pesos: vetor[1..5] de inteiro
i,pt:inteiro
inicio
pt<-0
para i de 1 ate 5 faca
escreval(”digite os elementos do vetor”)
leia(pesos[i])
pt<-pt+pesos[i]
fimpara
escreval(”elementos do vetor”)
para i de 1 ate 5 faca
escreval(pesos[i])
fimpara
escreval(”o peso total é “, pt)
fimalgoritmo
//programa para armazenar nomes num vetor e buscar um nome. informa se o nome foi achado no vetor e a posicao
algoritmo “nomevetor”
var
nomes:vetor [1..5] de literal
busca:literal
i:inteiro
inicio
para i de 1 ate 5 faca
escreval(”entre com um nome”)
leia(nomes[i])
fimpara
escreval(”digite um nome a ser localizado”)
leia(busca)
para i de 1 ate 5 faca
se (busca = nomes[i]) entao
escreval (”nome encontrado na posicao” , i)
fimse
fimpara
fimalgoritmo
//questao 13 da terceira lista
algoritmo “q13l3″
var
num,menor:inteiro
encerra:literal
inicio
menor<-10000
repita
escreval(”digite um numero”)
leia(num)
se (num < menor) entao
menor <-num
fimse
escreval(”quer encerrar? s=sim ou n=nao”)
leia(encerra)
enquanto (encerra <> “s”) e (encerra <>”n”) faca
escreval(”Letra invalida. Responda novamente: quer encerrar? s=sim ou n=nao”)
leia(encerra)
fimenquanto
ate (encerra=”s”)
escreval(”o menor foi “,menor)
fimalgoritmo
obs. este último programa não usou vetores.
Filed under: Algoritmos | Leave a Comment
No Responses Yet to “Algoritmos: programas da aula de 29/04 (vetores)”