ordenacion de vectores por insercion

OmgCopito95 · Sep 13, 2020 · e796c8c · e796c8c
1 parent ad5657f
commit e796c8c
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/VECTORES/ordenacion_insercion.pas b/VECTORES/ordenacion_insercion.pas
@@ -0,0 +1,19 @@
+// ORDENACION DE VECTORES POR INSERCION
+
+procedure OrdenacionPorInsercion(var v: vector);
+var 
+	i, j, dato: integer;
+begin
+
+	for i:= 2 to dimF do begin
+   		actual:=v[i];
+   		j:= i-1;
+   		while (j > 0) and (v[j] > actual) do begin
+     		v[j+1]:=v[j];
+     		j := j-1;
+     	end;
+		v[j+1] := actual;
+	end;
+end;
+
+