PROBLEMA 1

HACER UN ALGORITMO QUUE PERMITA SUMAR LOS NUMEROS DEL 2 AL 100.

Y QUE ESTOS ESTEN DE 2 EN 2
PSEUDOCODIGO DIAGRAMA

Proceso suma
Leer n
Para i<-2 Hasta 100 Con Paso 2
Hacer
s<-s+i
Fin Para
Escribir "la suma es", s
FinProceso

PROBLEMA 2
Realizar un algoritmo que lea la base por altura. Y este que imprima el resultado.
PSEUDOCODIGO DIAGRAMA
Proceso areaporbase
Leer a
Leer b
r<-a*b
Escribir r

FinProceso

PROBLEMA 3
Realizar un algoritmo que cuente números hasta n.
PSEUDOCODIGO DIAGRAMA
Proceso contar
Leer m
Para i<-1 Hasta m Con Paso
1 Hacer
Escribir los
numeros son, i
Fin Para

FinProceso

PROBLEMA 4
Hacer un algoritmo que cuente los números de dos y mostrarlo por pantalla.
PSEUDOCODIGO DIAGRAMA
Proceso contarde2
Leer n
Para i<-1 Hasta n Con Paso 2
Hacer
Escribir los numeros
son i
Fin Para

FinProceso

PROBLEMA 5
Hacer un algoritmo que cuente los números del 1 al 10. Y mostrarlos por pantalla
PSEUDOCODIGO DIAGRAMA

Proceso contarnumeros
x<-0
Mientras x<10 Hacer
x<-x+1
Escribir x

Fin Mientras
FinProceso

PROBLEMA 6
Hacer un algoritmo que cuente los números de 1 hasta n, mostrarlos por pantalla.
PSEUDOCODIGO DIAGRAMA
Proceso ContarNumeros
Leer n
cont<-0
Mientras cont<n Hacer

cont<-cont+1
Escribir cont
Fin Mientras
FinProceso

PROBLEMA 7
Desarrolle un algoritmo que le permita determinar de una lista de números:
1. ¿Cuántos están entre el 50 y 75, ambos inclusive?
PSEUDOCODIGO DIAGRAMA

Proceso listadenumeros
Escribir "leer n"
Leer n
c<-0
t<-""
Para i<-1 Hasta n Con Paso 1
Hacer
Leer x

Si (x>=50) & (x<=70)

Entonces
c<-c+1
Fin Si

Fin Para
Escribir c
FinProceso

PROBLEMA 8
Hacer un algoritmo que determine la hipotenusa de un triángulo rectángulo conocidas las
longitudes de sus dos catetos.
PSEUDOCODIGO DIAGRAMA
Proceso Hipotenusa
Escribir "leer cateto a"
Leer a
Escribir "leer cateto b"
Leer b
h<-RC(a*a+b*b)
Escribir "la hipotenusa es :" , h
FinProceso

PROBLEMA 9
Hacer un algoritmo que lea el mayor de tres números, y lo muestre por pantalla.
PSEUDOCODIGO DIAGRAMA

Proceso mayorde3numeros
Leer x
Leer w
Leer z
Si x>w Entonces
Si x>z Entonces
Escribir "x es mayor"
Sino
Escribir "z es mayor"
Fin Si
Sino
Si w>z Entonces
Escribir "z es mayor"
Sino
Escribir "w es mayor"
Fin Si
Fin Si

FinProceso

PROBLEMA 10
Hacer un algoritmo que dé el resultado de una multiplicación y que el resultado lo muestre
por pantalla.
PSEUDOCODIGO DIAGRAMA
Proceso multiplicacion
Leer p
Leer m
c<-p*m
Escribir "la multiplicación es ", c

FinProceso

PROBLEMA 11
Hacer un algoritmo que muestre los números múltiplos del 5.
PSEUDOCODIGO DIAGRAMA

Proceso multiplosde5
Leer m
x<-x+0
Mientras x<m Hacer
x<-x+5
Escribir x
Fin Mientras

FinProceso

PROBLEMA 12
Hacer un algoritmo que lea números hasta n, y que muestre por pantalla los números
impares.
PSEUDOCODIGO DIAGRAMA

Proceso numerosimpares
 Leer r
