battle programmers alliance
Would you like to react to this message? Create an account in a few clicks or log in to continue.

battle programming a forum for elite programmers with extreme will power to sharpen their skills
HomeGallerySearchRegisterLog in pascal triangle

Go down 
Moti Barski
Moti Barski

Posts : 573
Join date : 2011-08-02 pascal triangle Empty
PostSubject: pascal triangle pascal triangle EmptySat Dec 02, 2017 10:10 am

add button to the windows form

code :
Public Class Form1
    Function pascal(ByVal floor As Integer) As String
        Dim ar1 = New Integer() {1, 1}
        If floor < 2 Then
            Return "1 1"

        End If
        Return pascalPt2(floor, 2, ar1)
    End Function
    Function pascalPt2(ByVal floor As Integer, ByVal at As Integer, ByVal prevfloor As Object) As String
        Dim result = ""
        Dim ar2(at) As Integer
        ar2(0) = 1
        If at = floor + 1 Then
            For Each item As Integer In prevfloor
                result &= item.ToString() & " "

            Return result
            For index = 0 To at - 2
                ar2(index + 1) = prevfloor(index) + prevfloor(index + 1)
            ar2(at) = 1
        End If
        Return pascalPt2(floor, at + 1, ar2)
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    End Sub
End Class
king study farao

MB over and out emp it up
Back to top Go down pascal triangle
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
battle programmers alliance :: battle programming alliance :: battle programming-
Jump to: