fpc/packages/numlib/tests/spesgnte.pas

program spesgnte;

uses
  spe,
  typ;

var
  x: ArbFloat;
  h: string;
  t: ArbInt;
begin
  Write('program results spesgnte');

  case SizeOf(ArbFloat) of
    4: writeln('(single)');
    8: writeln('(double)');
    6: writeln('(real)');
  end;

  x := pi;
  Str(x, h);
  t := Length(h) - 1;

  writeln;
  writeln('': t div 2, 'x', '': t - 3, 'spesgn(x)');
  writeln;

  while not EOF do
  begin
    readln(x);
    writeln(x, ' ': t div 2, spesgn(x));
  end;

end.