-
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
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
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