euklidischer Algorithmus

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    euklidischer Algorithmus

    Habe mich heute mal mit ein bissel Mathe und VB beschäftigt. Dabei bin ich auf den Euklidischen Algorithmus und Primfaktor gestoßen. Im Web gibt es wieder X-Lösungsansätze. Habe dann einen gefunden, der zwar in C# aber nur rudimentär behandelt wurde.
    Habe das dann versucht in VB umzuwandeln.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class frm_main
    3. Dim a, b, neu_a As Double
    4. Dim rest As Double = 0
    5. Dim zwischenergebnis_ggt As Double = 0
    6. Dim ggteiler As Double
    7. Dim kgvielfache As Double
    8. Dim zahl2prim As Double
    9. Dim zwischenergebnis_kgv As Double
    11. Private Sub btn_berechnen_Click(sender As Object, e As EventArgs) Handles btn_berechnen.Click
    12. lb_ausgaben.Items.Clear()
    13. lb_primfaktor.Items.Clear()
    14. GGT_Ausgabe()
    15. primfaktor()
    16. End Sub
    18. Private Sub ZwischenschritteGGT()
    19. zwischenergebnis_ggt = CDbl(zwischenergebnis_ggt.ToString("N2"))
    20. lb_ausgaben.Items.Add(a & " geteilt durch " & b & " = " & zwischenergebnis_ggt & " Rest " & rest)
    21. End Sub
    23. Private Sub ZwischenschritteKGV()
    24. lb_ausgaben.Items.Add(a & " mal " & b & " = " & zwischenergebnis_ggt & " geteilt durch " & ggteiler)
    25. End Sub
    27. Private Sub GGT_Ausgabe()
    28. GGT_EuklidscherAlgorithmus()
    29. lb_ausgaben.Items.Add(Environment.NewLine)
    30. lb_ausgaben.Items.Add("Größter gemeinsamer Teiler: " & ggteiler)
    31. lb_ausgaben.Items.Add(Environment.NewLine)
    32. KGV_EuklidscherAlgorithmus()
    33. lb_ausgaben.Items.Add(Environment.NewLine)
    34. lb_ausgaben.Items.Add("Kleinstes gemein. Vielefache: " & kgvielfache)
    35. End Sub
    37. Private Function GGT_EuklidscherAlgorithmus() As Integer
    38. a = CInt(tb_zahl_a.Text)
    39. b = CInt(tb_zahl_b.Text)
    40. If a <= 0 OrElse b <= 0 Then : a = 0 : Return CInt(a) : Exit Function : End If
    41. If a < b Then neu_a = b : b = a : a = neu_a
    42. While b <> 0
    43. rest = a Mod b
    44. zwischenergebnis_ggt = a / b
    45. ZwischenschritteGGT()
    46. a = b
    47. b = rest
    48. End While
    49. ggteiler = a
    50. Return CInt(ggteiler)
    51. End Function
    53. Private Function KGV_EuklidscherAlgorithmus() As Integer
    54. a = CInt(tb_zahl_a.Text)
    55. b = CInt(tb_zahl_b.Text)
    56. kgvielfache = a * b / ggteiler
    57. zwischenergebnis_ggt = a * b
    58. ZwischenschritteKGV()
    59. Return CInt(kgvielfache)
    60. End Function
    62. Private Sub primfaktor()
    63. zahl2prim = CInt(a)
    64. If zahl2prim = 1 Then
    65. lb_primfaktor.Items.Add("Zahl ist nicht weiter teilbar.")
    66. Else
    67. While zahl2prim Mod 2 = 0
    68. zwischenergebnis_kgv = CInt(zahl2prim / 2)
    69. lb_primfaktor.Items.Add(zahl2prim & " : " & 2 & " = " & zwischenergebnis_kgv)
    70. zahl2prim = CInt(zahl2prim / 2)
    71. End While
    72. Dim i As Int64 = 3
    73. While i <= zahl2prim
    74. While zahl2prim Mod i = 0
    75. zwischenergebnis_kgv = CInt(zahl2prim / i)
    76. lb_primfaktor.Items.Add(zahl2prim & " : " & i & " = " & zwischenergebnis_kgv)
    77. zahl2prim = CInt(zahl2prim / i)
    78. End While
    79. i = i + 2
    80. End While
    81. End If
    82. End Sub
    84. Private Sub tb_zahl_a_Click(sender As Object, e As EventArgs) Handles tb_zahl_a.Click
    85. tb_zahl_a.Clear()
    86. End Sub
    87. Private Sub tb_zahl_b_Click(sender As Object, e As EventArgs) Handles tb_zahl_b.Click
    88. tb_zahl_b.Clear()
    89. End Sub
    90. End Class

    Bilder

    • Euklid-1.jpg

      143,46 kB, 643×342, 142 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Klingt böse, aber als Moderator muss ich: Kommt da noch ne Frage oder was willst Du uns sagen?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Achso, völlig vergessen.

    Ja Frage: was geht zu verbessern.
    Gerade bei den Funktionen.

    Hatte zuerst:

    VB.NET-Quellcode

    1. Private Function GGT_EuklidscherAlgorithmus(ByVal a AS Integer, ByVal b As Integer) As Integer

    Ohne das, die Textboxen mit in die Funktion reinzubringen.
    a = CInt(tb_zahl_a.Text)
    b = CInt(tb_zahl_b.Text)

    Da hatte ich aber Probleme das in die Funktion zu bringen.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    CInt(tb_zahl_a.Text)
    CInt in Verbindung mit einer TextBox ist gefährlich, weil du in eine TextBox etwas anderes als Zahlen schreiben kannst. Dann knallt's.
    Nimm besser ein NumericUpDown oder, wenn du Textboxen hast, nimm wenigstens Integer.TryParse
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --