Página
aulas dos dias 18 e 20 de março
Nessa semana começaremos a estudar a construção de programas baseados no conceito de máquinas de estados. Nesses programas, as variáveis, diferentemente das variáveis matemáticas da programação declarativa, receberão diversos valores ao longo da execução de um programa, caracterizando dessa forma as mudanças de estados da máquina abstrata representada pelo programa.
Inicialmente, consideraremos programas simples, cuja execução é puramente sequencial. Ou seja, os programas terão a forma:
Sub programa()
comando1
...
comandoN
End Sub
1. programa para converter de centímetros para polegadas (obs.: 1pol = 2.54cm):
Sub centPol()
Dim centimetro As Double ' Double -> "reais"; Integer -> "inteiros"
Dim polegada As Double
centimetro = Cells(1,1) ' leitura da planilha -> sempre da dir. p/ esq
polegada = centimetro / 2.54
Cells(1,2) = polegada
End Sub
2. programa para calcular juros simples: dada a taxa e o valor, calcular os juros e o valor total.
3. programa para calcular imposto: dada a taxa e o valor, calcular o imposto e o valor líquido.
4. programa para calcular polinômio do segundo grau: dadas as constantes a, b e c e o valor de x, calcular f(x) = ax^2 * bx + c.
Inicialmente, consideraremos programas simples, cuja execução é puramente sequencial. Ou seja, os programas terão a forma:
Sub programa()
comando1
...
comandoN
End Sub
1. programa para converter de centímetros para polegadas (obs.: 1pol = 2.54cm):
Sub centPol()
Dim centimetro As Double ' Double -> "reais"; Integer -> "inteiros"
Dim polegada As Double
centimetro = Cells(1,1) ' leitura da planilha -> sempre da dir. p/ esq
polegada = centimetro / 2.54
Cells(1,2) = polegada
End Sub
2. programa para calcular juros simples: dada a taxa e o valor, calcular os juros e o valor total.
3. programa para calcular imposto: dada a taxa e o valor, calcular o imposto e o valor líquido.
4. programa para calcular polinômio do segundo grau: dadas as constantes a, b e c e o valor de x, calcular f(x) = ax^2 * bx + c.
Última atualização: quarta-feira, 29 dez. 2010, 21:00