Algoritmo Matrices
definir filas, columnas como numerico
Escribir "Digite el numero de filas que tendra la matriz "
Leer filas
Escribir "Digite el numero de columnas que tendra la matriz "
Leer columnas
Dimension A[filas,columnas]
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
A[i,j]=azar(12)
Fin Para
Fin Para
Dimension B[filas,columnas]
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
B[i,j]=azar(20)
Fin Para
Fin Para
Dimension C[filas,columnas]
Para I<-1 Hasta filas Con Paso 1 Hacer
Para J<-1 Hasta columnas Con Paso 1 Hacer
C[I,J] <-A[I,j]+ B[I,j]
Fin Para
Fin Para
Para I<-1 Hasta filas Con Paso 1 Hacer
Para J<-1 Hasta columnas Con Paso 1 Hacer
Escribir "[",C[I,J],"]"
Fin Para
Fin Para
FinAlgoritmo
Algoritmo traspuestaMatrices
definir filas, columnas como numerico
Escribir "Digite el numero de filas que tendra la matriz "
Leer filas
Escribir "Digite el numero de columnas que tendra la matriz "
Leer columnas
Dimension A[filas,columnas]
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
A[i,j]=azar(12)
Fin Para
Fin Para
Para I<-1 Hasta filas Con Paso 1 Hacer
Para J<-1 Hasta columnas Con Paso 1 Hacer
Escribir "[",A[I,J],"]"
Fin Para
Fin Para
Dimension B[columnas,filas]
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
B[j,i]<-A[i,j]
Fin Para
Fin Para
Escribir "Traspuesta :"
Para I<-1 Hasta columnas Con Paso 1 Hacer
Para J<-1 Hasta filas Con Paso 1 Hacer
Escribir "[",B[I,j] ,"]"
Fin Para
Fin Para
FinAlgoritmo
Algoritmo PotenciaMatriz
definir filas, columnas como numerico
Escribir "Digite el numero de filas que tendra la matriz "
Leer filas
Escribir "Digite el numero de columnas que tendra la matriz "
Leer columnas
Dimension A[filas,columnas]
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
A[i,j]=azar(12)
Fin Para
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
Escribir "[",A[i,j],"]"
Fin Para
Fin Para
Fin Para
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
A[i,j]<-A[i,j]^2
Fin Para
Fin Para
Escribir " Matriz con potencia "
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
Escribir "[",A[i,j],"]"
Fin Para
Fin Para
FinAlgoritmo
Algoritmo MaTRIZSIMETRICA
definir filas, columnas como numerico
Escribir "Digite el numero de filas que tendra la matriz "
Leer filas
Escribir "Digite el numero de columnas que tendra la matriz "
Leer columnas
Si filas =columnas Entonces
Dimension A[filas,columnas]
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
A[i,j]=azar(12)
Fin Para
Fin Para
Escribir " Matriz original "
Para I<-1 Hasta filas Con Paso 1 Hacer
Para J<-1 Hasta columnas Con Paso 1 Hacer
Escribir "[",A[I,j] ,"]"
Fin Para
Fin Para
Dimension B[columnas,filas]
Para i<-1 Hasta filas Con Paso 1 Hacer
Para j<-1 Hasta columnas Con Paso 1 Hacer
B[j,i]<-A[i,j]
Fin Para
Fin Para
Escribir "Traspuesta :"
Para I<-1 Hasta filas Con Paso 1 Hacer
Para J<-1 Hasta columnas Con Paso 1 Hacer
Escribir "[",B[I,j] ,"]"
Fin Para
Fin Para
definir contador como entero
contador<-0
Para I<-1 Hasta filas Con Paso 1 Hacer
Para J<-1 Hasta columnas Con Paso 1 Hacer
Si B[filas,columnas] <> A[filas,columnas] Entonces
contador<-contador + 1
FinSi
Fin Para
Fin Para
Si contador=0 Entonces
Escribir " Matriz simetrica "
Para I<-1 Hasta filas Con Paso 1 Hacer
Para J<-1 Hasta columnas Con Paso 1 Hacer
Escribir "[",B[I,j] ,"]"
Fin Para
Fin Para
SiNo
Si contador >1 Entonces
Escribir " Matriz no simetrica,ya que las traspuestas son diferentes "
Fin Si
Fin Si
SiNo
Escribir " Matriz no simetrica "
Fin Si
FinAlgoritmo
Algoritmo ProductoMatrices
Definir i como entero;
Definir j como entero;
Definir m como entero;
Definir n como entero;
Definir columnasA como entero;
Definir columnasB como entero;
Definir filasA como entero;
Definir A como real;
Definir B como real;
Definir C como real;
Escribir "Ingrese numero de columnas en la matriz A (debe ser igual al numero de
filas de B):";
Leer columnasA;
Escribir "Ingrese el numero de filas en la matriz A:";
Leer filasA;
Escribir "Ingrese el numero de columans en la matriz B:";
Leer columnasB;
Dimension A[filasA,columnasA]
Dimension B[columnasa,columnasA]
Para i<-0 Hasta filasA - 1 Con Paso 1 Hacer
Para j<- 0 Hasta columnasA - 1 Con Paso 1 Hacer
Escribir "Ingrese elemento A[",i,",",j,"]";
Leer A[i,j];
FinPara
FinPara
Para i<-0 Hasta columnasA - 1 Con Paso 1 Hacer
Para j<- 0 Hasta columnasB - 1 Con Paso 1 Hacer
Escribir "Ingrese elemento B [",i,",",j,"]";
Leer B[i,j];
FinPara
FinPara
Dimension C[columnasA,columnasB];
Para n<-0 Hasta columnasB - 1 Con Paso 1 Hacer
Para m<-0 Hasta columnasA - 1 Con Paso 1 Hacer
C[m,n] <- 0;
Para i<-0 Hasta columnasA - 1 Con Paso 1 Hacer
C[m,n] <- C[m,n]+A[m,i]*B[i,n];
FinPara
FinPara
FinPara
Para n<-0 Hasta columnasB - 1 Con Paso 1 Hacer
Para m<-0 Hasta columnasA - 1 Con Paso 1 Hacer
Escribir "C[",m,",",n,"] = ",C[m,n];
FinPara
FinPara
FinAlgoritmo
