Trójkąt Pascala

Prosty programik, pokazujący część tzw. trójkąta Pascala

widok etykiety programu



Dim N As Integer, M As Integer
Dim x1 As String
Dim i As Integer

'obsługa command button licz'
Private Sub cmdLicz_Click()
Dim lngS As Long
N = Val(txtN.Text)
For M = 0 To N 'liczenie silni'
lngS = Silnia(M)
x1 = " "
For i = 0 To M 'liczenie współczynników rozwinięcia'
wsp = lngS \ (Silnia(i) * Silnia(M - i))
x1 = x1 & Str(wsp) & " "
Next i
okno.Caption = x1
Next M
End Sub
Function Silnia(x) As Long
If x = 0 Then
Silnia = 1
Else
Silnia = x * Silnia(x - 1)
End If
End Function

Private Sub koniec_Click()
Unload Me
End
End Sub
Pobierz program download
>