Zufallsgenerator (bestimmte Zahlen...)

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Lightsource.

    Zufallsgenerator (bestimmte Zahlen...)

    Hallo :D
    Wie kann ich einen Zufallsgenerator machen,der mir immer vier Zahlen ausgibt,und wenn man die Quersumme der ersten drei Zahlen plus die letzte Zahl rechnet 130 herauskommt?

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

    Ermittle nur 3 Zahlen addiere sie und ziehe sie von 130 ab.
    Das Ergebnis ist deine vierte Zufallszahl!




    Oder:

    ermittle 4 Zahlen, addiere sie.
    Anschließend rechne

    1te Ergeniszahl = 1te Zahl * 130 / Summe(Zahl1+Zahl2+Zahl3+Zahl4)
    2te Ergeniszahl = 2te Zahl * 130 / Summe(Zahl1+Zahl2+Zahl3+Zahl4)
    3te Ergeniszahl = 3te Zahl * 130 / Summe(Zahl1+Zahl2+Zahl3+Zahl4)
    4te Ergeniszahl = 4te Zahl * 130 / Summe(Zahl1+Zahl2+Zahl3+Zahl4)

    Ok, du hast deinen Beitrag bearbeitet. Jetzt stimmt meine Formel natürlich nicht mehr.

    Das Prinzip bleibt aber das gleiche.

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

    Ich weiß nicht, ob ich Dein Problem verstanden habe.
    Die größte mögliche Quersumme einer 4-stelligen Zahl (9999) beträgt 36.
    Lässt sich dies mit der Aufgabenstellung vereinen?
    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!

    Habe mich jetzt extra noch mal dran gesetzt.
    Teste es mal, ob es nun deinen Ansprüchen gerecht wird. :S
    Du musst die Funktion "VierZahlen" ohne Parameter aufrufen und erhältst einen String
    mit den 4 Zahlen zurück.

    VB.NET-Quellcode

    1. Function quersumme(ByVal zahl As Integer) As Integer
    2. quersumme = 0
    3. Dim str As String = CStr(zahl)
    5. For Each C As Char In str.ToCharArray
    6. quersumme = quersumme + CInt(C.ToString)
    7. Next
    8. Return quersumme
    10. End Function
    12. Function VierZahlen() As String
    14. Dim rn As New System.Random
    16. Dim bereich As Integer = 9999
    17. Dim a, b, c, d, aq, bq, cq As Integer
    19. a = CInt(rn.NextDouble * bereich)
    20. aq = quersumme(a)
    22. b = CInt(rn.NextDouble * bereich)
    23. bq = quersumme(b)
    25. c = CInt(rn.NextDouble * bereich)
    26. cq = quersumme(c)
    28. d = 130 - (aq + bq + cq)
    30. Return a.ToString & " " & b.ToString & " " & c.ToString & " " & d.ToString
    33. End Function

Facebook
Telefonspende