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
$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