• 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