7 respuestas en este tema

[sir.dev.a.lot]

[Truco Delphi] Encontrar el Valor Maximo y Minimo en un Arreglo.

delphi

function Find_Max(Arr: array of Integer): Integer;
	var
	  i, M: Integer;
	begin
	  M:=Arr[Low(Arr)];
	  for i:=1 to High(Arr) do
	    if Arr[i]> M then M:=Arr[i];
	  Result:=M;
	end;
 
	function Find_Min(Arr: array of Integer): Integer;
	var
	  i, M: Integer;
	begin
	  M:=Arr[Low(Arr)];
	  for i:=1 to High(Arr) do
	    if Arr[i]< M then M:=Arr[i];
	  Result:=M;
	end;

Saludos!

[Delphius]

También podría ser de utilidad implementarse un FindMinMax() para que permita encontrar el máximo y el mínimo en un mismo y único recorrido.

 

Esto:

delphi

Max := Find_Max(MiArray);
Min := Find_Min(MiArray);

Tiene una complejidad computacional T(n) = 2n.

 

Mientras que un posible:

delphi

type
  TMinMax = record
    Min, Max: integer;
  end;

delphi

var
 MinMax: TMinMax;
...
begin
  MinMax := FindMinMax(MiArray);
end;

Mantiene el T(n) = n.

 

Es decir que en un mismo ciclo se hace lo que se puede ahorrar en dos pasadas.

 

Saludos,

[BDWONG]

En efecto como meciona Delphius se puede hacer en una sola funcion.

delphi

type
  TMinMax=Record
    min,max:Integer;
  end;
 
function FindMinMax(Data:array of Integer):TMinMax;
var value:Integer;
begin
  Result.max:=Data[0];
  Result.min:=Data[0];
 
  for value in Data do
  begin
     if value>Result.max then Result.max:=value;
     if value<Result.min then Result.min:=value;
  end;
end;
 
var
  MinMax:TMinMax;
begin
  MinMax:=FindMinMax([3,4,1,3,5,6,8]);
  WriteLn('Minimno ',MinMax.min,' Maximo ',MinMax.max);
  ReadLn;
end.

[Delphius]

Un ejercicio interesante sería implementar un algoritmo tipo FindExtremes() en el que se pueda indicar mediante un set-enum que tipo de extremos se quiere devolver: mínimo, máximo o ambos:

delphi

type
  TExtremes = (extMinimum, extMaximum);
  TExtremeOption = set of TExtremes;

El "reto" sería desarrollar el algoritmo más eficiente posible. Tanto en V(G) como en O(n). Si alguien baja de V(G) = 4 lo declaro campeón

 

Saludos,

[Agustin Ortu]

O usando múltiples hilos

[Delphius]

O usando múltiples hilos

 

¿Vale la pena? Se me hace que podría ser más un caso de "cazar moscas con un cañón".

 

Saludos,

[Agustin Ortu]

Como reto vale todo

[sir.dev.a.lot]

Eso es... la utilidad de esto es que compartamos información, llegan y regresan comentarios, opiniones y mejoras...

 

Haciendo el foro aun mas activo.

 

Saludos!