Histograma. Obtener máximos y mínimos relativos

[Robert01]

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