Exercício - Calculo de metragem de terreno e iptu
Postado por Marcio Rogério Nizzola em 22/08/2011 - Visitas: 6287
Elabore um algoritmo e o fluxograma para cálculo da área de um terreno, e caso esta área seja maior que 150 m2, solicitar o valor do imóvel e calcular o IPTU de 3% sobre o seu valor.
Fluxograma
Código em Visual Basic do exercício proposto:
Dim largura As Double, comprimento As Double
Dim area As Double, iptu As Double
largura = InputBox("Digite a largura:")
comprimento = InputBox("Digite o comprimento:")
area = largura * comprimento
If area > 150 Then
valor = InputBox("Digite o valor do imovel ")
iptu = valor * 0.03
MsgBox ("O iptu é de R$ " & iptu)
Else
MsgBox ("Isento")
End If
Fluxograma
Código em Visual Basic do exercício proposto:
Dim largura As Double, comprimento As Double
Dim area As Double, iptu As Double
largura = InputBox("Digite a largura:")
comprimento = InputBox("Digite o comprimento:")
area = largura * comprimento
If area > 150 Then
valor = InputBox("Digite o valor do imovel ")
iptu = valor * 0.03
MsgBox ("O iptu é de R$ " & iptu)
Else
MsgBox ("Isento")
End If