How to resolve the algorithm Abundant, deficient and perfect number classifications step by step in the Visual Basic .NET programming language

Published on 12 May 2024 09:40 PM
#Visual basic .net

How to resolve the algorithm Abundant, deficient and perfect number classifications step by step in the Visual Basic .NET programming language

Table of Contents

Problem Statement

These define three classifications of positive integers based on their   proper divisors. Let   P(n)   be the sum of the proper divisors of   n   where the proper divisors are all positive divisors of   n   other than   n   itself.

6   has proper divisors of   1,   2,   and   3. 1 + 2 + 3 = 6,   so   6   is classed as a perfect number.

Calculate how many of the integers   1   to   20,000   (inclusive) are in each of the three classes. Show the results here.

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Abundant, deficient and perfect number classifications step by step in the Visual Basic .NET programming language

Source code in the visual programming language

Module Module1

    Function SumProperDivisors(number As Integer) As Integer
        If number < 2 Then Return 0
        Dim sum As Integer = 0
        For i As Integer = 1 To number \ 2
            If number Mod i = 0 Then sum += i
        Next
        Return sum
    End Function

    Sub Main()
        Dim sum, deficient, perfect, abundant As Integer

        For n As Integer = 1 To 20000
            sum = SumProperDivisors(n)
            If sum < n Then
                deficient += 1
            ElseIf sum = n Then
                perfect += 1
            Else
                abundant += 1
            End If
        Next

        Console.WriteLine("The classification of the numbers from 1 to 20,000 is as follows : ")
        Console.WriteLine()
        Console.WriteLine("Deficient = {0}", deficient)
        Console.WriteLine("Perfect   = {0}", perfect)
        Console.WriteLine("Abundant  = {0}", abundant)
    End Sub

End Module

You may also check:How to resolve the algorithm Operator precedence step by step in the Delphi programming language
You may also check:How to resolve the algorithm Doubly-linked list/Element definition step by step in the JavaScript programming language
You may also check:How to resolve the algorithm Evaluate binomial coefficients step by step in the Icon and Unicon programming language
You may also check:How to resolve the algorithm Convert decimal number to rational step by step in the Java programming language
You may also check:How to resolve the algorithm Discordian date step by step in the AppleScript programming language