Genaue Rechen Ergebnisse / Exakte Zahlen

  • Hi Community.

    Aus langeweile schrieb ich heute ein Programm, was das Pascal'sche Dreieck berechnet. Nach der 55. Stelle werden die Zahlen allerdings gerundet (mit eXX) also Zehnerpotenzen.

    Vorhin hatte ich es schon ein Mal gefunden, jetzt find ich es leider nicht mehr wieder. Irgendwer hatte extra für so etwas eine Funktion geschrieben. Vielleicht weiß jemand von euch wie sie heißt und könnte den Link posten oder einen Vorschlag machen, ein genaues Ergebniszu erhalten.

    Vielen Dank

    Aquaplant

    Falls ihr euch über die Überschrift wundert - die ist nur so komisch, damit die SuMa damit etwas mehr anfangen kann ;)

    Wen das Script interessiert (ist allerdings noch kein Dreieck, dass wollte ich noch irgendwie in txt Form zusammenbasteln):

    Spoiler anzeigen
    [autoit]

    $Ende = 55
    $Path = @ScriptDir & "\temp.ini"
    If FileExists($Path) = 1 Then
    FileDelete($Path)
    EndIf
    IniWrite($Path, "1", "1", "1")
    IniWrite($Path, "2", "1", "1")
    IniWrite($Path, "2", "2", "1")
    For $Menge = 2 To $Ende
    $Section = IniReadSectionNames($Path)
    $Ebene = $Section[$Section[0]] + 1
    $Werte1 = IniReadSection($Path, $Ebene - 1)
    IniWrite($Path, $Ebene, "1", "1")
    For $i = 1 To $Werte1[0][0] - 1
    $Wert2 = $Werte1[$i][1]+$Werte1[$i+1][1]
    IniWrite($Path, $Ebene, $i+1, $Wert2)
    Next
    IniWrite($Path, $Ebene, $Werte1[0][0] + 1, "1")
    Next

    [/autoit]

    Einmal editiert, zuletzt von Aquaplant (20. April 2010 um 20:54)