SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: diac en Miércoles 3 de Marzo de 2004, 04:49
-
Necesito saber como hacer por medio de funcion o procedimiento el triangulo de pascal, alguien me puede apoyar, de antemano muchas gracias, o si saben donde lo puedo encontrar?? les agradesco!!
-
no se si deba darte el codigo me tomo unas horas hacerlo
debe de ser para una tarea pero en fin tu eres el que no incrementa sus habilidades con este codigo puedes hacer tambien el binomio de newton.
salu2
Option Explicit
'autor: hitman47 (diego avila)
Dim e As Integer 'varible exponente
Dim a, c, d, s, r, i 'd=denominador,s=contador
'c=coeficiente,r=numerador
Private Sub Form_Load()
Show
e = Val(InputBox("introduzca el exponente"))
If e > 20 Then MsgBox "mucho": Unload Me
For i = 1 To e 'difrentes filas para los exponentes
If i = 1 Then
Print "1"
Else
d = 1
For a = 1 To i + 1 'son el exponente + 1 termino mas si es 6 son 7
r = numerar(a, i, s, r)
c = r / d 'n(n-1)/2...
Print c; 'imprimir en la misma linea
d = d * a '1*2,2*3,2*3*3...
s = s + 1
Next a
Print
s = 0
End If
Next i
End Sub
Function numerar(ByVal a As Integer, ByVal i As Integer, ByVal s As Integer, ByVal r As Integer) As Integer
If a = 2 Then
numerar = i
ElseIf a = 1 Then
numerar = a
ElseIf a > 2 Then
numerar = r * (i - (s - 1)) 'n(n-1);n(n-1)(n-2)
End If
End Function