Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - alexbc133
Páginas: [1]
1
« en: Martes 30 de Noviembre de 2010, 14:56 »
insercion directa
TYPE tarray:Array[0..n] OF INTEGER
PROCEDURE Inserción_Directa(Var a:tarray)
Var i,j
FOR i:= 2 TO n DO
a[0]:= a;
j:=I;
WHILE a[0]<a[j-1] DO
a[j]:=a[j-1];
DEC(j);
END
a[j]:=a[0]
END
END
Páginas: [1]