Ingresso em casa noturna
Uma casa noturna adota o seguinte critério para cobrar seus ingressos:
- Mulheres acompanhadas de 18 a 25 anos não pagam.
- Mulheres acompanhadas de 26 a 35 anos têm 30 por cento de desconto.
- Mulheres acompanhadas com mais de 35 anos têm 20 por cento de desconto.
- Mulheres desacompanhadas de qualquer idade têm 20 por cento de desconto.
- Homens de 18 a 30 anos têm 20 por cento de desconto.
- Homens com mais de 30 anos não têm desconto.
- Menores não são admitidos.
- Associados têm um desconto adicional de 5 por cento, independentemente de gênero, faixa etária e acompanhante.
Construir um programa que recebe (através de uma planilha) os dados relevantes de um cliente, o valor do ingresso para uma determinada noite e calcula o valor do ingresso.
Sub CasaNoturna()
Dim sexo, idade, acomp, assoc As Integer
Dim desconto As Double
sexo = Cells(2, 1)
idade = Cells(2, 2)
acomp = Cells(2, 3)
assoc = Cells(2, 4)
If idade >= 18 Then
If sexo = 0 Then 'homem
If idade <= 30 Then
desconto = 0.2
Else
desconto = 0
End If
Else 'mulher
If acomp = 1 Then 'acompanhada
If idade <= 25 Then
desconto = 1
ElseIf idade <= 35 Then
desconto = 0.3
Else
desconto = 0.2
End If
Else
desconto = 0.2
End If
End If
If assoc = 1 Then 'associado
desconto = desconto + 0.05
If desconto > 1 Then
desconto = 1
End If
End If
Else
desconto = -1 'menor de idade nao entra
End If
Cells(2, 5) = desconto
End Sub
Dim sexo, idade, acomp, assoc As Integer
Dim desconto As Double
sexo = Cells(2, 1)
idade = Cells(2, 2)
acomp = Cells(2, 3)
assoc = Cells(2, 4)
If idade >= 18 Then
If sexo = 0 Then 'homem
If idade <= 30 Then
desconto = 0.2
Else
desconto = 0
End If
Else 'mulher
If acomp = 1 Then 'acompanhada
If idade <= 25 Then
desconto = 1
ElseIf idade <= 35 Then
desconto = 0.3
Else
desconto = 0.2
End If
Else
desconto = 0.2
End If
End If
If assoc = 1 Then 'associado
desconto = desconto + 0.05
If desconto > 1 Then
desconto = 1
End If
End If
Else
desconto = -1 'menor de idade nao entra
End If
Cells(2, 5) = desconto
End Sub