HP SunSoft Pascal 4.0 Manual de usuario Pagina 265

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 333
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 264
Math Libraries 241
11
If your matherr() function returns a non-zero result, no exception message is
printed, and errno is not set.
DOMAIN Argument domain exception
SING Argument singularity
OVERFLOW Overflow range exception
UNDERFLOW Underflow range exception
TLOSS Total loss of significance
PLOSS Partial loss of significance
program TestMatherr(output);
#include <math_p.h>
function matherr(var info: exception): integer;
begin
case info.kind of
DOMAIN: begin
{ change sqrt to return sqrt(-arg1), not NaN }
if substr(info.name^, 1, length('sqrt')) = 'sqrt' then begin
info.retval := sqrt(-info.arg1);
matherr := 1; { No exception message will be printed }
end;
end;
otherwise
matherr := 0;
end;
end;
begin
writeln('Error handling function');
writeln('sqrt(-1)= ', sqrt(-1));
end.
Vista de pagina 264
1 2 ... 260 261 262 263 264 265 266 267 268 269 270 ... 332 333

Comentarios a estos manuales

Sin comentarios