Exercise
Give change
Objetive
Write a Visual Basic (VB.Net) program to give change for a purchase, using the largest possible coins (or bills). Suppose we have an unlimited amount of coins (or bills) of 100, 50, 20, 10, 5, 2, and 1, and there are no decimals. Therefore, the execution could be something like this:
Price? 44
Paid? 100
Your change is 56: 50 5 1
Price? 1
Paid? 100
Your change is 99: 50 20 20 5 2 2
Code
Imports System
Public Class Exercise47
Public Shared Sub Main()
Dim price, paid, change As Integer
Console.Write("Price? ")
price = Convert.ToInt32(Console.ReadLine())
Console.Write("Paid? ")
paid = Convert.ToInt32(Console.ReadLine())
change = paid - price
Console.Write("Your change is {0}: ", change)
While change > 0
If change >= 50 Then
Console.Write("50 ")
change -= 50
Else
If change >= 20 Then
Console.Write("20 ")
change -= 20
Else
If change >= 10 Then
Console.Write("10 ")
change -= 10
Else
If change >= 5 Then
Console.Write("5 ")
change -= 5
Else
If change >= 2 Then
Console.Write("2 ")
change -= 2
Else
Console.Write("1 ")
change -= 1
End If
End If
End If
End If
End If
End While
Console.WriteLine()
End Sub
End Class