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: 60 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 |
![]() |
Desafios, Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
Quem Somos |
![]() Entre em contato comigo para, juntos, vermos em que posso contribuir para resolver ou agilizar o desenvolvimento de seus códigos.
|
![]() Não basta ter um site. É necessário ter um site que é localizado e converte usuários em clientes. Se sua página não faz isso, Fale comigo e vamos fazer uma analise e conseguir resultados mais satisfatórios..
|
Linguagens Mais Populares |
1º lugar: Java |