Baixe o app para aproveitar ainda mais
Prévia do material em texto
Introdução à Computação Para Ciências Humanas 10 semestre de 2017 Renata Wassermann renata@ime.usp.br Vetores ● Até agora, toda variável podia armazenar apenas um valor por vez ● Agora iremos trabalhar com vetores e matrizes, que servem para guardar conjuntos de dados do mesmo tipo Vetores • Vetores precisam ser declarados como qualquer outra variável. O que diferencia a declaração de um vetor são os parênteses que seguem o nome: Dim notas(70) as Double Vetores • Vetores precisam ser declarados como qualquer outra variável. • O que diferencia a declaração de um vetor são os parênteses que seguem o nome: Dim notas(70) as Double Vetores • Vetores precisam ser declarados como qualquer outra variável. • O que diferencia a declaração de um vetor são os parênteses que seguem o nome: Dim notas(70) as Double Nome do vetor Vetores • Vetores precisam ser declarados como qualquer outra variável. • O que diferencia a declaração de um vetor são os parênteses que seguem o nome: Dim notas(70) as Double Nome do vetor O vetor pode armazenar 70 elementos Vetores • Vetores precisam ser declarados como qualquer outra variável. • O que diferencia a declaração de um vetor são os parênteses que seguem o nome: Dim notas(70) as Double Todos os elementos do vetor são reais Nome do vetor O vetor pode armazenar 70 elementos Exemplo Dim notas(10) as Double 1 2 3 4 5 6 7 8 9 10 Exemplo Dim notas(10) as Double 1 2 3 4 5 6 7 8 9 10 notas(3)=7.8 Exemplo Dim notas(10) as Double 7.8 1 2 3 4 5 6 7 8 9 10 notas(3)=7.8 Exemplo Dim notas(10) as Double 7.8 1 2 3 4 5 6 7 8 9 10 notas(6)=6.5 Exemplo Dim notas(10) as Double 7.8 6.5 1 2 3 4 5 6 7 8 9 10 notas(6)=6.5 Exemplo Dim notas(10) as Double 7.8 6.5 1 2 3 4 5 6 7 8 9 10 i = 1 While i<=10 notas(i)=0 i = i+1 WEnd Exemplo Dim notas(10) as Double 0 0 0 0 0 0 0 0 0 0 1 2 3 4 5 6 7 8 9 10 i = 1 While i<=10 notas(i)=0 i = i+1 WEnd Exemplo Montar um vetor e copiá-lo para a planilha: Sub CriaVetor() Dim i As Integer Dim v(20) As Integer i = 1 While i <= 20 v(i) = i i = i + 1 Wend i = 1 While i <= 20 Cells(i, 1)=v(i) i = i + 1 Wend End Sub Matrizes 1 2 3 4 5 6 7 8 9 1 2 3 4 5 Dim mat(5,10) As Integer 10 Percorrendo Matrizes lin = 1 While lin <= 2 col = 1 While col <= 4 matriz(lin,col) = 0 col = col + 1 Wend lin = lin + 1 Wend 0 0 0 0 0 0 0 0 1 2 3 4 1 2 For … Next i = x While i<=z Comando i = i+1 Wend For … Next For i = x to z Comando Next i = x While i<=z Comando i = i+1 Wend Percorrendo Matrizes For lin = 1 to 2 For col = 1 to 4 matriz(lin,col) = 0 Next Next 0 0 0 0 0 0 0 0 1 2 3 4 1 2 Vetores, Matrizes e Funções ●No cabeçalho de uma função, apenas o tipo é declarado. ●O tamanho deve ser passado em um parâmetro à parte. ●O vetor ou matriz é alterado dentro da função. Exemplo 1 Function ProdEscalar(vet1() As Integer,_ vet2() As Integer,_ m As Integer) As Integer Dim soma As Integer Dim i As Integer soma = 0 For i = 1 to m soma = soma + vet1(i) * vet2(i) Next ProdEscalar = soma End Function Exemplo 2 Sub LeMatriz(matriz() As Integer, nlin As Integer,_ ncol As Integer) Dim lin As Integer Dim col As Integer For lin = 1 to nlin For col = 1 to ncol matriz(lin, col) = Cells(lin, col) Next Next End Sub Exemplo 3 Sub LeMatriz(i As Integer, j As Integer, _ matriz() As Integer, nlin As Integer, _ ncol As Integer) ' Le a matriz de nlin linhas e ncol colunas da planilha, começando na célula (i,j) Dim lin As Integer Dim col As Integer For lin = 1 to nlin For col = 1 to ncol matriz(lin, col) = Cells(lin+i1, col+j1) Next Next End Sub Slide 1 Slide 2 Slide 3 Slide 4 Slide 5 Slide 6 Slide 7 Slide 8 Slide 9 Slide 10 Slide 11 Slide 12 Slide 13 Slide 14 Slide 15 Slide 16 Slide 17 Slide 18 Slide 19 Slide 20 Slide 21 Slide 22 Slide 23 Slide 24
Compartilhar