 |
|
|
|
Você está aqui: VB.NET ::: Dicas & Truques ::: Matemática e Estatística |
Como calcular porcentagem em VB.NET - Como efetuar cálculos de porcentagem em VB.NETQuantidade de visualizações: 523 vezes |
|
Cálculos de porcentagens estão presentes em boa parte das aplicações que desenvolvemos. Porém, há momentos em que a mente trava e não conseguimos lembrar com clareza como estes cálculos são feitos, principalmente em VB.NET. Esta anotação tem o objetivo de ser uma fonte de pesquisa para os momentos em que suas habilidades matemáticas insistirem em continuar ocultas. Ex: 1 - Suponhamos que um produto que custe R$ 178,00 sofra um acréscimo de 15%. Qual o valor final do produto? Veja o código em VB.NET: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
' Algoritmo que calcula porcentagem em VB.NET
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' variáveis usadas na resolução do problema
Dim valor, percentual, valor_final As Double
valor = 178.0 ' valor original
percentual = 15.0 / 100.0 ' 15%
valor_final = valor + (percentual * valor)
' mostra o resultado
Console.WriteLine("O valor final do produto é: " & valor_final)
' O resultado será 204,70
Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
Ex: 2 - Um produto, cujo valor original era de R$ 250,00, teve um desconto de 8%. Qual foi seu valor final? Veja o código em VB.NET: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
' Algoritmo que calcula porcentagem em VB.NET
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' variáveis usadas na resolução do problema
Dim valor, percentual, valor_final As Double
valor = 250.0 ' valor original
percentual = 8.0 / 100.0 ' 8%
valor_final = valor - (percentual * valor)
' mostra o resultado
Console.WriteLine("O valor final do produto é: " & valor_final)
' O resultado será 230,00
Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
Ex: 3 - Em um concurso de perguntas e respostas, um jovem acertou 72 das 90 perguntas apresentadas. Qual foi a porcentagem de acertos? E a porcentagem de erros? Veja o código em VB.NET: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
' Algoritmo que calcula porcentagem em VB.NET
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' variáveis usadas na resolução do problema
Dim perguntas, acertos As Double
perguntas = 90.0
acertos = 72.0
' mostra a porcentagem de acertos
Console.WriteLine("Porcentagem de acertos: " &
((acertos / perguntas) * 100) & "%")
' mostra a porcentagem de erros
Console.WriteLine(("Porcentagem de erros: ") &
(((perguntas - acertos) / perguntas) * 100) & "%")
' Os resultados serão 80% e 20%
Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
Ex: 4 - Um aparelho de CD foi adquirido por R$ 300,00 e revendido por R$ 340,00. Qual foi a porcentagem de lucro na transação? Veja o código em VB.NET: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
' Algoritmo que calcula porcentagem em VB.NET
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' variáveis usadas na resolução do problema
Dim valor_anterior, novo_valor, porcentagem_lucro As Double
valor_anterior = 300.0 ' valor anterior
novo_valor = 340.0 ' valor novo
' calcula a porcentagem de lucro
' efetua o cálculo
porcentagem_lucro = ((novo_valor * 100) / valor_anterior) - 100
Console.WriteLine("A porcentagem de lucro foi de: " &
porcentagem_lucro & "%")
' O resultado será 13,33
Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
Ex: 5 - Uma loja repassa 5% do lucro a seus vendedores. Se um produto custa R$ 70,00, qual o valor em reais repassado a um determinado vendedor? Veja o código em VB.NET: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
' Algoritmo que calcula porcentagem em VB.NET
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' variáveis usadas na resolução do problema
Dim valor, percentual, comissao As Double
valor = 70.0 ' valor do produto
percentual = 5.0 / 100.0 ' 5%
' calcula a comissão
comissao = percentual * valor
' mostra o resultado
Console.WriteLine("O valor repassado ao vendedor é: " & comissao)
' O resultado será 3,5
Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
|
 Link para compartilhar na Internet ou com seus amigos: |
Desafios, Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
