Ejercicios resueltos PSEINT

Ejercicios Resueltos 1

Ejercicios Resueltos 2

Ejecutar con PSEINT

Arrays Unidimensionales

Arrays Multidimensionales

Vectores y Matrices

Suma de Matrices

Suma Matrices en PSEINT

Matriz X Vector

Operaciones Aritméticas entre Vectores

Algoritmo Sumadematrices
Dimension A[3,3]
Dimension B[3,3]
Dimension C[3,3]


// Ingresar datos de las matriz A

Escribir " Rellenar matriz A "
Escribir " "
Para i<-1 Hasta 3 Con Paso 1 Hacer
Para j<-1 Hasta 3 Con Paso 1 Hacer
Escribir " Ingrese el valor de la columna " , i , " y la fila  ", j
Leer A[i,j]

Fin Para
Fin Para


Escribir " "
Escribir " La matriz A es : "
Escribir " "
Escribir A[1,1], " " , A[1,2] , " " , A[1,3]
Escribir A[2,1], " " , A[2,2] , " " , A[2,3]
Escribir A[3,1], " " , A[3,2] , " " , A[3,3]

Escribir " "
// Ingresar datos de la matriz B
Escribir " Rellenar matriz B "
Escribir " "

Para i<-1 Hasta 3 Con Paso 1 Hacer
Para j<-1 Hasta 3 Con Paso 1 Hacer
Escribir " Ingrese el valor de la columna " , i , " y la fila  ", j
Leer B[i,j]

Fin Para
Fin Para
Escribir " "
Escribir " La matriz B es : "
Escribir B[1,1], " " , B[1,2] , " " , B[1,3]
Escribir B[2,1], " " , B[2,2] , " " , B[2,3]
Escribir B[3,1], " " , B[3,2] , " " , B[3,3]

Escribir " "

// Sumar las matrices A y B
Escribir  " La matriz suma resultado es "
Escribir " "

Para i<-1 Hasta 3 Con Paso 1 Hacer
Para j<-1 Hasta 3 Con Paso 1 Hacer
C[i,j]=A[i,j]+B[i,j]

Fin Para
Fin Para

// Mostrar la matriz C ( Suma de A + B)
Escribir c[1,1], " " , c[1,2] , " " , c[1,3]
Escribir c[2,1], " " , c[2,2] , " " , c[2,3]
Escribir c[3,1], " " , c[3,2] , " " , c[3,3]


FinAlgoritmo

----------------------------------------------------------------------------------------------------------------------------------


Algoritmo Multiplicacion_matrices

Dimension A[3,2]
Dimension B[2,3]
Dimension res[3,3]


Para i<-1 Hasta 3 Hacer
Para j<-1 Hasta 2 Hacer
A[i,j]=1
Fin Para
Fin Para


Para i<-1 Hasta 2 Hacer
Para j<-1 Hasta 3 Hacer
B[i,j]=2
Fin Para
Fin Para


Para i<-1 Hasta 3 Hacer
Para j<-1 Hasta 3 Hacer
res[i,j]=0
Fin Para
Fin Para


Para i<-1 Hasta 3 Hacer
c=1
Mientras c<=3 Hacer
Suma=0
Para j<-1 Hasta 2 Hacer
Suma = Suma + (A[i,j] * B[j,c])
Fin Para

res[i,c]=Suma
c=c+1
Fin Mientras
Fin Para

Para i<-1 Hasta 3 Hacer
Para j<-1 Hasta 3 Hacer
Escribir res[i,j]
Fin Para
Fin Para

Fin Algoritmo