Aula4 - Programação (VBA)

Prévia do material em texto

Introdução à Computação
Para Ciências Humanas
10 semestre de 2017
Renata Wassermann
renata@ime.usp.br
“Pseudo-código”
soma = 0
Leia num
Imprima num
Enquanto num >= 0
 soma = soma + num
 Leia num
 Imprima num
Imprima soma
Atribuições
Variável = Expressão
Sempre da direita para a esquerda!!!
(Variável Expressão)
Atribuições
Variável = Expressão
Sempre da direita para a esquerda!!!
(Variável Expressão)
Laço (ou Loop)
soma = 0
Leia num
Imprima num
Enquanto num >= 0
 soma = soma + num
 Leia num
 Imprima num
Imprima soma
Laço
Enquanto condição
 comando 1
 ...
 comando n
Na condição: <, <=, =, <>,...
Exemplo
Dados dois inteiros positivos a e b, imprima 
a dividido por b utilizando apenas somas e 
subtrações.
cont = 0
Leia a
Leia b
Enquanto b<=a
 a = a – b
 cont = cont + 1
Imprima cont
Exercício 1
Dados dois números inteiros n e k >= 0, 
calcular nk
Exercício 1
Dados dois números inteiros n e k >= 0, 
calcular nk
nk = n*n*n...*n 
 k vezes
Exercício 2
Dado um número inteiro n >= 0, calcular n!
0!=1
n!=n*(n-1)!
Um programa em VBA
Sub Nome()
   Dim Var1 As Tipo1
          …
   Dim VarN As TipoN
   
   Comando1
     …
   ComandoM           
End Sub
Um programa em VBA
Sub PrimProg()
   Dim PrimTexto As String
   PrimTexto = “Alo Mundo”
   Cells(1, 1) = PrimTexto
End Sub
Exemplo
Sub SomaSequencia()
 Dim soma As Integer
 Dim num As Integer 
 soma = 0
 num = CInt(InputBox(“"))
 While num >= 0
 soma = soma + num
 num = CInt(InputBox(""))
 Wend
 MsgBox ("Soma = " & soma)
End Sub
soma = 0
Leia num
Imprima num
Enquanto num >= 0
 soma = soma + num
 Leia num
 Imprima num
Imprima soma
Laço em VBA
While condição
 comando 1
 ...
 comando n
Wend
Na condição: <, <=, =, <>,...
Exemplo em VBA
Sub Divisao()
   Dim cont As Integer
   Dim a As Integer
   Dim b As Integer
  
   cont = 0
   a = Cells(1, 1)
   b = Cells(1, 2)
   While b <= a
      a = a ­ b
      cont = cont + 1
   Wend
   Cells(1, 3) = cont
End Sub
Exercício 1
Dados dois números inteiros n e k >= 0, 
calcular nk
Exercício 2
Dado um número inteiro n >= 0, calcular n!
0!=1
n!=n*(n-1)!
Exercício 3
Dado o comprimento de uma seqüência de 
inteiros e os números desta, imprima o seu 
produto. 
 
Exercício 4
Dados um número inteiro n, n>0, e uma 
seqüência com n números inteiros, 
determinar a soma dos inteiros positivos da 
seqüência. Por exemplo, para a seqüência
 n=6
 -2 7 0 -5 8 4 
o seu programa deve escrever o número 19. 
Condicionais
Se condição
 comando 1
 ...
 comando n
Na condição: <, <=, =, <>,...
Condicionais em VBA
If condição Then
 comando 1
 ...
 comando n
 EndIf
Na condição: <, <=, =, <>,...
Laço em VBA
While condição
 comando 1
 ...
 comando n
Wend
Na condição: <, <=, =, <>,...
IME / USP
Perguntas???
	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