c<-1
Mientras c<r Hacer
c<-c+2
Escribir c

Fin Mientras

FinProceso

PROBLEMA 13
Hacer una algoritmo que lea los números hasta n, y que muestre por pantalla los números
pares
PSEUDOCODIGO DIAGRAMA

Proceso numerospares
Leer n
c<-0
Mientras c<n Hacer
c<-c+2
Escribir c
Fin Mientras

FinProceso

PROBLEMA 14
Desarrolle un algoritmo que lea unos números y que muestre si es par o impar.
PSEUDOCODIGO DIAGRAMA
Proceso paroimpra
Escribir "leer n"
Leer n
Si (n%2)==0 Entonces
Escribir n, "es par"
Sino
Escribir n, "es impar"
Fin Si

FinProceso

PROBLEMA 15
Desarrolle un algoritmo que lea un número y que muestre su raíz cuadrada por pantalla.
PSEUDOCODIGO DIAGRAMA

Proceso raizcuadrada
Escribir "ingrese un numero"
Leer x
Mientras x>=0 Hacer
Escribir "la raiz
cuadrada es",RC(x)
Fin Mientras
FinProceso

PROBLEMA 16
Hacer un algoritmo que lea números y muestre el resultado por pantalla de una resta
PSEUDOCODIGO DIAGRAMA
Proceso resta
Leer m
Leer n
r<-m-n
Escribir "el resultado
de la resta es ",r
FinProceso

PROBLEMA 17
Hacer un algoritmo que lea números y muestre el resultado por pantalla de una suma.
PSEUDOCODIGO DIAGRAMA

Proceso suma
Leer n
Para i<-2 Hasta 100 Con Paso 2
Hacer
s<-s+i
FinPara
Escribir 'la suma es',s
FinProceso

PROBLEMA 18
Desarrolle un algoritmo que lea números y que muestre por pantalla cuantos son impar. Y a la
vez que muestre la sumatoria de los números impares.
PSEUDOCODIGO DIAGRAMA
Proceso sumatoriaeimpares
Escribir "leer n"
Leer n
s<-0
c<-0
Para i<-1 Hasta n Con Paso 1 Hacer
Si i%2<>0 Entonces
s<-s+i
c<-c+1
Fin Si
Fin Para
Escribir "los numeros impares son ",c
Escribir "la sumatoria de los numeros
impares son",s

FinProceso

PROBLEMA 19
Hacer un algoritmo que muestre la tabla de multiplicar de un número. Usando el método de
FOR.
PSEUDOCODIGO DIAGRAMA

Proceso tablademultiplicar
Leer g
Para i<-1 Hasta 10 Con Paso 1 Hacer
Escribir g,"x",i,"=",g*i
Fin Para

FinProceso

PROBLEMA 20
Hacer un algoritmo que muestre la tabla de multiplicar de un número. Usando el método de
WHILE.
PSEUDOCODIGO DIAGRAMA

roceso tablademutiplicar
 Leer t
i<-1
Mientras i<=10 Hacer
Escribir t,"x",i,"=",t*i
i<-i+1

Fin Mientras
FinProceso

PROBLEMA 21
Desarrolle un algoritmo que lea un número y que muestre un mensaje si puede o no vota
en elecciones.
PSEUDOCODIGO DIAGRAMA

Proceso voto
Leer x
Si x>=18 Entonces
Escribir "puede votar"
Sino
Escribir "no puede
votar"
Fin Si

FinProceso

PROBLEMA 22
Realizar un algoritmo que muestre si un número es primo o no.
PSEUDOCODIGO DIAGRAMA
Proceso num_primo
Escribir "leer n"
leer n
c<-0
Para i<-1 Hasta n Con Paso 1 Hacer
Si (n%i)=0 Entonces
c<-c+1
Fin Si
Fin Para
Si c=2 Entonces
Escribir "es primo"
Sino
Escribir "no es primo"
Fin Si

FinProceso

PROBLEMA 23
Hacer un algoritmo que en dado un número sea una provincia del Gran Chaco.
PSEUDOCODIGO DIAGRAMA
Proceso provinicias
Leer s
Segun op Hacer
1:
Escribir
"Yacuiba"
2:
Escribir
"Carapari"
3:
Escribir
"Villamontes"
De Otro Modo:
Escribir
"ninguno"
Fin Segun

