Sun Microsystems SunSoft Pascal 4.0, User Manual

Page: 263 / 333

Math Libraries 239
11
Arithmetic Exceptions
An arithmetic exception arises when an attempted atomic arithmetic operation
does not produce an acceptable result. The meaning of the terms “atomic” and
“acceptable” may vary, depending on the context.
Following are the five types of IEEE floating-point exceptions:
•
Invalid operation
—An operand is invalid for the operation about to be
performed.
program TestRandom(output);
#include "math_p.h"
var
n: integer := 100;
i: integer;
ilb, { Lower bound }
iub: integer; { Upper bound }
ia: array [1..100] of integer;
begin
writeln('Integer linear congruential random number generator');
ilb := I_LCRAN_LB;
iub := I_LCRAN_UB;
i_lcrans_(ia, n, ilb, iub);
for i := 1 to n do
writeln(ia[i]);
writeln('Integer additive random number generator');
ilb := minint;
iub := maxint;
i_addrans_(ia, n, ilb, iub);
for i := 1 to n do
writeln(ia[i]);
writeln('Integer random number shufflers');
i_shufrans_(ia, n, ilb, iub);
for i := 1 to n do
writeln(ia[i]);
end.