16/11/2022 ; 5:28 PM

6. Arreglos multidimensionales/Programas/Programa 6.9/Programa 6.9.c

@@ -0,0 +1,98 @@
+#include <stdio.h>
+
+/* Asigna.
+El programa, al recibir un arreglo bidimensional cuadrado, asigna elementos en
+➥función del módulo (residuo) a un arreglo unidimensional. */
+
+void Lectura(int[][10], int);
+void Calcula(int[][10], float[], int);
+void Imprime(float[10], int);
+float Mod0(int[][10], int, int);
+float Mod1(int[][10], int);			/* Prototipos de funciones. */
+float Mod2(int[][10], int, int);
+
+void main(void)
+{
+	int MAT[10][10], TAM;
+	float VEC[10];
+
+	do
+	{
+		printf("Ingrese el tamaño de la matriz: ");
+		scanf("%d", &TAM);
+	} while (TAM > 10 || TAM < 1);
+
+	Lectura(MAT, TAM);
+	Calcula(MAT, VEC, TAM);
+	Imprime(VEC, TAM);
+}
+void Lectura(int A[][10], int N)
+/* La función Lectura se utiliza para leer un arreglo bidimensional cuadrado
+➥de tipo entero. */
+{
+	int I, J;
+	for (I = 0; I < N; I++)
+		for (J = 0; J < N; J++)
+		{
+			printf("Ingrese el elemento %d %d: ", I + 1, J + 1);
+			scanf("%d", &A[I][J]);
+		}
+}
+
+void Calcula(int A[][10], float B[], int N)
+/* Esta función se utiliza tanto para calcular el módulo entre el índice del
+➥arreglo unidimensional y 3, como para llamar a las funciones
+➥correspondientes para resolver el problema. */
+{
+	int I;
+	for (I = 0; I < N; I++)
+		switch (I % 3)
+		{
+		case 1: B[I] = Mod1(A, I);
+			break;
+		case 2: B[I] = Mod2(A, I, N);
+			break;
+		default: B[I] = Mod0(A, I, N);
+			break;
+		}
+}
+
+float Mod0(int A[][10], int K, int M)
+/* Esta función calcula el cociente entre una productoria y una sumatoria. */
+{
+	int I;
+	float PRO = 1.0, SUM = 0.0;
+	for (I = 0; I < M; I++)
+	{
+		PRO *= A[I][K];
+		SUM += A[I][K];
+	}
+	return (PRO / SUM);
+}
+
+float Mod1(int A[][10], int N)
+/* Esta función obtiene el resultado de una sumatoria. */
+{
+	int I;
+	float SUM = 0.0;
+	for (I = 0; I <= N; I++)
+		SUM += A[N][I];
+	return (SUM);
+}
+
+float Mod2(int A[][10], int N, int M)
+/* Esta función obtiene el resultado de la productoria. */
+{
+	int I;
+	float PRO = 1.0;
+	for (I = N; I < M; I++)
+		PRO *= A[I][N];
+	return (PRO);
+}
+
+void Imprime(float B[], int N)
+/* Esta función se utiliza para escribir un arreglo unidimensional de tipo real de N elementos. */
+{
+	int I;
+	for (I = 0; I < N; I++)
+		printf("\nElemento %d: %.2f", I, B[I]);