FinProceso

PROBLEMA 24
Hacer un algoritmo que dado un numero se dé un departamento de Bolivia.
PSEUDOCODIGO DIAGRAMA
Proceso departamentos
Escribir 'leer N'
Leer n
Segun n Hacer
1:

Escribir 'Tarija'
2:

Escribir 'Pando'
3:

Escribir
'Cochabamba'
4:

Escribir 'Beni'
5:

Escribir 'Santa Cruz'

6:

Escribir 'La Paz'

7:

Escribir 'Oruro'
8:

Escribir 'Potosí'
9:

Escribir 'Chuquisaca'
De Otro
Modo:

Escribir 'no pertence'

FinSegun
FinProceso

Vectores
PROBLEMA 25
Desarrollar un algoritmo que muestre solo los numeros pares y que se almacenen en un
vector.
PSEUDOCODIGO DIAGRAMA
Proceso numeros_pares
Dimension num(10)
Escribir "introducir tamaño del
vector"
Leer n
c<-1
Para i<-1 Hasta n Con Paso 1 Hacer
Si i%2=0 Entonces
num(c)<-i
c<-c+1
Fin Si
Fin Para
Para j<-1 Hasta c Con Paso 1 Hacer
Escribir
"num","(",j,")","=",num(j)
Fin Para
FinProceso

PROBLEMA 26
Realizar un algoritmo que lea 5 numeros que los almacene en un vector y que encuentre el
menor de ellos.
 PSEUDOCODIGO DIAGRAMA
Proceso menorde5numeros
Dimension v(10)
Escribir "introducir numeros de
elementos"

Leer n

Para i<-1 Hasta n Con Paso 1 Hacer

Leer v(i)
Fin Para
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "v(",i,")=",v(i)
Fin Para
aux<-v(1)
Para i<-2 Hasta n Con Paso 1 Hacer
Si aux>v(i)Entonces
aux<-v(i)
Fin Si
Fin Para
Escribir "el minimo es" , aux
FinProceso

PROBLEMA 27
Realizar un algoritmo que lea numeros, que los ordene de menor a mayor y los almacene en
un vector.
 PSEUDOCODIGO DIAGRAMA
Proceso ordenar_numeros
Dimension a(10)
Escribir "introducir tamaño de
vector"
leer n
Escribir "introducir los datos al
vector"
Para i<-1 Hasta n Con Paso 1 Hacer
Leer a(i)
Fin Para
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n-1 Con Paso
1 Hacer
Si a(j)>a(j+1)
Entonces
aux<-a(j)
a(j)<-a(j+1)
a(j+1)<-aux
Fin Si
Fin Para
Fin Para
Escribir "la lista ordenada es"
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "a(",i,")=",a(i)," "Sin
Saltar
Fin Para
FinProceso

PROBLEMA 28
Realizar un algoritmo que cargue en un vector numeros y luego lo busuque.
PSEUDOCODIGO DIAGRAMA
SubProceso cargar(n,a)
Escribir "leer elementos del vector"
Para i<-1 Hasta n Con Paso 1 Hacer
Leer a(i)
Fin Para
FinSubProceso

SubProceso muestra(n,a)
Escribir "los elementos del vector"
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "a(",i,")",a(i)
Fin Para
FinSubProceso

SubProceso buscar(n,a)
X<-0
Escribir "que dato buscas"
Leer t
Para j<-1 Hasta n Con Paso 1 Hacer
Si a(j)=t Entonces
Escribir "el dato
buscado existe ",a(j)
x<-x+1
Fin Si
Fin Para
Si x=0 Entonces
Escribir "no existe el dato
buscado en la lista"
Fin Si
FinSubProceso

Proceso busca
Dimension a(10)
Escribir "introducir tamaño del
vector"
Leer n
cargar(n,a)
muestra(n,a)
buscar(n,a)
FinProceso

PROBLEMA 29
Crear un algoritmo para almacenar los numeros primos.
PSEUDOCODIGO DIAGRAMA
Proceso primo
dimension v(15)
Escribir "leer n"
Leer n
f<-1
Para j<-1 Hasta n Con Paso 1 Hacer

c<-0
Para i<-1 Hasta j Con Paso 1 Hacer
Si (j%i)=0 Entonces
c<-c+1
Fin Si
Fin Para

