1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ %skiptarget=go32v2 }
{ %version=1.1 }
{$ifdef fpc}{$mode objfpc}{$endif}
program test_fpu_excpetions;
uses
SysUtils;
function mysqrt(x : real) : real;
begin
try
mysqrt:=sqrt(x);
except
on e : exception do
mysqrt:=0;
end;
end;
var
x, y,z : real;
begin
x:=6.5;
y:=5.76;
z:=3.1;
Writeln('Testing mysqrt (x) = sqrt(x) if x >= 0');
Writeln(' = 0 if x < 0');
Writeln(' 6.5+5.76*mysqrt(3.1) = ',x+y*mysqrt(z):0:6);
Writeln(' 6.5+5.76*mysqrt(-3.1) = ',x+y*mysqrt(-z):0:6);
end.
|
