16/11/2022 ; 6:30 PM

5. Arreglos unidimensionales/Programas/Programa 5.14/Programa 5.14.c

@@ -0,0 +1,102 @@
+#include <stdio.h>
+#include <math.h>
+
+/* Estadístico.
+El programa, al recibir como dato un arreglo unidimensional de enteros
+➥que contiene calificaciones, calcula la media, la varianza, la
+➥desviación estándar y la moda. */
+
+#define MAX 100
+
+void Lectura(int*, int);
+void Frecuencia(int*, int, int*);
+
+float Media(int*, int);
+float Varianza(int*, int, float); /* Prototipos de funciones. */
+float Desviacion(float);
+
+int Moda(int*, int);
+
+void main(void)
+{
+	int TAM, MOD, ALU[MAX], FRE[11] = { 0 };
+	float MED, VAR, DES;
+	do
+	{
+		printf("Ingrese el tamaño del arreglo: ");
+		scanf("%d", &TAM);
+
+	} while (TAM > MAX || TAM < 1);
+	/* Se verifica que el tamaño del arreglo sea correcto. */
+	
+	Lectura(ALU, TAM);
+	MED = Media(ALU, TAM);
+	VAR = Varianza(ALU, TAM, MED);
+	DES = Desviacion(VAR);
+
+	Frecuencia(ALU, TAM, FRE);
+	MOD = Moda(FRE, 11);
+
+	printf("\nMedia: %.2f", MED);
+	printf("\nVarianza: %.2f", VAR);
+	printf("\nDesviacion: %.2f", DES);
+	printf("\nModa: %d", MOD);
+}
+
+void Lectura(int A[], int T)
+/* La función Lectura se utiliza para leer un arreglo unidimensional de T
+➥elementos de tipo entero. */
+{
+	int I;
+	for (I = 0; I < T; I++)
+	{
+		printf("Ingrese el elemento %d: ", I + 1);
+		scanf("%d", &A[I]);
+	}
+}
+
+float Media(int A[], int T)
+/* Esta función se utiliza para calcular la media. */
+{
+	int I;
+	float SUM = 0.0;
+	for (I = 0; I < T; I++)
+		SUM += A[I];
+	return (SUM / T);
+}
+
+float Varianza(int A[], int T, float M)
+/* Esta función se utiliza para calcular la varianza. */
+{
+	int I;
+	float SUM = 0.0;
+	for (I = 0; I < T; I++)
+		SUM += pow((A[I] - M), 2);
+	return (SUM / T);
+}
+
+float Desviacion(float V)
+/* Esta función se utiliza para calcular la desviación estándar. */
+{
+	return (sqrt(V));
+}
+
+void Frecuencia(int A[], int P, int B[])
+/* Esta función se utiliza para calcular la frecuencia de calificaciones.
+*/
+{
+	int I;
+	for (I = 0; I < P; I++)
+		B[A[I]]++;
+}
+
+int Moda(int A[], int T)
+/* Esta función se utiliza para calcular la moda. */
+{
+	int I, MOD = 0, VAL = A[0];
+	for (I = 1; I < T; I++)
+		if (MOD < A[I])
+		{
+			MOD = I;
+			VAL = A[I];
+		}