Si c=2 Entonces
v(f)<-j
Escribir "v(",f,")=",v(f)
f<-f+1
Fin Si
FinPara
FinProceso

PROBLEMA 30
Hacer un algoritmo que cargue un vector con numeros del 1 al 10.
PSEUDOCODIGO DIAGRAMA
Proceso numeros
Dimension m(10)
Para i<-1 Hasta 10 Con Paso 1 Hacer
m(1)<-1
Fin Para
Para j<-1 Hasta 10 Con Paso 1 Hacer
Escribir " ",j " "
Fin Para
FinProceso

PROBLEMA 31
Crear un algoritmo para almacenar los numeros y que luego los ordene de mayor a menor.
 PSEUDOCODIGO DIAGRAMA
Proceso el_mayor_y_menor_de_un_vector
Dimension a(10), b(10),c(10)
Escribir "leer el tamaño del vector"
Leer n
Escribir "leer vector a"
Para i<-1 Hasta n Con Paso 1 Hacer
Leer a(i)
FinPara
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n-1 Con Paso
1 Hacer
Si a(j)>a(j+1)
Entonces
aux<-a(j)
a(j)<-a(j+1)
a(j+1)<-aux
Fin Si
Fin Para
Fin Para
Escribir "la lista ordenada es: "
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir a(i)
Fin Para
Escribir "el menor es", a(1)
Escribir "el mayor es", a(n)
FinProceso

PROBLEMA 32
Crear un algoritmo para almacenar 3 numeros y luego saque el promedio de estos.
PSEUDOCODIGO DIAGRAMA
Proceso promedio
dimension a(3)
escribir "int datos al vector"
Para i<-1 Hasta 3 Con Paso 1 Hacer
Leer a(i)
Fin Para
s<-0
Para j<-1 Hasta 3 Con Paso 1 Hacer
s<-s+a(j)
Fin Para
Escribir "el promedio es: ",s/3
FinProceso

PROBLEMA 33
Crear un algoritmo para cargar valores a dos vectores. (A,B) luego realizar la suma y el
resultado almacenarlo en un vector c.
PSEUDOCODIGO DIAGRAMA
subproceso cargar(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Leer a(i)
Fin Para

FinSubProceso
subproceso impri(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "a(",i,")= ",a(i)
Fin Para

FinSubProceso
subproceso suma(n,a,b,c)
Para i<-1 Hasta n Con Paso 1 Hacer
c(i)<-a(i)+b(i)
Fin Para
Escribir "la suma es "
impri(n,c)

FinSubProceso
Proceso principal
Dimension a(10), b(10), c(10)

Escribir "leer tamaño del vector"

Leer n
Escribir "leer datos A"
cargar(n,a)
Escribir "leer datos B"
cargar(n,b)
Escribir "los datos del vector A "
impri(n,a)
Escribir "los datos del vector B "
impri(n,b)
suma(n,a,b,c)
FinProceso

PROBLEMA 34
Hacer una algoritmo que leas varios numeros, lo almacene en un vector, y luego lo ordene
ascendentemente.
PSEUDOCODIGO DIAGRAMA
Proceso ordenar_en_fila
dimension a(10)
Escribir "int tamaño del vector"
Leer n
Escribir "intr los datos al vector"
Para i<-1 Hasta n Con Paso 1 Hacer
Leer a(i)
FinPara

Para i<-1 Hasta n Con Paso 1 Hacer

Para j<-1 Hasta n-1 Con Paso
1 Hacer
Si a(j)>a(j+1)
Entonces
aux<-a(j)
a(j)<-a(j+1)
a(j+1)<-aux
Fin Si
Fin Para
Fin Para
Escribir "la lista ordenada es: "
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "a(",i,")=", a(i), " " sin
saltar
Fin Para
FinProceso

PROBLEMA 35
Crear un algoritmo para almacenar la serie Fibonacci desde el 1 al 50 en un vector.
PSEUDOCODIGO DIAGRAMA
Proceso fibonacci
Dimension v(50)
Escribir "leer tamaño del vector"
leer n
a<-1
b<-2
Escribir a,"=",a
Escribir b,"=",b
Para i<-3 Hasta n Con Paso 1 Hacer
c<-a+b
a<-b
b<-c
Escribir i,"=",c
Fin Para
FinProceso
 MATRIZ
PROBLEMA 36
Realizar un algoritmo para cargar una mariz de n*n
PSEUDOCODIGO DIAGRAMA
Proceso colocar_en_matriz
Dimension m(10,10)
Para i<-1 Hasta 2 Con Paso 1 Hacer
Para j<-1 Hasta 2 Con Paso 1
Hacer
Leer m(i,j)

Fin Para
Fin Para
Para i<-1 Hasta 2 Con Paso 1 Hacer
Para j<-1 Hasta 2 Con Paso 1
Hacer
Escribir
"m(",i,j,")=",m(i,j)
Fin Para
Fin Para
FinProceso

PROBLEMA 37
Realizar una matriz de 5*5 y cargarla.
PSEUDOCODIGO DIAGRAMA
Proceso matriz_n
Dimension m(5,5)
Escribir "leer tamaño de la matriz"
Leer n
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
Si (i=j) Entonces
m(i,j)<-1
Sino
m(i,j)<-0

Fin Si
Fin Para
Fin Para
Para i<-1 Hasta 2 Con Paso 1 Hacer
Para j<-1 Hasta 2 Con Paso 1
Hacer
Escribir "m(",i,j,")=",m(i,j)
Fin Para
Fin Para
FinProceso
PROBLEMA 38
Realizar un algoritmo para una matriz cargar la matriz A y la matriz B, sumarlas y
almacenarla en una matriz C el resultado.
PSEUDOCODIGO DIAGRAMA
subproceso cargar(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
Leer a(i,j);
Fin Para
Fin Para
FinSubProceso

SubProceso imp(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir " ";
Para j<-1 Hasta n Con Paso 1
Hacer
Escribir " ",a(i,j)Sin
Saltar;
Fin Para
Fin Para
FinSubProceso

SubProceso sumar(n,a,b,c)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
c(i,j)<-a(i,j)+b(i,j);
Fin Para
Fin Para
imp(n,c);
FinSubProceso

Proceso suma

Dimension a(10,10), b(10,10),

c(10,10);
Escribir "Suma de Matrices"
Escribir "introducir tamaño de la
matriz"
Leer n
Escribir "introducir elementos"
cargar(n,a)
Escribir ""
Escribir "la matriz A"
imp(n,a)
Escribir " "
Escribir "introducir elementos"
cargar(n,b)
 Escribir "la matriz B"
imp(n,b)
Escribir " "
Escribir "matriz C"
Escribir " la suma es "
sumar(n,a,b,c)
Escribir ""
FinProceso

PROBLEMA 39
Realizar un algoritmo para una matriz cargar la matriz A y la matriz B, multiplicarlas y
almacenarla en una matriz C el resultado.
PSEUDOCODIGO DIAGRAMA
subproceso cargar(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
Leer a(i,j)
Fin Para
Fin Para
FinSubProceso

SubProceso imp(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir " "
Para j<-1 Hasta n Con Paso 1
Hacer
Escribir " ",a(i,j)Sin
Saltar
Fin Para
Fin Para
FinSubProceso

Subproceso mult(n,a,b,c)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
c(i,j)<-0
c(i,j)<-c(i,j)
+a(i,j)*b(i,j)
Fin Para
Fin Para
imp(n,c)
FinSubproceso

Proceso multiplicacion
Dimension a(10,10), b(10,10),
c(10,10)
 Escribir "multiplicacion de Matrices"
Escribir "int tamaño de la matriz"
Leer n
Escribir "int elemntos"
cargar(n,a)
Escribir ""
Escribir "la matriz A"
imp(n,a)
Escribir " "
Escribir "int elemntos"
cargar(n,b)
Escribir "la matriz B"
imp(n,b)
Escribir " "
Escribir " la multiplicacion es "
mult(n,a,b,c)
Escribir ""
FinProceso

PROBLEMA 40
Realizar un algoritmo para una matriz cargar la matriz A y la matriz B, restar y almacenarla
en una matriz C el resultado.
PSEUDOCODIGO DIAGRAMA
subproceso cargar(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
Leer a(i,j)
Fin Para
Fin Para
FinSubProceso

SubProceso imp(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir " "
Para j<-1 Hasta n Con Paso 1
Hacer
Escribir " ",a(i,j)Sin
Saltar
Fin Para
Fin Para
FinSubProceso

SubProceso resta(n,a,b,c)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
c(i,j)<-0
c(i,j)<-a(i,j)-b(i,j)
Fin Para
Fin Para
 imp(n,c)
FinSubProceso

Proceso restar
Dimension a(10,10), b(10,10),
c(10,10)
Escribir "int tamaño de la matriz"
Leer n
Escribir "int elemntos"
cargar(n,a)
Escribir "la matriz A"
imp(n,a)
Escribir " "
Escribir "int elemntos"
cargar(n,b)
Escribir "la matriz B"
imp(n,b)
Escribir " "
Escribir "la matriz c"
Escribir " la resta es "
resta(n,a,b,c);
Escribir "";
FinProceso

PROBLEMA 41
Hacer un algoritmo que realice la matriz transpuesta.
PSEUDOCODIGO DIAGRAMA
subproceso cargar(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
Leer a(i,j)
Fin Para
Fin Para
FinSubProceso

SubProceso imp(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir " "
Para j<-1 Hasta n Con Paso 1
Hacer
Escribir " ",a(i,j)Sin
Saltar
Fin Para
Fin Para
FinSubProceso

SubProceso transpuesta(n,a,c)

Para i<-1 Hasta n Con Paso 1 Hacer

Para j<-1 Hasta n Con Paso 1
Hacer
c(i,j)<-a(j,i);
Fin Para
Fin Para
imp(n,c);
FinSubProceso

Proceso transpuestas
Dimension a(10,10), b(10,10),
c(10,10)
Escribir "int tamaño de la matriz"
Leer n
Escribir "int elemntos"
cargar(n,a)
Escribir "Matriz A"
imp(n,a)
Escribir ""
Escribir "Matriz Transpuesta B"
transpuesta(n,a,c)
Escribir " "
FinProceso

PROBLEMA 42
Realizar un algoritmo que realice la matriz identidad.
PSEUDOCODIGO DIAGRAMA
subproceso cargar(n,a)
Para i<-1 Hasta n Con Paso 1
Hacer
Para j<-1 Hasta n Con
Paso 1 Hacer
Leer a(i,j)
Fin Para
Fin Para
FinSubProceso

SubProceso imp(n,a)
Para i<-1 Hasta n Con Paso 1
Hacer
Escribir " "
Para j<-1 Hasta n Con
Paso 1 Hacer
Escribir "
",a(i,j)Sin Saltar
Fin Para
Fin Para
FinSubProceso

Subproceso iden(n,a)
Para i<-1 Hasta n Con Paso 1
Hacer
Para j<-1 Hasta n Con
Paso 1 Hacer
Si i=j Entonces
a(i,j)<-1;
Sino
a(i,j)<-0;
Fin Si

Fin Para
Fin Para
imp(n,a);
FinSubproceso

Proceso identidad
Dimension a(10,10), b(10,10),
c(10,10);
Escribir "int tamaño de la
matriz"
Leer n
Escribir "Matriz Identidad"
iden(n,a)
Escribir " "
FinProceso

PROBLEMA 43
Hacer un algoritmo que realice la matriz triangular.
PSEUDOCODIGO DIAGRAMA
subproceso cargar(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
Leer a(i,j)
Fin Para
Fin Para
FinSubProceso
SubProceso imp(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir " "
Para j<-1 Hasta n Con Paso 1
Hacer
Escribir " ",a(i,j)Sin Saltar
Fin Para
Fin Para
FinSubProceso
subproceso cargarTrian(n,a)
Para i<-1 Hasta n Con Paso 1 Hacer
Para j<-1 Hasta n Con Paso 1
Hacer
Si i<=j Entonces
Leer a(i,j);
 Sino
a(i,j)<-0;
Fin Si
Fin Para
Fin Para
FinSubProceso
Proceso triangular
Dimension a(10,10), b(10,10),
c(10,10)
Escribir "int tamaño de la matriz";
Leer n;
Escribir "int elemntos";
cargarTrian(n,a);
Escribir "Matriz Triangular ";
imp(n,a);
Escribir " "
FinProceso