mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
22 lines
327 B
ObjectPascal
22 lines
327 B
ObjectPascal
program Math1;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
uses
|
|
{$IFDEF UNIX}
|
|
cthreads,
|
|
{$ENDIF}
|
|
Classes,
|
|
Math
|
|
{ you can add units after this };
|
|
|
|
var x:double;
|
|
begin
|
|
SetExceptionMask([exInvalidOp,exDenormalized,exZeroDivide,exOverflow,exUnderflow,exPrecision]);
|
|
x:=0;
|
|
writeln('ln(x)');
|
|
writeln(ln(x));
|
|
writeln('1/x');
|
|
writeln(1/x);
|
|
end.
|