16/11/2022 ; 6:30 PM

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

@@ -0,0 +1,62 @@
+#include <stdio.h>
+
+/* Ordenación por inserción directa. */
+
+#define MAX 100
+
+void Lectura(int*, int);
+void Ordena(int*, int); /* Prototipos de funciones. */
+void Imprime(int*, int);
+
+void main(void)
+{
+	int TAM, VEC[MAX];
+	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(VEC, TAM);
+	Ordena(VEC, TAM);
+	Imprime(VEC, TAM);
+}
+
+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]);
+	}
+}
+
+void Imprime(int A[], int T)
+/* Esta función se utiliza para escribir un arreglo unidimensional
+➥ordenado de T elementos de tipo entero. */
+{
+	int I;
+	for (I = 0; I < T; I++)
+		printf("\nA[%d]: %d", I, A[I]);
+}
+
+void Ordena(int A[], int T)
+/* La función Ordena utiliza el método de inserción directa para ordenar
+➥los elementos del arreglo unidimensional A. */
+{
+	int AUX, L, I;
+	for (I = 1; I < T; I++)
+	{
+		AUX = A[I];
+		L = I - 1;
+		while ((L >= 0) && (AUX < A[L]))
+		{
+			A[L + 1] = A[L];
+			L--;
+		}
+		A[L + 1] = AUX;