Delphius:
Así debería andar bien
Yo llamaba dos veces un procedure, el índice que permanecía en 0 era k, entonces hice algo así:
Código Delphi
[-]
if (sen1 = 0) then begin
AlgSent :='ascendente';
T1:=now;
k:=1;
while k <=1500 do begin
randomize;
for i:= 1 to ult do
a[i]:=round(random*ult);
insercion(a,prim,ult,sen1);
T2:=now;
k:=k+1;
end;
end
else if (sen1=1) then begin
AlgSent :='descendente';
T1:=now;
k:=1;
while k <=1500 do begin
randomize;
for i:= 1 to ult do
a[i]:=round(random*ult);
insercion(a,prim,ult,sen1);
T2:=now;
k:=k+1;
end;
end;
i,k están declaradas como integer en el mismo formulario. Inserción es un procedure, no le hagas caso al mismo solo presta atención a la lógica a ver si te sirve.
A mi me solucionó el problema pero no se cual es el error que había cometido que tuve que aplicar esta solución qu eno me parece muy buena
Un saludo desde el aquelarre