Fractional Numbers
As before, fractional numbers can either be Proper (e.g. 2/5), Improper (e.g. 5/2), or Mixed (e.g. 21/2),
Improper to Mixed Fraction Code in Visual Basic (VB.Net)
Say we have the fraction 10/3 - which is an improper fraction - we can convert this fraction to a mixed fraction by following a number of steps:
Step 1:
Find the largest number smaller than the numerator (10),
that can divide the denominator - 3 - without remainder.
⇒ 9
Step 2:
Subtract the found number (9) - from Step 1 -
from the numerator (10)
⇒ 10 - 9 = 1;
This yields the whole number.
Step 3:
Divide the found number (9) - from Step 1 -
by the denominator (3)
⇒ 9/3 = 3;
This yields the new numerator.
Step 4:
Reuse the denominator (3) to get our mixed fraction
⇒ 31/3
Create a new class file; Project, Add Class.
Call it ImproperToMixed.vb.
Optionally, create a new module file; Project, Add Module.
Call it ImproperToMixedModule.vb.
Type out the adjoining Visual Basic (VB.Net) code for converting improper to mixed fractions.
Note: You can instead comment out the VB.Net code in the main module from the previous lesson or simply continue from where it stopped.
So!
Feel free to try out your own numerator and denominator.
VB.Net code for ImproperToMixed Class File
Public Class ImproperToMixed
Dim whole_number As Integer
Dim numerator As Integer
Dim denominator As Integer
Dim new_numerator As Integer
' A constructor
Public Sub _init_(fraction As Dictionary(Of String, Integer))
numerator = fraction.Item("numerator")
denominator = fraction.Item("denominator")
End Sub
' Returns a dictionary Of the New fraction
Public Function doConvert() As Dictionary(Of String, Integer)
' STEP 1:
For dividend = numerator To 0 Step -1
If dividend Mod denominator = 0 Then
' STEP 2:
new_numerator = numerator - dividend
' STEP 3:
whole_number = CInt(dividend / denominator)
Exit For
End If
Next dividend
Dim send_back As New Dictionary(Of String, Integer)
send_back.Add("whole_number", whole_number)
send_back.Add("numerator", new_numerator)
send_back.Add("denominator", denominator)
Return send_back
End Function
End Class
Dim whole_number As Integer
Dim numerator As Integer
Dim denominator As Integer
Dim new_numerator As Integer
' A constructor
Public Sub _init_(fraction As Dictionary(Of String, Integer))
numerator = fraction.Item("numerator")
denominator = fraction.Item("denominator")
End Sub
' Returns a dictionary Of the New fraction
Public Function doConvert() As Dictionary(Of String, Integer)
' STEP 1:
For dividend = numerator To 0 Step -1
If dividend Mod denominator = 0 Then
' STEP 2:
new_numerator = numerator - dividend
' STEP 3:
whole_number = CInt(dividend / denominator)
Exit For
End If
Next dividend
Dim send_back As New Dictionary(Of String, Integer)
send_back.Add("whole_number", whole_number)
send_back.Add("numerator", new_numerator)
send_back.Add("denominator", denominator)
Return send_back
End Function
End Class
Algebra Main Module
Module Algebra_ImproperToMixed
Sub Main()
''
' Convert fractions from Improper To Mixed
''
Dim fraction As New Dictionary(Of String, Integer)
fraction.Add("numerator", 10)
fraction.Add("denominator", 3)
Console.WriteLine(" Converting from Improper to Mixed the fraction:")
' Print as fraction
Console.WriteLine(String.Format("{0,55}", fraction.Item("numerator")))
Console.WriteLine(String.Format("{0,55}", "-"))
Console.WriteLine(String.Format("{0,55}", fraction.Item("denominator")))
' use the ImproperToMixed Class
Dim imp2mix As New ImproperToMixed
imp2mix._init_(fraction)
fraction = imp2mix.doConvert()
Console.WriteLine(Environment.NewLine)
Console.WriteLine(String.Format("{0,52}", fraction.Item("numerator")))
Console.WriteLine(String.Format("{0,48} {1} {2}", "Answer = ", fraction.Item("whole_number"), "-"))
Console.WriteLine(String.Format("{0,52}", fraction.Item("denominator")))
End Sub
End Module
Sub Main()
''
' Convert fractions from Improper To Mixed
''
Dim fraction As New Dictionary(Of String, Integer)
fraction.Add("numerator", 10)
fraction.Add("denominator", 3)
Console.WriteLine(" Converting from Improper to Mixed the fraction:")
' Print as fraction
Console.WriteLine(String.Format("{0,55}", fraction.Item("numerator")))
Console.WriteLine(String.Format("{0,55}", "-"))
Console.WriteLine(String.Format("{0,55}", fraction.Item("denominator")))
' use the ImproperToMixed Class
Dim imp2mix As New ImproperToMixed
imp2mix._init_(fraction)
fraction = imp2mix.doConvert()
Console.WriteLine(Environment.NewLine)
Console.WriteLine(String.Format("{0,52}", fraction.Item("numerator")))
Console.WriteLine(String.Format("{0,48} {1} {2}", "Answer = ", fraction.Item("whole_number"), "-"))
Console.WriteLine(String.Format("{0,52}", fraction.Item("denominator")))
End Sub
End Module