Lógica de Programação - Exercício vetor respondido

Prévia do material em texto

Aluno : Fabrício de Medeiros 
 
1. Crie um algoritmo que carregue um vetor de 5 posições após o carregamento exiba a quantidade de 
número pares e a quantidade de números ímpares. 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 19/05/2015 
// Seção de Declarações 
var 
numero : vetor[1..5] de inteiro 
i,par,impar : inteiro 
inicio 
// Seção de Comandos 
para i de 1 ate 5 faca 
 escreva("Digite um número : ") 
 leia(numero[i]) 
 se (numero[i] % 2 = 0) entao 
 par <- par + 1 
 senao 
 impar <- impar + 1 
 fimse 
fimpara 
escreval("Números pares : ",par) 
escreval("Números impares : ",impar) 
fimalgoritmo 
 
2. Elabore um algoritmo que carregue vetor de 10 posições e exiba no final a soma de todos os 
números existentes. 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 19/05/2015 
// Seção de Declarações 
var 
numero : vetor[1..10] de inteiro 
i,soma : inteiro 
inicio 
// Seção de Comandos 
para i de 1 ate 10 faca 
 escreva("Digite um número : ") 
 leia(numero[i]) 
 soma <- soma + numero[i] 
fimpara 
escreval("A soma de todos os números : ",soma) 
fimalgoritmo 
 
3. Elabore um algoritmo que carregue vetor de 10 posições. Informe “PESQUISABEM SUCEDIDA” 
se encontrar um número igual a 1994 dentro do vetor, ou “PESQUISA MAL SUCEDIDA” se não 
encontrar. 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 19/05/2015 
// Seção de Declarações 
var 
ano : vetor[1..10] de inteiro 
i,cont1,cont2 : inteiro 
inicio 
// Seção de Comandos 
para i de 1 ate 10 faca 
 escreva("Digite o ano : ") 
 leia(ano[i]) 
 se (ano[i] = 1994) entao 
 cont1 <- cont1 + 1 
 senao 
 cont2 <- cont2 + 1 
 fimse 
fimpara 
se (cont1 > 0) entao 
 escreva("PESQUISA BEM SUCEDIDA ") 
senao 
 escreva("PESQUISA MAL SUCEDIDA") 
fimse 
fimalgoritmo 
 
4. Percorrer um vetor de 7 elementos numéricos e verificar se existe número igual a 30. Se existirem, 
escrever a posição em que está armazenado. (Imaginando não ter números repetidos). 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 19/05/2015 
// Seção de Declarações 
var 
numero : vetor[1..7] de inteiro 
i,aux : inteiro 
inicio 
// Seção de Comandos 
para i de 1 ate 7 faca 
 escreva("Digite um número : ") 
 leia(numero[i]) 
fimpara 
limpatela 
para i de 1 ate 7 faca 
 se (numero[i] = 30) entao 
 escreva("Posição : [",i,"] = ",numero[i]) 
 fimse 
fimpara 
fimalgoritmo 
 
5. Construa um algoritmo que carregue um vetor de 5 posições e determine e exiba o MAIOR valor 
encontrado. 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 19/05/2015 
// Seção de Declarações 
var 
numero : vetor[1..5] de inteiro 
i,maior : inteiro 
inicio 
// Seção de Comandos 
para i de 1 ate 5 faca 
 escreva("Digite um número : ") 
 leia(numero[i]) 
 se (numero[i] > maior) entao 
 maior <- numero[i] 
 fimse 
fimpara 
escreva("Maior número encontrado : ",maior) 
fimalgoritmo 
 
6. Construa um algoritmo que carregue um vetor de 5 posições numérico, e preencha um segundo 
vetor que deverá possuir apenas os elementos pares. Ao final do exiba a quantidade de posições 
preenchidas no segundo vetor. 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 19/05/2015 
// Seção de Declarações 
var 
numero : vetor[1..5] de inteiro 
numeroPar : vetor[1..5] de inteiro 
i : inteiro 
inicio 
// Seção de Comandos 
para i de 1 ate 5 faca 
 escreva("Digite um número : ") 
 leia(numero[i]) 
 se(numero[i] % 2 = 0) entao 
 numeroPar[i] <- numero[i] 
 fimse 
fimpara 
para i de 1 ate 5 faca 
 escreval("Vetor com números pares : [",i,"]",numeroPar[i]) 
fimpara 
fimalgoritmo