Problema con condicionales encadenados

[ecfisa]

Hola de nuevo.

Creo que mejor te dejo un ejemplo

Código Delphi [-]
...
function NoSe(Dengr,Deje1,Deje2,Deje3,Deje4,Deje5,Deje6,Deje7: Double): Double;
begin
  if Deje1/Dengr <= 0.4 then
    Result := Deje1
  else if Deje2/Dengr <=0.4 then
    Result:=  Deje2
  else if Deje3/Dengr <= 0.4 then
    Result:=  Deje3
  else if Deje4/Dengr <= 0.4 then
    Result:=  Deje4
  else if Deje5/Dengr <= 0.4 then
    Result:=  Deje5
  else if Deje6/Dengr <= 0.4 then
    Result:=  Deje6
  else
    Result:=  Deje7;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  D,Dengr: Double;
begin
  Dengr := 10;
  D:= NoSe(Dengr,7,6,5,5,5,4,1);
  ShowMessage(FloatToStr(D));
end;

Verás que la función devuelve 4, que es el primer número del parámetro que cumple la condicion. Ya que 4/10 es <= 0.4 y los predecesores no.

Un saludo.