Pues ya ves, estaba pensando en hacer la gracia de poner esto:
Código Delphi
[-]
var
X: Extended;
tanX: Extended;
EsInfinito: Boolean;
begin
X:= pi/2;
EsInfinito:= (Sin(X)/Cos(X)) = Infinite;
tanX:= tan(X);
if EsInfinito then
ShowMessage('El Resultado es infinito: ' + FloatToStr(Sin(X)/Cos(X)))
else
ShowMessage(FloatToStr(tanX));
end;
Pero, imagínate, el resultado de Sin(pi/2)/Cos(pi/2) es -3,68934881474191E19
. Bueno parece que ya tenemos un nuevo valor para definir el infinito