exercicios Resolvidos VisuAlg Vetores

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

1. Faça um algoritmo que copie o conteúdo de um vetor em um segundo vetor.
algoritmo "exercicio_01"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
i:inteiro
vetA:vetor[1..5] de inteiro
vetB:vetor[1..5] de inteiro
inicio
// Seção de Comandos
// VETOR A
para i de 1 ate 5 faca
 escreval("VETOR A")
 escreva("Informe o valor da posicao: ",i,": ")
 leia(vetA[i])
fimpara
limpatela
// COPIA VETOR A PARA VETOR B
para i de 1 ate 5 faca
 vetB[i]<-vetA[i]
fimpara
//APRESENTANDO VETOR A
escreval("VETOR A")
escreval("")
para i de 1 ate 5 faca
 escreval(vetA[i])
fimpara
//APRESENTANDO VETOR B
escreval("")
escreval("VETOR B")
escreval("")
para i de 1 ate 5 faca
 escreval(vetB[i])
fimpara
fimalgoritmo
**********************************************************************************************************************************
2. Faça um algoritmo que some o conteúdo de dois vetores e armazene o resultado em um terceiro vetor.
algoritmo "exercicio_02"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
i:inteiro
vetA:vetor[1..5] de inteiro
vetB:vetor[1..5] de inteiro
vetC:vetor[1..5] de inteiro
inicio
// Seção de Comandos
// VETOR A
para i de 1 ate 5 faca
 escreval("VETOR A")
 escreva("Informe o valor da posicao: ",i,": ")
 leia(vetA[i])
fimpara
limpatela
// VETOR B
para i de 1 ate 5 faca
 escreval("VETOR B")
 escreva("Informe o valor da posicao: ",i,": ")
 leia(vetB[i])
fimpara
limpatela
// VETOR C
para i de 1 ate 5 faca
 vetC[i]<-vetA[i]+vetB[i]
fimpara
//APRESENTANDO VETOR A
escreval("VETOR A")
para i de 1 ate 5 faca
 escreval(vetA[i])
fimpara
escreval("")
escreval("")
//APRESENTANDO VETOR B
escreval("VETOR B")
para i de 1 ate 5 faca
 escreval(vetB[i])
fimpara
escreval("")
escreval("")
//APRESENTANDO SOMA DOS VETORES
escreval("SOMA DOS VETORES A e B")
para i de 1 ate 5 faca
 escreval(vetC[i])
fimpara
escreval("")
escreval("")
fimalgoritmo
**********************************************************************************************************************************
3. Faça um algoritmo que faça a união de dois vetores de mesmo tamanho e mesmo tipo em um terceiro vetor com dobro do tamanho.
algoritmo "exercicio_03"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
i:inteiro
vetA:vetor[1..3] de inteiro
vetB:vetor[1..3] de inteiro
vetC:vetor[1..6] de inteiro
inicio
// Seção de Comandos
// VETOR A
para i de 1 ate 3 faca
 escreval("VETOR A")
 escreva("Informe o valor da posicao: ",i,": ")
 leia(vetA[i])
fimpara
limpatela
// VETOR B
para i de 1 ate 3 faca
 escreval("VETOR B")
 escreva("Informe o valor da posicao: ",i,": ")
 leia(vetB[i])
fimpara
limpatela
// UNIAO DOS VETORORES A e B
// VETOR C
para i de 1 ate 3 faca
 se vetA[i] <> vetB[i] entao
 vetC[i] <- vetA[i]
 vetC[i+3]<-vetB[i]
 senao
 vetC[i] <- vetA[i]
 fimse
fimpara
escreval("VETOR A")
para i de 1 ate 3 faca
 escreval(vetA[i])
fimpara
escreval("")
escreval("")
escreval("VETOR B")
para i de 1 ate 3 faca
 escreval(vetB[i])
