LP1 (lista 05 part.2 - vetores) exercicios e resolucao

Prévia do material em texto

Lista de exercício 2 de vetores 
 
1. Desenvolva um algoritmo que leia um vetor de 20 posições inteiras e os coloque em ordem 
crescente, utilizando a seguinte estratégia de ordenação. 
a. Selecione o elemento do vetor de 20 posições que apresente o menor valor 
b. Troque este elemento pelo primeiro; 
c. Repita estas operações, envolvendo agora os 19 elementos restantes (selecionando o menor 
valor com a segunda posição), depois os 18 elementos (trocando o de menor valor com a 
terceira posição),depois os 17 , os 16 e assim por diante, até restar um único elemento maior 
deles. 
 
2. Desenvolva um algoritmo que leia um vetor de 20 posições inteiras e os coloque em ordem 
crescente, utilizando a estratégia de ordenação a comparação de pares de elementos 
adjacentes, permutando-os quando estiverem fora da ordem, até que todos estejam ordenados 
 
algoritmo "exe 01" 
var 
a,b: vetor [1..20] de inteiro 
i,j,menor: inteiro 
inicio 
escreval ("Entre com 20 variaveis para um vetor: ") 
para i de 1 ate 20 faca 
 leia (a[i]) 
fimpara 
para j de 1 ate 20 faca 
 menor<-9999 
 para i de 1 ate 20 faca 
 se (a[i]<menor)e(j>1) entao 
 se ((a[i]>b[j-1])) entao 
 menor<-a[i] 
 fimse 
 senao 
 se (a[i]<menor)e(j=1) entao 
 menor<-a[i] 
 fimse 
 fimse 
 b[j]<-menor 
 fimpara 
fimpara 
para j de 1 ate 20 faca 
 escreva (b[j]) 
fimpara 
fimalgoritmo 
 
algoritmo "exe 02" 
var 
a: vetor [1..20] de inteiro 
i,j,aux: inteiro 
inicio 
escreval("Entre com 20 posicoes para um vetor: ") 
para i de 1 ate 20 faca 
 leia(a[i]) 
fimpara 
para j de 1 ate 20 faca 
 para i de 2 ate 20 faca 
 se (a[i]<a[i-1]) entao 
 aux<-a[i] 
 a[i]<-a[i-1] 
 a[i-1]<-aux 
 fimse 
 fimpara 
fimpara 
para i de 1 ate 20 faca 
 escreva(a[i]) 
fimpara 
fimalgoritmo