Pascalsches Dreieck und VBA

Die Funktion berechnet eine Zeile aus dem Pascalschen Dreieick und gibt diesen als Zeilenvektor zurück. Der Quelltext ist in VBA geschrieben.

Public Function PD(k As Long)
             Dim i As Integer
             Dim j As Integer
             ReDim p_d(0 To k) As Long

            p_d(0) = 1
            
            For i=1 To k
                   For j=i To 1 Step -1
                          p_d(j) = p_d(j) + p_d(j – 1)
                   Next  j
            Next  i

            PD = p_d
End Function

Beispiel: PD(4) liefert das Ergebnis 1,4,6,4,1

 

Gruß
Ersin Söbütay

Aufrufe: 406

Add a Comment

WP2Social Auto Publish Powered By : XYZScripts.com