Histograma. Obtener máximos y mínimos relativos

[Robert01]

Delphius:

Yo hace un tiempo estaba probando un código y por un error que no se donde está no ejecutaba el bucle porque los índices permanecían en 0. según cual fuera el caso.

La primera vez que usaba el bucle andaba todo bien pero a la segunda vez que trataba de usar esa parte de código ocurría el error.
No se si había declarado las variables en forma inadecuada o que.

Yo lo que hice fue usar un bucle do while para ver lo que pasaba.

Saludos

[[Delphius]]

Pues yo ya no se que hacer... no funciona... he probado haciendolo con while, for, Repeat... y nada... es como dices:

Empezado por Robert01

los índices permanecían en 0.

El bucle (ya sea FOR, REPEAR, WHILE) se ejecuta... pero no cambia en nada los valores...

¡Brujería!

Saludos,

[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