Estoy teniendo inconvenientes al momento de calcular los dos máximos en Pascal. El inconveniente me pasa solo en el primer máximo (max1), ya que el segundo máximo (max2) me lo retorna correctamente.
Además, me pedía calcular dos mínimos, los cuales me retornan correctamente.
Para ponerlos en contexto, el programa me pide:
-Código de los dos aviones con mayor cantidad de km: (el que el procedimiento que retorna mal)
Este procedimiento tiene los parámetros por referencia:
- Avion, que es un registro
- max1, max2 están inicializados en el programa principal con -1 -Cod_AvionMax1 y Cod_AvionMax2 deben ser lo que retorna la función. En este caso, me retorna mal Cod_AvionMax1. ¿Por qué debería ser? si yo calcule el max y el mínimo con la misma lógica, y el mínimo es retornado correctamente.
procedure AvionesMax_km (var i2: Avion; var max1, max2: real; var Cod_AvionMax1, Cod_AvionMax2: real );
begin
if i2.Km_recorridos > max1 then
begin
max2:= max1;
max1:= i2.Km_recorridos;
Cod_AvionMax2:= Cod_AvionMax1;
Cod_AvionMax2:= i2.Cod_Avion ;
end
else
begin
if i2.Km_recorridos > max2 then
begin
max2:= i2.Km_recorridos;
Cod_AvionMax2:= i2.Cod_Avion ;
end;
end;
end;
-Código de los dos aviones con menor cantidad de km (este módulo retorna correctamente)
procedure AvionesMin_km (var i3: Avion;var min1, min2: real; var Cod_AvionMin1, Cod_AvionMin2: real);
begin
if i3.Km_recorridos < min1 then
begin
min2:= min1 ;
min1:= i3.Km_recorridos;
Cod_AvionMin2:= Cod_AvionMin1 ;
Cod_AvionMin1:= i3.Cod_Avion;
end
else
begin
if i3.Km_recorridos < min2 then
begin
min2:= i3.Km_recorridos;
Cod_AvionMin2:= i3.Cod_Avion ;
end;
end;
end;