Frage bezüglich eines "Sprung's"

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Frage bezüglich eines "Sprung's"

    Hallo,

    ich soll in meinen Programmen die ich schreibe ab heute Arrays benutzen. Entsprechend habe ich eine Aufgabe rausgesucht um ein wenig damit dem umgang zu üben. Die Aufgabe sieht vor, das ich einen Automaten habe, der Kleingeld ausgibt je nach Einwurf des Betrags (Fahrkarte kostet 2 Euro, 10 Euro wurden bezahlt --> Restgeld 8 Euro) allerdings soll der Betrag nur in Münzen und mit möglichst wenig Münzen rausgeben. Das Grundgerüst mit den Arrays hat soweit schon gut funktioniert, allrdings wollte ich noch einen draufsetzen und sagen, das der Automat nur eine bestimmte Kapazität an Münzen zur Verfügung hat und wenn diese aufgebraucht sind, an den nächst größten Speicher zu gehen. Ich habe das ganze bisher wiefolgt aufgebaut:

    VB.NET-Quellcode

    1. Dim wechselgeld() As Decimal = {2, 1, 0.5, 0.2, 0.1, 0.05, 0.02, 0.01}
    2. Dim anzahl() As Decimal = {0, 0, 0, 0, 0, 0, 0, 0}
    3. Dim maximum() As Integer = {20, 20, 20, 20, 20, 20, 20, 20}
    5. Dim zuzahlen As Decimal
    6. Dim bezahltmit As Decimal
    7. Dim rückgeld As Decimal
    9. 'übergabe
    10. zuzahlen = Convert.ToDecimal(txtzubezahlen.Text)
    11. bezahltmit = Convert.ToDecimal(txtbezahltmit.Text)
    14. rückgeld = bezahltmit - zuzahlen
    15. txtrückgeld.Text = rückgeld
    17. Do Until rückgeld = 0
    18. Select Case rückgeld
    19. Case Is >= 2
    20. If maximum(0) = 0 Then
    21. rückgeld = rückgeld - wechselgeld(1)
    22. anzahl(1) = anzahl(1) + 1
    23. maximum(1) = maximum(1) - 1
    24. Else
    25. rückgeld = rückgeld - wechselgeld(0)
    26. anzahl(0) = anzahl(0) + 1
    27. maximum(0) = maximum(0) - 1
    28. End If
    30. Case Is >= 1
    31. If maximum(1) = 0 Then
    32. rückgeld = rückgeld - wechselgeld(2)
    33. anzahl(2) = anzahl(2) + 1
    34. maximum(2) = maximum(2) - 1
    35. Else
    36. rückgeld = rückgeld - wechselgeld(1)
    37. anzahl(1) = anzahl(1) + 1
    38. maximum(1) = maximum(1) - 1
    39. End If
    41. Case Is >= 0.5
    42. If maximum(2) = 0 Then
    43. rückgeld = rückgeld - wechselgeld(3)
    44. anzahl(3) = anzahl(3) + 1
    45. maximum(3) = maximum(3) - 1
    46. Else
    47. rückgeld = rückgeld - wechselgeld(2)
    48. anzahl(2) = anzahl(2) + 1
    49. maximum(2) = maximum(2) - 1
    50. End If
    52. Case Is >= 0.2
    53. If maximum(3) = 0 Then
    54. rückgeld = rückgeld - wechselgeld(4)
    55. anzahl(4) = anzahl(4) + 1
    56. maximum(4) = maximum(4) - 1
    57. Else
    58. rückgeld = rückgeld - wechselgeld(3)
    59. anzahl(3) = anzahl(3) + 1
    60. maximum(3) = maximum(3) - 1
    61. End If
    63. Case Is >= 0.1
    64. If maximum(4) = 0 Then
    65. rückgeld = rückgeld - wechselgeld(5)
    66. anzahl(5) = anzahl(5) + 1
    67. maximum(5) = maximum(5) - 1
    68. Else
    69. rückgeld = rückgeld - wechselgeld(4)
    70. anzahl(4) = anzahl(4) + 1
    71. maximum(4) = maximum(4) - 1
    72. End If
    74. Case Is >= 0.05
    75. If maximum(6) = 0 Then
    76. rückgeld = rückgeld - wechselgeld(6)
    77. anzahl(6) = anzahl(6) + 1
    78. maximum(6) = maximum(6) - 1
    79. Else
    80. rückgeld = rückgeld - wechselgeld(5)
    81. anzahl(5) = anzahl(5) + 1
    82. maximum(5) = maximum(5) - 1
    83. End If
    85. Case Is >= 0.02
    86. If maximum(7) = 0 Then
    87. rückgeld = rückgeld - wechselgeld(7)
    88. anzahl(7) = anzahl(7) + 1
    89. maximum(7) = maximum(7) - 1
    90. Else
    91. rückgeld = rückgeld - wechselgeld(6)
    92. anzahl(6) = anzahl(6) + 1
    93. maximum(6) = maximum(6) - 1
    94. End If
    96. Case Is >= 0.01
    97. rückgeld = rückgeld - wechselgeld(7)
    98. anzahl(7) = anzahl(7) + 1
    99. maximum(7) = maximum(7) - 1
    100. End Select
    101. Loop
    103. For i = 0 To 7
    104. lstausgabe.Items.Add(wechselgeld(i) & " Euro: " & anzahl(i))
    106. Next


    Den Fehler warum das Programm nicht geht kenne ich schon, da er bei der 2 Euromünze immer und immer wieder in die Ifschleife geht und somit bei einer Ausgabe von Fahrkosten 3,10 und Bezahlt 100 sagt, das ich 20x 2 Euro bekomme aber über 50x die 1 Euro Münze.
    Ich könnte das vielleicht über eine relativ große Ifabfrage abfangen aber das sieht irgendwie "doof" aus. Besteht nicht die möglichkeit, das ich von einem Case in den nächsten "springen kann? Nach dem Motto:

    VB.NET-Quellcode

    1. If maximum(0) = 0 Then
    2. rückgeld = rückgeld - wechselgeld(1)
    3. anzahl(1) = anzahl(1) + 1
    4. maximum(1) = maximum(1) - 1

    Führe dies 1 mal aus und gehe dann nicht mehr in diesen Fall? Das man das ganze quasi "sperren" würde oder denke ich hier einfach zu durcheinander?

    Die innere Abfrage würde ich auch in ne Schleife packen:

    VB.NET-Quellcode

    1. Private Sub Rückgeld(ByVal r As Integer)
    3. Dim Muenzen() As Integer = {200, 100, 50, 20, 10, 5, 2, 1}
    4. Dim Inhalt() As Integer = {20, 20, 20, 20, 20, 20, 20, 20}
    6. Dim gesamt As Integer
    7. For i = 0 To Muenzen.Count - 1
    8. gesamt += Muenzen(i) * Inhalt(i)
    9. Next
    10. If gesamt < r Then Throw New Exception("Geld alle")
    12. While r > 0
    14. For i = 0 To Muenzen.Count - 1
    15. If r >= Muenzen(i) AndAlso Inhalt(i) > 0 Then
    16. Debug.Print(Muenzen(i))
    17. Inhalt(i) -= 1
    18. r -= Muenzen(i)
    19. Exit For
    20. End If
    21. Next
    23. End While
    26. End Sub

    Vielen Dank schonmal für die Antwort! Leider habe ich etwas Probleme deinen Code zu verstehen =) daher ratter ich einfach mal runter wie ich es verstehe, korrigiere mich bitte wenn ich es falsch verstehe!

    Da du den Code in einem Private Sub geschrieben hast, müsste es neben dem normalen Programm laufen oder?

    VB.NET-Quellcode

    1. For i = 0 To Muenzen.Count - 1
    2. gesamt += Muenzen(i) * Inhalt(i)
    3. Next
    4. If gesamt < r Then Throw New Exception("Geld alle")

    Sofern ich das richtig verstehe zählst du hier alle Münzen zusammen um zu bestimmen wie viele es insgesamt gibt um ein Limit zu setzen und eine Warnung auszugeben falls es keine mehr gibt oder? Leider würde mir (sofern ich das richtig verstanden habe) das nicht sehr viel weiterhelfen, oder es liegt daran, das ich ebenfalls Probleme besitze den kern aus dem letzten "Block" zu verstehen :( Wenn ich mich nicht irre prüfst du ob der rest größer ist als die im Automaten vorhandenen Münzen aber zu welchen zweck :)?

    Ich setze mich auch nochmal vor das programm und versuche die Abfragen etwas zu kompremieren vielleicht stoße ich dabei auch noch auf einen Lösungsvorsatz =)

    r ist die Geldsumme (in Cent), die der Kunde erhalten soll. Wenn die Gesamtsumme aller Münzen im Gerät KLEINER als die zu zahlende Summe ist, dann gibts nen Fehler - im realen Automaten würde dann wohl der 500 Euro Schein so wieder ausgespuckt werden ;)

    Erst wenn klar ist, DASS der automat auch bezahlen kann, geht das eigentliche Münzenauswerfen los.

    Im zweiten block, der Rückgabe, ist es eigentlich simpel.
    solange noch Geld zu zahlen ist:
    Schleife über alle Münzen:
    Ist die Münze kleinergleich Restgeld und sind davon noch Münzen vorhanden?
    Ja - Münze nehmen, Anzahl im Reservefach erniedrigen und innere Schleife beenden
    Nein - Schleife weiter, so dass die nächstkleinere Münze geprüft wird.

    Ahh jetzt geht mir ein Licht auf! :)
    Die Idee mit der Ausgabe der Nachricht das nicht genug Münzen vorhanden sind, ist super! Und vielen Dank für die Erklärung jetzt erscheint es mir klarer als vorher =) Gleich nachher mal ausprobieren und schauen ob es klappt ;)

    Man kann den inneren Teil natürlich auch noch vereinfachen:

    VB.NET-Quellcode

    1. Dim m As Integer
    3. For i = 0 To Muenzen.Count - 1
    4. If r >= Muenzen(i) AndAlso Inhalt(i) > 0 Then
    5. m = Math.Min(r \ Muenzen(i), Inhalt(i))
    6. Debug.Print(Muenzen(i) & " * " & m)
    7. Inhalt(i) -= m
    8. r -= m * Muenzen(i)
    9. End If
    10. Next


    Kannst ja mal schauen, ob du selbst den Sinn DIESES Codes rausfindest ...

    @picoflop: Ist es beabsichtigt, dass der Automat Kleingeld zurückgibt, auch wenn es nicht passend ist? Unser Automat wäre mit Fußspuren übersät, wenn er das machen würde ;) Bei nicht passendem Retourgeld sollte IMHO dem Kunden sein Geld wieder retour gegeben werden (Transaktion verweigert).


    Beispiel etwas erweitert

    Enum für den Status hinzugefügt, Array für die Anzahl an Münzen, die ausgezahlt werden

    VB.NET-Quellcode

    1. Enum retourstatus
    2. inArbeit
    3. erledigt
    4. keinGeld
    5. nichtpassend
    6. End Enum
    8. Private Sub Rückgeld(ByVal r As Integer)
    9. Dim status As retourstatus = retourstatus.inArbeit
    11. Dim Muenzen() As Integer = {200, 100, 50, 20, 10, 5, 2, 1}
    12. Dim Inhalt() As Integer = {1, 0, 0, 0, 0, 0, 0, 0}
    13. Dim Auszahlung() As Integer = {0, 0, 0, 0, 0, 0, 0, 0}
    14. 'Alternativ: Dim Auszahlung = Enumerable.Repeat(0, 8).ToArray()
    16. Dim gesamt As Integer
    17. For i = 0 To Muenzen.Count - 1
    18. gesamt += Muenzen(i) * Inhalt(i)
    19. Next
    20. If gesamt < r Then
    21. status = retourstatus.keinGeld
    22. Throw New Exception("Geld alle")
    23. End If
    25. Dim m As Integer
    26. Dim sum As Integer
    28. For i = 0 To Muenzen.Count - 1
    29. If r >= Muenzen(i) AndAlso Inhalt(i) > 0 Then
    30. m = Math.Min(r \ Muenzen(i), Inhalt(i))
    31. Auszahlung(i) = m
    32. ' Debug.Print(Muenzen(i) & "€ * " & m)
    33. r -= m * Muenzen(i)
    34. sum += Muenzen(i) * m
    35. End If
    36. Next
    37. If r > sum Then
    38. status = retourstatus.nichtpassend
    39. 'Auszahlung wieder zurücksetzen
    40. Auszahlung = Enumerable.Repeat(0, 8).ToArray()
    41. Throw New Exception("Geld nicht passend")
    42. End If
    44. 'Bericht: so schauts aus...
    45. For q = 0 To Auszahlung.Count - 1
    46. Debug.Print(Muenzen(q) & "€ x " & Auszahlung(q))
    47. Next
    48. status = retourstatus.erledigt
    49. End Sub

    Obiger Code ist ja nur ein TEIL des vorherigen

    ...schon klar.

    Ist schon richtig. Wenn das Geld "summenmäßig" nicht reicht, gibt's die Ex.
    Ich meinte: wenn der Betrag höher ist, aber die Anzahl der Münzen nicht reicht, das Geld passend rauszugeben...
    Beispiel: Ein Zwanziger und ein Einer in der Kassa. Retour auf 14 EUR.
    Macht 21 EUR in der Kassa, aber passend isses nicht. Hier müsste ein Abbruch erfolgen.

    VB.NET-Quellcode

    1. 'Aufruf: Rückgeld (14)
    3. Private Sub Rückgeld(ByVal r As Integer)
    5. Dim Muenzen() As Integer = {200, 100, 50, 20, 10, 5, 2, 1}
    6. Dim Inhalt() As Integer = {0, 0, 0, 1, 0, 0, 0, 1}
    8. Dim gesamt As Integer
    9. For i = 0 To Muenzen.Count - 1
    10. gesamt += Muenzen(i) * Inhalt(i)
    11. Next
    12. If gesamt < r Then Throw New Exception("Geld alle")
    13. Debug.Print("Neuer Versuch: ")
    14. Debug.Print("Rückgeld: " & r.ToString & " EUR")
    15. Dim m As Integer
    17. For i = 0 To Muenzen.Count - 1
    18. If r >= Muenzen(i) AndAlso Inhalt(i) > 0 Then
    19. m = Math.Min(r \ Muenzen(i), Inhalt(i))
    20. Debug.Print(Muenzen(i) & " * " & m)
    21. Inhalt(i) -= m
    22. r -= m * Muenzen(i)
    23. End If
    24. Next
    27. End Sub


    Neuer Versuch:
    Rückgeld: 14 EUR
    1 * 1

    der_Kurt schrieb:

    Macht 21 EUR in der Kassa, aber passend isses nicht. Hier müsste ein Abbruch erfolgen.

    Das ist korrekt. Offensichtlich muss man das auch prüfen bzw abfangen.
    Dazu reicht es aber, nach der For-Next Schleife zu prüfen, ob r>0 ist. Wenn ja -> Fehler

    Nachtrach:
    eigentlich ne schöne "Übungsaufgabe", um objektorientiert zu programmieren - und wenn möglich ohne "Arrays" sondern mit Listen, Dictionarys etc.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „picoflop“ ()

Facebook