Aula3 - 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
Condicional – SE
Devolve um valor dependendo do resultado da 
condição lógica
Apenas para condição verdadeira:
Se(<condição>;<valor se V>)
• Para os dois casos:
Se(<condição>;<valor se V>;<valor se F>)
 IME / USP
Exemplo – SE
Uma equação de segundo grau é caracterizada pelos 
valores de seus parâmetros a, b e c, que podem ser 
colocados em uma planilha nas posições A1, B1 e C1.
Queremos colocar nas células A2 e B2 as suas raízes 
reais, caso existam.
IME / USP
Exemplo – SE
Uma equação de segundo grau é caracterizada pelos 
valores de seus parâmetros a, b e c, que podem ser 
colocados em uma planilha nas posições A1, B1 e C1.
IME / USP
Arquitetura de Von Neumann
Processamento 
1. Buscar a próxima instrução na memória,
2. Executar a instrução,
3. Voltar para o passo 1, ciclicamente, enquanto 
 o computador permanecer ligado.
Resolução de Problemas
1) Estudar e analisar o problema para entender a 
sua estrutura;
2) Codificar a resolução do problema como uma 
sequência lógica e ordenada de operações;
3) Traduzir essa sequência de operações como 
instruções em uma linguagem de alto nııvel;
4) Executar as instruções através do interpretador 
ou compilador apropriado.
IME / USP
Algoritmos
● "Receita" para resolver problema
● Entrada, saída
● Algoritmo Correto: Sempre termina e para 
qualquer instância de entrada produz uma 
saída correta
● Não depende da linguagem!
1. Carregue o conteúdo de 30 no acumulador
2. Guarde o conteúdo do acumulador em 40
3. Leia um número e guarde em 45
4. Imprima o conteúdo da posição 45
5. Carregue o conteúdo de 45 no acumulador
6. Se o conteúdo do acumulador for menor do que 
zero, vá para 11
7. Carregue o conteúdo de 40 no acumulador
8. Adicione o conteúdo de 45 ao acumulador
9. Guarde o conteúdo do acumulador em 40
10. Vá para a posição 3
11. Imprima o conteúdo da posição 40
12. Pare.
“Pseudo-código”
soma = 0
Leia num
Imprima num
Enquanto num >= 0
 soma = soma + num
 Leia num
 Imprima num
Imprima soma
Entrada e Saída
soma = 0
Leia num
Imprima num
Enquanto num >= 0
 soma = soma + num
 Leia num
 Imprima num
Imprima soma
Variáveis Inteiras
soma = 0
Leia num
Imprima num
Enquanto num >= 0
 soma = soma + num
 Leia num
 Imprima num
Imprima soma
Atribuições
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
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
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
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
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
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
Um programa em VBA
Sub PrimProg()
   Dim PrimTexto As String
   PrimTexto = “Alo Mundo”
   Cells(1, 1) = PrimTexto
End Sub
Um programa em VBA
Sub PrimProg()
   Dim PrimTexto As String
   PrimTexto = “Alo Mundo”
   Cells(1, 1) = PrimTexto
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
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
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
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
Exemplo (em C)
#include <stdio.h>
int main ( ) {
    int soma, num;
    soma = 0;
    scanf("%d", &num);
    printf("%d", num);
    while (num >=0){
        soma = soma + num;
        scanf("%d", &num);
        printf("%d", num);
        }
   printf("%d", soma);
   return 0 ;
}
soma = 0
Leia num
Imprima num
Enquanto num >= 0
 soma = soma + num
 Leia num
 Imprima num
Imprima soma
Exemplo (em Python)
soma = 0
num = int(input())
print(num)
while num >= 0:
   soma = soma + num
   num = int(input())
   print(num)
print(soma)
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: <, <=, ==, !=,...
Laço em VBA
While condição
 comando 1
 ...
 comando n
Wend
Na condição: <, <=, =, <>,...
Exemplo em VBA?
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
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
IME / USP
Perguntas???
	Slide 1
	Slide 2
	Slide 3
	Slide 4
	Slide 5
	Cálculos em Planilhas
	Fórmulas
	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
	Slide 25
	Slide 26
	Slide 27
	Slide 28
	Slide 29
	Slide 30
	Slide 31
	Slide 32
	Slide 33
	Slide 34
	Slide 35
	Slide 36
	Slide 37
	Slide 38