 |
|
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: 320 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: |
VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Arrays e Matrix (Vetores e Matrizes) |
Exercícios Resolvidos de VB.NET - Como verificar quantas vezes um valor é encontrado em um vetor - Como usar vetores e matrizes em VB.NETQuantidade de visualizações: 344 vezes |
|
Pergunta/Tarefa: Escreva um programa VB.NET que declara, constrói e inicializa um vetor de 10 inteiros. Em seguida peça para que o usuário informe um valor a ser pesquisado. Faça uma varredura no vetor e informe quantas vezes o valor pesquisado é encontrado:
' declara, constrói e inicializa um vetor de 10 inteiros
Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}
Informe um valor: 4 O valor foi encontrado: 3 vezes Informe um valor: 8 O valor foi encontrado: 1 vezes Informe um valor: 3 O valor foi encontrado: 0 vezes Veja a resolução comentada deste exercício usando VB.NET: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' declara, constrói e inicializa um vetor de 10 inteiros
Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}
' vamos ler um valor inteiro
Console.Write("Informe um valor: ")
Dim pesquisa As Integer = Int32.Parse(Console.ReadLine())
' vamos verificar quantas vezes o valor informado está
' contido no vetor
Dim repeticoes As Integer = 0
For i As Integer = 0 To valores.Length - 1
If valores(i) = pesquisa Then
' encontrou? vamos contar esta ocorrência
repeticoes = repeticoes + 1
End If
Next
' vamos mostrar o resultado
Console.WriteLine("O valor foi encontrado: " &
repeticoes & " vezes")
Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
|
VB.NET ::: Dicas & Truques ::: Matemática e Estatística |
Como calcular juros simples e montante em VB.NETQuantidade de visualizações: 8541 vezes |
|
O regime de juros será simples quando o percentual de juros incidir apenas sobre o valor principal. Sobre os juros gerados a cada período não incidirão novos juros. Valor Principal ou simplesmente principal é o valor inicial emprestado ou aplicado, antes de somarmos os juros. Transformando em fórmula temos: J = P . i . n Onde: J = juros P = principal (capital) i = taxa de juros n = número de períodos Imaginemos uma dívida de R$ 2.000,00 que deverá ser paga com juros de 5% a.m. pelo regime de juros simples e o prazo para o pagamento é de 2 meses. O cálculo em VB.NET pode ser feito assim: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Module Module1
Sub Main()
Dim principal As Double = 2000.0
Dim taxa As Double = 0.08 '8%
Dim meses As Integer = 2
Dim juros As Double = principal * taxa * meses
Console.WriteLine("O total de juros a ser pago é: " _
& juros)
Console.WriteLine()
Console.WriteLine("Pressione uma tecla para sair...")
Console.ReadKey()
End Sub
End Module
O montante da dívida pode ser obtido das seguintes formas: a) Montante = Principal + Juros b) Montante = Principal + (Principal x Taxa de juros x Número de períodos) M = P . (1 + (i . n)) Veja o código: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Module Module1
Sub Main()
Dim principal As Double = 2000.0
Dim taxa As Double = 0.08 '8%
Dim meses As Integer = 2
Dim juros As Double = principal * taxa * meses
Dim montante As Double = principal * (1 + (taxa * meses))
Console.WriteLine("O total de juros a ser pago é: " _
& juros)
Console.WriteLine("O montante a ser pago é: " & montante)
Console.WriteLine()
Console.WriteLine("Pressione uma tecla para sair...")
Console.ReadKey()
End Sub
End Module
|
VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Laços |
Exercícios Resolvidos de VB.NET - Um laço for que solicita ao usuário 10 números inteiros e mostra o menor e o maior valor informadoQuantidade de visualizações: 486 vezes |
|
Pergunta/Tarefa: Escreva um programa VB.NET que usa o laço for para solicitar ao usuário que informe 10 números inteiros. Em seguida mostre o maior e o menor valor lido. Não é permitido usar vetores ou matrizes (arrays). Sua saída deve ser parecida com: Informe o 1º valor: 5 Informe o 2º valor: 1 Informe o 3º valor: 20 Informe o 4º valor: 6 Informe o 5º valor: 3 Informe o 6º valor: 4 Informe o 7º valor: 7 Informe o 8º valor: 12 Informe o 9º valor: 9 Informe o 10º valor: 8 O maior valor lido foi: 20 O menor valor lido foi: 1 Veja a solução comentada deste exercício usando a linguagem VB.NET: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Imports System
Module Program
Sub Main(args As String())
Dim valor As Integer ' guarda o valor lido
Dim maior, menor As Integer ' variáveis que guardarão
' o maior e o menor valor lido
' vamos pedir ao usuário que informe 10 valores inteiros
For i As Integer = 1 To 10 Step 1
Console.Write("Informe o " & i & "º valor: ")
valor = Integer.Parse(Console.ReadLine())
' esta é a primeira iteração do laço? se for vamos assumir que o
' maior e menor valor lido são o primeiro valor informado
If i = 1 Then
maior = valor
menor = valor
Else ' não é a primeira iteração
' vamos verificar se é maior que o valor atual da variável maior
If valor > maior Then
maior = valor
End If
' vamos verificar se é menor que o valor atual da variável menor
If valor < menor Then
menor = valor
End If
End If
Next
' vamos exibir o maior e o menor valor lido
Console.WriteLine(vbCrLf & "O maior valor lido foi: " & maior)
Console.WriteLine("O menor valor lido foi: " & menor)
Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
|
Mais Desafios de Programação e Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
|
C++ - Como obter o diretório atual usando a função GetCurrentDirectory() da API do Windows - C++ e WinAPI |
Códigos Fonte |
 Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimentoDiga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
 Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidadesTenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |
Linguagens Mais Populares |
|
1º lugar: Java |
