¡Descarga Ejercicios de Programación con Matrices y más Ejercicios en PDF de Matemáticas solo en Docsity!
PROBLEMAS PROPUESTOS MATRIZ
1) Hacer un algoritmo que almacene números en una matriz de 5 * 6. Imprimir la suma de los
números almacenados en la matriz.
Solución:
Proceso SUMAMATRIZ Dimension M[50,50]
Repetir Escribir "INGRESE CANTIDAD DE FILAS Y COLUMNAS DE LA MATRIZ"; Escribir "NO. DE FILAS:" Leer A Escribir "NO. DE COLUMNAS:" Leer B Escribir "INGRESE DATOS DE LA 1A MATRIZ" Para i<-1 Hasta A Con Paso 1 Hacer
Para j<-1 Hasta B Con Paso 1 Hacer Escribir "INGRESE DATO DE LA POSICION ",I,",",J Leer M[I,J] SUMA<-SUMA+M[I,J] FinPara FinPara Escribir "" Para i<-1 Hasta A Con Paso 1 Hacer
Para j<-1 Hasta B Con Paso 1 Hacer Escribir M[I,J]," " Sin Saltar FinPara Escribir "" FinPara Escribir "" Escribir "LA SUMA DE LA MATRIZ ES: ",SUMA Esperar 5 Segundos Borrar Pantalla Escribir "USAR NUEVAMETE" Leer OPC Hasta Que OPC="NO" O OPC="no"
2) Hacer un algoritmo que llene una matriz de 10 * 10 y determine la posición [renglón,columna]
del número mayor almacenado en la matriz. Los números son diferentes.
Solución:
Proceso MAYOR_MATRICES Repetir Escribir "INGRESE CANTIDAD DE FILAS Y COLUMNAS DE LA MATRIZ"; Escribir "NO. DE FILAS:" Leer A Escribir "NO. DE COLUMNAS:" Leer B Dimension M[50,50] NMAYOR<- Escribir "INGRESE DATOS DE LA 1A MATRIZ" Para i<-1 Hasta A Con Paso 1 Hacer
Para j<-1 Hasta B Con Paso 1 Hacer Escribir "INGRESE DATO DE LA POSICION ",I,",",J Leer M[I,J] Si M[I,J]>NMAYOR Entonces NMAYOR<-M[I,J] FinSi FinPara
FinPara Escribir "" Para i<-1 Hasta A Con Paso 1 Hacer
Para j<-1 Hasta B Con Paso 1 Hacer Escribir M[I,J]," " Sin Saltar FinPara Escribir "" FinPara Escribir "" Escribir "EL VALOR MAYOR DE LA MATRIZ ES :",NMAYOR Escribir "USAR NUEVAMENTE" Leer OPC Hasta Que OPC="NO" O OPC="no"
4) Hacer un algoritmo que llene una matriz de 20 * 20. Sumar las columnas e imprimir que
columna tuvo la máxima suma y la suma de esa columna.
Solución:
Proceso MAYOR_COLUMNA Repetir //Desarrollo de la matriz// Escribir "INGRESE CANTIDAD DE FILAS Y COLUMNAS DE LA MATRIZ"; Escribir "NO. DE FILAS:" Leer A Escribir "NO. DE COLUMNAS:" Leer B Dimension M[50,50] Dimension VR[7] Dimension VC[7] Escribir "INGRESE DATOS DE LA MATRIZ" //Llenar la matriz// Escribir "" Para I<-1 Hasta A Con Paso 1 Hacer Para J<-1 Hasta B Con Paso 1 Hacer Escribir "INGRESE DATO DE LA POSICION ",I,",",J Leer M[I,J] FinPara FinPara //SUMA DE COLUMNAS// MAY<- Para I<-1 Hasta A Con Paso 1 Hacer SUMA<-0; Para J<-1 Hasta B Con Paso 1 Hacer SUMA<-SUMA+M[I,J]; VC[I]<-SUMA; Si SUMA>MAY Entonces MAY<-SUMA FinSi FinPara FinPara
Escribir "" //Imprimir matriz// Para J<-1 Hasta A Con Paso 1 Hacer
Para I<-1 Hasta B Con Paso 1 Hacer Escribir M[I,J]," " Sin Saltar FinPara escribir "" FinPara Escribir "" //BUSQUEDA EN MATRIZ// Para I<-1 Hasta B Con Paso 1 Hacer Si MAY=VC[I] Entonces Escribir "LA COLUMNA MAYOR ES ",I FinSi FinPara
Escribir "LA COLUMNA MAYOR TIENE UN RESUTADO DE ",MAY Esperar Tecla Borrar Pantalla Escribir "USAR NUEVAMENTE" Leer OPC Hasta Que OPC="NO" O OPC="no"
5) Hacer un algoritmo que llene una matriz de 5 * 5 y que almacene la diagonal principal en un
vector. Imprimir el vector resultante.
Solución:
Proceso DIAGONAL Dimension M[50,50] Dimension VD[5] Repetir //Desarrollo de la matriz// Escribir "INGRESE CANTIDAD DE FILAS Y COLUMNAS DE LA MATRIZ"; Escribir "NO. DE FILAS:" Leer A Escribir "NO. DE COLUMNAS:" Leer B Si A=B Entonces Escribir "INGRESE DATOS DE LA MATRIZ" //Llenar la matriz// Escribir "" Para I<-1 Hasta A Con Paso 1 Hacer Para J<-1 Hasta B Con Paso 1 Hacer Escribir "INGRESE DATO DE LA POSICION ",I,",",J Leer M[I,J] //Grabamos la diagonal en el vector// si J=I Entonces VD[I]=M[I,J] fin si FinPara FinPara //Imprimir matriz// Para J<-1 Hasta A Con Paso 1 Hacer
Para I<-1 Hasta B Con Paso 1 Hacer Escribir M[I,J]," " Sin Saltar FinPara escribir "" FinPara Escribir "" Escribir "LOS ELEMENTOS ALMACENADOS EN EL VECTOR SON:" Para I<-1 Hasta A Hacer Escribir VD[I] FinPara Sino Escribir " ERROR" Escribir "LO SENTIMOS LA MATRIZ NO ES PROPORCIONAL" Escribir " PRESIONE TECLA PARA CONTINUAR" FinSi Esperar Tecla Borrar Pantalla Escribir "USAR NUEVAMENTE" Leer OPC Hasta Que OPC="NO" O OPC="no"
7) Hacer un algoritmo que llene una matriz de 6 * 8 y que almacene toda la matriz en un vector.
Imprimir el vector resultante.
Solución:
Proceso MATRIZ_DESPROPORCIONAL
Dimension M[50,50]
Dimension V[50]
H<-
Repetir
//Desarrollo de la matriz//
Escribir "INGRESE CANTIDAD DE FILAS Y COLUMNAS DE LA MATRIZ";
Escribir "NO. DE FILAS:"
Leer A
Escribir "NO. DE COLUMNAS:"
Leer B
Escribir "INGRESE DATOS DE LA MATRIZ"
//Llenar la matriz//
Escribir ""
Para I<-1 Hasta A Con Paso 1 Hacer
Para J<-1 Hasta B Con Paso 1 Hacer
Escribir "INGRESE DATO DE LA POSICION ",I,",",J
Leer M[I,J]
V[H]<-M[I,J]
H<-H+
FinPara
FinPara
//Imprimir matriz//
Para J<-1 Hasta A Con Paso 1 Hacer
Para I<-1 Hasta B Con Paso 1 Hacer
Escribir M[I,J]," " Sin Saltar
FinPara
escribir ""
FinPara
//ALMACENAR MATRIZ EN EL VECTOR//
C<-A*B
Escribir C
Escribir "EL VECTOR RESULTANTE ES "
Para I<-1 Hasta C Hacer
Escribir V[I]
FinPara
Escribir ""
Esperar Tecla
Borrar Pantalla
Escribir "USAR NUEVAMENTE"
Leer OPC
Hasta Que OPC="NO" O OPC="no"
8) Hacer un algoritmo que llene una matriz de 8 * 8, que almacene la suma de los renglones y la
suma de las columnas en un vector. Imprimir el vector resultante.
Solución:
Proceso SUMA_FILAS_COLUMNAS_VECTOR Dimension M[50,50] Dimension VF[50] Dimension VC[50] Dimension VFC[100] Repetir ///Desarrollo de la matriz// Escribir "INGRESE CANTIDAD DE FILAS Y COLUMNAS DE LA MATRIZ"; Escribir "NO. DE FILAS:" Leer A Escribir "NO. DE COLUMNAS:" Leer B Escribir "INGRESE DATOS DE LA MATRIZ" ///Llenar la matriz// Escribir "" Para I<-1 Hasta A Con Paso 1 Hacer Para J<-1 Hasta B Con Paso 1 Hacer Escribir "INGRESE DATO DE LA POSICION ",I,",",J Leer M[I,J] FinPara FinPara ///SUMA DE FILAS// Para I<-1 Hasta A Con Paso 1 Hacer SUMA2<-0; Para J<-1 Hasta B Con Paso 1 Hacer SUMA2<-SUMA2+M[I,J] FinPara VF[I]<-SUMA FinPara ///SUMA DE COLUMNAS// Para I<-1 Hasta A Con Paso 1 Hacer SUMA<-0; Para J<-1 Hasta B Con Paso 1 Hacer SUMA<-SUMA+M[J,I]; VC[I]<-SUMA; FinPara FinPara Escribir "" ///Imprimir matriz// Para J<-1 Hasta A Con Paso 1 Hacer Para I<-1 Hasta B Con Paso 1 Hacer Escribir M[I,J]," " Sin Saltar FinPara escribir "" FinPara Escribir "" /// combinacion de los vectores de filas y columnas en uno solo para i<-1 hasta A Hacer VFC[I]<-VC[I] FinPara K<-A+ para i<-1 hasta A Hacer VFC[K]<-VF[I] K<-K+ FinPara ///Impresion del vector resultante, es decir, el que resulto de la combinacion Escribir " " C<-A*B para I<-1 hasta C Hacer si I<=A Entonces Escribir "la suma de la fila ",I," es ",VFC[I] FinSi si I>B Entonces W<-I-B Escribir "la suma de la columna ",W," es ",VFC[I] FinSi FinPara Esperar Tecla Borrar Pantalla Escribir "USAR NUEVAMENTE" Leer OPC Hasta Que OPC="NO" O OPC="no"
10) Diseñe un pseudocódigo que escriba el número de la hilera cuya suma sea mayor que las
demás hileras. Suponga que todas las hileras suman diferente cantidad.
Solución:
Proceso SUMA_HILERA Dimension M[50,50] Dimension SUMAFT[50] Repetir ///Desarrollo de la matriz// Escribir "INGRESE CANTIDAD DE FILAS Y COLUMNAS DE LA MATRIZ"; Escribir "NO. DE FILAS:" Leer A Escribir "NO. DE COLUMNAS:" Leer B Escribir "INGRESE DATOS DE LA MATRIZ" ///Llenar la matriz// Escribir "" Para I<-1 Hasta A Con Paso 1 Hacer Para J<-1 Hasta B Con Paso 1 Hacer Escribir "INGRESE DATO DE LA POSICION ",I,",",J Leer M[I,J] FinPara FinPara ///Imprimir matriz// Para J<-1 Hasta A Con Paso 1 Hacer
Para I<-1 Hasta B Con Paso 1 Hacer Escribir M[I,J]," " Sin Saltar FinPara escribir "" FinPara ///PROCESO DE HILERA// para I<-1 hasta A Hacer SUMAF<- para J<-1 hasta B Hacer SUMAF<-SUMAF+M[I,J] FinPara SUMAFT[I]<-SUMAF Escribir "LA SUMA DE LA FILA ",I," ES ",SUMAFT[I] FinPara Escribir "------------------" MAX<- para I<-1 hasta A Hacer si SUMAFT[I]>MAX Entonces MAX<-SUMAFT[I] K<-I FinSi FinPara ///RESULTADO// Escribir "LA FILA QUE MAS SUMA ES LA ",K," LA CUAL SUMA ",MAX Hasta Que OPC="NO" O OPC="no"
11) El dueño de una cadena de tiendas de artículos deportivos desea controlar sus ventas por
medio de una computadora. Los datos de entrada son:
a) El número de la tienda (1 a 50)
b) Un número que indica el deporte del articulo (1 a 20)
c) El costo del artículo.
Hacer un pseudocódigo que escriba al final del día lo siguiente
- Las ventas totales en el día para cada tienda
- Las ventas totales para cada uno de los deportes.
- Las ventas totales de todas las tiendas.
Solución:
Proceso ARTICULOS_DEPORTIVOS DIMENSION MATRIZ[50,20] Repetir /// REGISTRADOR DE LAS COMPRAS REPETIR ESCRIBIR "INGRESE EL COSTO DEL ARTICULO, LA TIENDA QUE SE TRATA (1-50) Y EL DEPORTE DEL ARTICULO (1-20), RESPECTIVAMENTE" LEER C,T,D MATRIZ[T,D]<-MATRIZ[T,D]+C ESCRIBIR "DESEA AGREGAR OTRA COMPRA O SALIR" Escribir "1.-COMPRA" Escribir "2.-SALIR" LEER W HASTA QUE W= ESCRIBIR "PRESIONE TECLA PARA CONTINUAR " Esperar Tecla Borrar Pantalla /// SUMADOR DE LAS COMPRAS DE CADA TIENDA PARA I<-1 HASTA 50 HACER SUMATIENDA<- PARA J<-1 HASTA 20 HACER SUMATIENDA<-SUMATIENDA+MATRIZ[I,J] FINPARA ESCRIBIR "LA TIENDA ",I," TUVO INGRESOS DE ",SUMATIENDA FINPARA ESCRIBIR " " ///SUMADOR DE LAS COMPRAS DE CADA DEPORTE Y EL TOTAL TOTALDEPORTE<- PARA I<-1 HASTA 20 HACER SUMADEP<- PARA J<-1 HASTA 50 HACER SUMADEP<-SUMADEP+MATRIZ[J,I] FINPARA TOTALDEPORTE<-TOTALDEPORTE+SUMADEP ESCRIBIR "EL DEPORTE ",I," TUVO INGRESOS DE ",SUMADEP FINPARA Escribir "" ESCRIBIR "EL TOTAL RECAUDADO FUE DE ",TOTALDEPORTE ESCRIBIR "PRESIONE TECLA PARA CONTINUAR " Esperar Tecla Borrar Pantalla Hasta Que OPC="NO" O OPC="no"
13) Se tiene almacenada la matriz M (50,5) la cual contiene la información sobre las calificaciones
de la materia de LENGUAJES ALGORITMICOS. Diseñe un pseudocódigo que imprima:
a).- Cantidad de alumnos que aprobaron la materia.
B).- Cantidad de alumnos que tienen derecho a nivelación.
C).- El (o los) numero (s) de control de lo(s) alumno(s) que haya (n) obtenido la máxima calificación
final.
Solución:
PROCESO LENGUAGE_DE_ALGORITMOS
DIMENSION M[50,5]
Repetir MAY<- PARA I<-1 HASTA 50 HACER PARA J<-1 HASTA 5 HACER APROBO<- NIVELACION<-0; ESCRIBIR "INGRESE LA NOTA (0-5) DE LA CASILLA FILA ",I," COLUMNA ",J LEER M[I,J] SI M[I,J]>=3 ENTONCES APROBO<- FINSI SI M[I,J]<3 ENTONCES NIVELACION<- FINSI SI M[I,J]>MAX ENTONCES MAY<-M[I,J] FINSI SUMAAPROBO<-SUMAAPROBO+APROBO SUMANIVELACION<-SUMANIVELACION+NIVELACION Escribir "" FINPARA FINPARA SUMAMAXIMA<- PARA I<-1 HASTA 50 HACER PARA J<-1 HASTA 5 HACER MAXIMA<- SI M[I,J]=MAX ENTONCES MAXIMA<- FINSI SUMAMAXIMA<-SUMAMAXIMA+MAXIMA FINPARA FINPARA ESCRIBIR "APROBARON ",SUMAAPROBO, "ESTUDIANTES" ESCRIBIR "VAN A TENER QUE NIVELAR LA MATERIA ",NIVELACION," ESTUDIANTES" ESCRIBIR "LA MAXIMA NOTA FUE ",MAX," Y LA OBTUVIERON ",SUMAMAXIMA ESCRIBIR "PRESIONE TECLA PARA CONTINUAR " Esperar Tecla Borrar Pantalla Escribir "USAR NUEVAMENTE" Leer OPC Hasta Que OPC="NO" O OPC="no"
