Mostrar Triangulo de Pascal en PSeInt sin arreglos
Algoritmo TrianguloDePascalSinArreglos
Escribir "Ingrese el número de niveles: "
Leer n
Para fila <- 0 Hasta n-1 Con Paso 1 Hacer
coeficiente <- 1
Para espacios <- 1 Hasta n-fila Con Paso 1 Hacer
Escribir " " sin saltar
FinPara
Para columna <- 0 Hasta fila Con Paso 1 Hacer
Escribir coeficiente, " " sin saltar
coeficiente <- coeficiente * (fila - columna) / (columna + 1)
FinPara
Escribir ""
FinPara
FinAlgoritmo
Ingrese el número de niveles:
> 10
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
*** Ejecución Finalizada. ***
Ref:
