Triángulo de Pascal

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Programa que pide el número de niveles para mostrar el Triángulo de Pascal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

Algoritmo ProcesoPascal

    Escribir Sin Saltar "Ingrese el número de niveles: ";

    Leer n;

    Dimension buffer[n+2];

    Dimension fila[n+2];

    Para j<-1 Hasta n+2 Con Paso 1 Hacer

        buffer[j] <- 0;

        fila[j]   <- 0;

    FinPara

    Para i<-1 Hasta n+1 Con Paso 1 Hacer

        fila[1] <- 1;

        fila[i] <- 1;

        Para j<-2 Hasta i+1 Con Paso 1 Hacer

            fila[j] <- buffer[j-1] + buffer[j];

        FinPara

        j <- n-1;

        Mientras j>=i-1 Hacer

            Escribir Sin Saltar "   ";

            j <- j-1;

        FinMientras

        Para j<-1 Hasta i Con Paso 1 Hacer

            Si fila[j]<10000 Entonces

                Escribir Sin Saltar " ";

            FinSi

            Si fila[j]<1000 Entonces

                Escribir Sin Saltar " ";

            FinSi

            Si fila[j]<100 Entonces

                Escribir Sin Saltar " ";

            FinSi

            Si fila[j]<10 Entonces

                Escribir Sin Saltar " ";

            FinSi

            Escribir Sin Saltar fila[j], " ";

        FinPara

        Escribir "";

        Para j<-1 Hasta n+2 Con Paso 1 Hacer

            buffer[j] <- fila[j];

        FinPara

    FinPara

FinAlgoritmo