fimpara
escreval("")
escreval("")
escreval("UNIAO DOS VETORES A e B")
para i de 1 ate 6 faca
 escreval(vetC[i])
fimpara
escreval("")
escreval("")
fimalgoritmo
**********************************************************************************************************************************
 
4. Faça um algoritmo que leia um vetor de 20 posições a apresente o maior e o menor valor e as posições que eles se encontram.
algoritmo "exercicio_04"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
i,maior,menor,posicaomaior,posicaomenor:inteiro
numeros:vetor[1..20] de inteiro
inicio
// Seção de Comandos
para i de 1 ate 20 faca
 escreva("Informe o valor da posicao: ",i,": ")
 leia(numeros[i])
 se i=1 entao
 maior<-numeros[i]
 menor<-numeros[i]
 fimse
 
 se numeros[i]>maior entao
 maior<-numeros[i]
 posicaomaior<-i
 fimse
 
 se numeros[i]<menor entao
 menor<-numeros[i]
 posicaomenor<-i
 fimse
fimpara
escreval("")
escreval("")
escreval("O maior numero é o: ",maior," Na posicão: ",posicaomaior)
escreval("O menor numero é o: ",menor," Na posicão: ",posicaomenor)
fimalgoritmo
**********************************************************************************************************************************
5. Faça um algoritmo para somar duas matrizes.
algoritmo "exercicio_05"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
l,c:inteiro
matrizA:vetor[1..3,1..3] de inteiro
matrizB:vetor[1..3,1..3] de inteiro
matrizC:vetor[1..3,1..3] de inteiro
inicio
// Seção de Comandos
// MATRIZ A
para l de 1 ate 3 faca
 para c de 1 ate 3 faca
 escreval("MATRIZ A")
 escreva("Informe o valor da posicao: ",l,"-",c,": ")
 leia(matrizA[l,c])
 limpatela
 fimpara
fimpara
limpatela
// MATRIZ B
para l de 1 ate 3 faca
 para c de 1 ate 3 faca
 escreval("MATRIZ B")
 escreva("Informe o valor da posicao: ",l,"-",c,": ")
 leia(matrizB[l,c])
 limpatela
 fimpara
fimpara
limpatela
// MATRIZ C
para l de 1 ate 3 faca
 para c de 1 ate 3 faca
 matrizC[l,c]<-matrizA[l,c]+matrizB[l,c]
 fimpara
fimpara
escreval("MATRIZ A")
para l de 1 ate 3 faca
escreval("")
 para c de 1 ate 3 faca
 escreva(matrizA[l,c])
 fimpara
fimpara
escreval("")
escreval("")
escreval("MATRIZ B")
para l de 1 ate 3 faca
escreval("")
 para c de 1 ate 3 faca
 escreva(matrizB[l,c])
 fimpara
fimpara
escreval("")
escreval("")
escreval("A SOMA DAS MATRIZES A e B")
para l de 1 ate 3 faca
escreval("")
 para c de 1 ate 3 faca
 escreva(matrizC[l,c])
 fimpara
fimpara
escreval("")
escreval("")
fimalgoritmo
**********************************************************************************************************************************
6. Faça um algoritmo que leia uma matriz mat 2 x 3 e imprima na tela a soma de todos os elementos da matriz mat.
algoritmo "exercicio_06"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
l,c,total:inteiro
numeros:vetor[1..2,1..3] de inteiro
inicio
// Seção de Comandos
total<-0
para l de 1 ate 2 faca
 para c de 1 ate 3 faca
 escreva("Informe o valor da posicao: ",l,"-",c,": ")
 leia(numeros[l,c])
 total<-total+numeros[l,c]
 fimpara
fimpara
limpatela
para l de 1 ate 2 faca
 escreval("")
 para c de 1 ate 3 faca
 escreva(numeros[l,c])
 fimpara
fimpara
escreval("")
escreval("")
escreva("A soma da Matriz é: ",total)
escreval("")
escreval("")
fimalgoritmo
**********************************************************************************************************************************
7. Dado uma matriz de 4x5 elementos, escreva um algoritmo para calcular a soma de cada uma das linhas.
algoritmo "exercicio_07"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
l,c,total:inteiro
numeros:vetor[1..4,1..5] de inteiro
inicio
// Seção de Comandos
para l de 1 ate 4 faca
 para c de 1 ate 5 faca
 escreva("Informe o valor da posicao: ",l,"-",c,": ")
 leia(numeros[l,c])
 fimpara
fimpara
limpatela
para l de 1 ate 4 faca
 escreval("")
 para c de 1 ate 5 faca
 escreva(numeros[l,c])
 fimpara
fimpara
escreval("")
escreval("")
para l de 1 ate 4 faca
total<-0;
 para c de 1 ate 5 faca
 total<-total+numeros[l,c]
 fimpara
 escreval("A soma da linha: ",l," = ",total)
fimpara
fimalgoritmo
**********************************************************************************************************************************
8. Escreva um algoritmo para ler uma matriz de 3 linhas e 2 colunas, e determine o maior valor contido na matriz e imprima este valor e sua posição na matriz. 
algoritmo "exercicio_08"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
l,c,maior:inteiro
numeros:vetor[1..3,1..2] de inteiro
linha,coluna:inteiro
inicio
// Seção de Comandos
para l de 1 ate 3 faca
 para c de 1 ate 2 faca
 escreva("Informe o valor da posicao: ",l,"-",c,": ")
 leia(numeros[l,c])
 fimpara
fimpara
maior<-0
para l de 1 ate 3 faca
 para c de 1 ate 2 faca
 se numeros[l,c]>maior entao
 maior<-numeros[l,c]
 linha<-l
 coluna<-c
 fimse
 fimpara
fimpara
escreval("O numero: ",maior," Na posicão: ",linha,"-",coluna," É o maior")
fimalgoritmo
**********************************************************************************************************************************
9. Escreva um algoritmo para ler uma matriz 4x3 e imprima sua diagonal principal. 
algoritmo "exercicio_09"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
l,c:inteiro
numeros:vetor[1..4,1..3] de inteiro
inicio
// Seção de Comandos
para l de 1 ate 4 faca
 para c de 1 ate 3 faca
 escreva("Informe o valor da posicao: ",l,"-",c,": ")
 leia(numeros[l,c])
 fimpara
fimpara
para l de 1 ate 4 faca
 para c de 1 ate 3 faca
 se l=c entao
 escreval("Diagonal Principal: ",numeros[l,c])
 fimse
 fimpara
fimpara
fimalgoritmo
**********************************************************************************************************************************
10. Elabore um algoritmo para ler uma matriz 3x4 e apresente somente os valores acima e abaixo da diagonal principal.
algoritmo "exercicio_10"
// Função : Laço de Repetição
// Autor : Willians Miyabara (miyabara@hotmail.com)
// Graduando em Sistemas de Informação.
// UFMT - Universidade Federal de Mato Grosso
// Data : 18/2/2015
// Seção de Declarações
var
l,c:inteiro
numeros:vetor[1..3,1..4] de inteiro
inicio
// Seção de Comandos
para l de 1 ate 3 faca
 para c de 1 ate 4 faca
 escreva("Informe o valor da posicao: ",l,"-",c,": ")
 leia(numeros[l,c])
 fimpara
fimpara
para l de 1 ate 3 faca
 para c de 1 ate 4 faca
 se l<c entao
 escreval("Diagonal Superior: ",numeros[l,c])
 fimse
 fimpara
fimpara
para l de 1 ate 3 faca
 para c de 1 ate 4 faca
 se l>c entao
 escreval("Diagonal Inferior: ",numeros[l,c])
 fimse
 fimpara
fimpara
fimalgoritmo
**********************************************************************************************************************************