Vb escribe un programa para imprimir el triángulo de Yang Hui.
Función yf (n es un número entero)
ReDim a(n 1, n 1), b(n 1, n 1)
Cls
k = 8
Para i = 1 a n
Imprimir cadena ((n - i) * k / 2 1, " "); a I
a(i, 1) = 1
a(i, i) = 1
a(i 1, j 1) = a( i, j) a(i, j 1)
b(i, j) = Trim(Str(a(i, j)))
Imprimir b(i, j ); String(k - Len(b(i, j)), " ";
Siguiente j
Imprimir
Siguiente yo
p>Finalizar función
Llamar a yf(10)
Salida:
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 36 9 1