IsInfinite
Adam Boduch
IsInfinite
Moduł: Math
program FooApp;
{$APPTYPE CONSOLE}
uses
Math;
var
D : Double;
begin
D := NegInfinity;
Writeln(D);
if IsInfinite(D) then
Writeln('Wartość odpowiada nieskończoności');
Readln;
end.
Zobacz też: