Rechenautomat mit Double Zufallszahlen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Kilian_98.

    Rechenautomat mit Double Zufallszahlen

    Hallo!

    Wir machen gerade in der Schule eine Übung zum Thema Schleifen, und sollen einen "Rechenautomat" erstellen.

    Mit Int32 funktioniert es ohne Probleme, aber wenn man die Zufallszahlen als Double erstellen lässt, kommt es doch öfters vor, dass das Ergebnis angeblich falsch sei.

    Die Lösung des Programms kam so vom Lehrer, ich habe nur etwas mehr WriteLines eingefügt um die Ausgabe genauer zu sehen.

    Meine Frage ist nun, was genau in dem Code diesen "Fehler" verursacht. Ist es die Art und Weise wie die Zufallszahlen erstellt werden? Oder die "Runden"-Funktion? Oder doch etwas anderes?
    Und mich würde interessieren, wie man es richtig macht mit Double.

    Vielen Dank schon mal für die Hilfe.

    Hier noch der Code:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Console
    3. ' Es wird eine zufällige Rechenaufgabe gestellt.
    4. ' Der Benutzer muss das richtige Ergebnis eingeben.
    5. ' Die Aufgabe wird solange wiederholt, bis das Ergebnis stimmt
    6. Module Module1
    8. Sub Main()
    9. Do
    10. Rechenautomat(2, 10) ' Ruft die Aufgabe in den Grenzen 1-10 auf
    11. WriteLine("Möchtest Du noch eine Aufgabe lösen (j/n)?")
    12. Loop Until ReadKey(True).Key = ConsoleKey.N ' (True) bewirkt, dass Zeichen nicht angezeigt wird
    13. WriteLine("Dann einen schönen {0} noch.", Now.ToString("dddd"))
    15. ReadKey()
    16. End Sub
    18. Sub Rechenautomat(Untergrenze As Double, Obergrenze As Double)
    19. Dim sEin As String ' Für die Eingabe des Benutzers
    20. Dim iEin As Double ' Die Eingabe nach Double gewandelt
    21. Dim iA, iB, iErg As Double ' Summanden der Aufgabe und Ergebnis
    22. Dim ZufallObj As New Random ' Objekt zum Erzeugen von Zufallszahlen
    24. ' Zufällige Summanden im Bereich 1-10 bestimmen
    25. iA = 1 + 11 * ZufallObj.NextDouble
    26. WriteLine(iA)
    27. iA = Math.Round(iA, 1)
    28. WriteLine(iA)
    29. iB = 1 + 11 * ZufallObj.NextDouble
    30. WriteLine(iB)
    31. iB = Math.Round(iB, 1)
    32. WriteLine(iB)
    33. iErg = iA + iB ' Ergebnis berechnen
    34. WriteLine(iErg)
    35. 'Console.Clear() ' Bildschirm löschen
    36. WriteLine(iErg)
    37. WriteLine("Bitte löse folgende Aufgabe!")
    39. Do
    40. Write("{0} + {1} = ", iA, iB) ' Aufgabe stellen
    41. sEin = ReadLine() ' Nicht vergessen, Readline liefert String
    42. ' Sichere Konvertierung von String nach Int32
    43. Try
    44. iEin = Convert.ToDouble(sEin)
    45. Catch ex As Exception
    46. WriteLine("Ich verstehe ihre Eingabe nicht.")
    47. WriteLine("Es wird jetzt mal die 0 angenommen")
    48. iEin = 0 ' Man hätte den Try-Catch-Teil auch wieder in eine Schleife ...
    49. End Try
    51. If iEin = iErg Then
    52. WriteLine("Super! Du hast die Aufgabe {0}+{1}={2} richtig gelöst.", iA, iB, iErg)
    53. Else
    54. WriteLine("Dein Ergebnis {0} ist leider falsch!", iEin)
    55. WriteLine("Bitte nochmals versuchen!")
    56. End If
    57. Loop Until iEin = iErg
    58. End Sub
    60. End Module

    Ganz am Schluss würde ich iEin auch runden.

    Weil die Eingabe enthält ja beliebig viele Nachkommastellen, die du beim Ergebnisse rausgekürzt hast
    ODER:
    Die Zahlen werden noch nicht gerundet addiert,aber die angezeigten Zahlen sind gerundet -- Rundungsfehler.
    Du musst das Programm mit den selben Zahlen rechnen lassen welche angezeigt werden.

    Mfg

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Kilian_98“ ()

    Ich hab gerade aus Spaß mal ein bisschen mit dem Ding rumgespielt :D..

    Hier haben wir dein genanntes Problem, oder^^?

    (Siehe Bild)
    Bilder

    • Unbenannt.PNG

      20,58 kB, 683×347, 189 mal angesehen
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    Das Problem sind Zahlen, die im Zehnersystem mit endlich vielen Kommastellen darstellbar sind, im Binärsystem aber unendlich viele nachKommastellen haben.
    glaub dezimal 0,1 ist im Binärsystem nicht exakt abzubilden.

    Plausibel kann ichs vlt. am 3-er Zahlensystem machen: 1/3 ist im 3-er-System schlicht 0,1.
    Im Dezimalsystem ists
    0,33333333333333333333333333333333333333333333333333333333333333333333333333333333
    und ist immer noch nicht genau.

    Drum erst runden, dann rechnen lassen, dann kommen PC und Benutzer aufs selbe Ergebniss

    Dann wird aus 1/3 wieder 0,3. :)

    Bsp.

    PC: 0,2 + 0,2 = 0,4 --> runden 0,5
    User: 0 + 0 = 0 --> runden 0

    PC <> User

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

    Parmaster schrieb:

    Rundungsproblem
    In diesem Falle solltest Du Dich ein wenig mit Epsilontik befassen. Du musst abtesten, ob das Ergebnis in einem gewissen Bereich liegt, und dieser Bereich muss einfach geeignet gewählt werden.
    Wenn Du mit einer Nachkommastelle rechnest, sollte das Epsilon etwa 0,1 groß sein, das musst Du aber ausprobieren.
    Beispiel:
    (1 / 3) + (1 / 3) + (1 / 3) = 1
    auf eine Nachkommastelle gerundet:
    0,3 + 0,3 + 0,3 = 0,9
    Oder
    Du beschneidest die Zufallszahlen sofort auf eine Nachkommastelle:

    VB.NET-Quellcode

    1. Dim NextDouble = Math.Round(ZufallObj.NextDouble * 10) / 10
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wa ich gerade erst gesehen habe:

    Im Bild von Rootbob sieht man, das dass Ergebnisse schon richtig errechnet wurde,
    gibt er aber dasselbe noch einmal ein, gibt es einen Fehler, ich würde also sagen,
    dass es doch kein Rundungsfehler ist.
    (Zumal ja erst gerundet wird, und dann berechnet, was ich vorher leider über sehen habe)

    Ich würde also die Konvertierung noch einmal anschauen, und die Eingabe und das Ergebnisse
    noch einmal in eine Zeile schreiben lassen (bei einem Fehler)
    Steht dort immer noch das gleiche, musst du dir die Abfragemethode noch einmal anschauen

Facebook
Telefonspende