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

---