![]() |
|||||
![]() Planilha Web - Planilhas e Calculadoras online para estudantes e profissionais de Engenharia Civil, Engenharia Elétrica e Engenharia Mecânica. |
|||||
|
Você está aqui: VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Laços de Repetição |
Como testar se um número é perfeito usando VB.NET - Exercícios Resolvidos de VB.NETQuantidade de visualizações: 640 vezes |
Pergunta/Tarefa: Escreva um programa VB.NET que pede para o usuário informar um número inteiro e informa se este número é um número perfeito. Um número perfeito é aquele cuja soma dos seus divisores, exceto ele próprio, é igual ao número. Por exemplo, o número 6 é perfeito, pois 1 + 2 + 3 = 6. Sua saída deverá ser parecida com: Informe um número inteiro: 6 O número informado é um número perfeito. Veja a resolução completa para o exercício em VB.NET, comentada linha a linha: Imports System Module Program Sub Main(args As String()) ' variáveis usadas para resolver o problema Dim numero As Integer ' número informado pelo usuário Dim soma As Integer = 0 ' vai guardar a soma dos dígitos ' vamos pedir para o usuário informar o valor inteiro Console.Write("Informe um número inteiro: ") ' lê o número informado numero = Int32.Parse(Console.ReadLine()) ' um laço que começa em 1 e até o número informado - 1 For i As Integer = 1 To numero - 1 Step 1 ' o número é divisível pelo valor de i? If (numero Mod i = 0) Then soma = soma + i ' aumenta a soma End If Next ' a soma é igual ao número informado? If (soma = numero) Then Console.WriteLine("O número informado é um número perfeito.") Else Console.WriteLine("O número informado não é um número perfeito.") End If 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 |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
1º lugar: Java |