program Test;

Uses uGamma, uErf;

var x:Double;

begin
  writeln;
  writeln('Тестирование специальных функций');
  writeln('  Тестирование логарифма гамма-функции (GammLn)');
  x:=1;
  writeln('    Значение exp(GammLn(', x, '))=', exp(GammLn(x)));
  x:=1.3;
  writeln('    Значение exp(GammLn(', x, '))=', exp(GammLn(x)));
  x:=2.3;
  writeln('    Значение exp(GammLn(', x, '))=', exp(GammLn(x)));

  writeln('  Тестирование функции ошибок (Erf)');
  x:=0;
  writeln('    Значение Erf(', x, ')=', Erf(x));
  x:=0.01;
  writeln('    Значение Erf(', x, ')=', Erf(x));
  x:=0.1;
  writeln('    Значение Erf(', x, ')=', Erf(x));
  x:=1;
  writeln('    Значение Erf(', x, ')=', Erf(x));
  x:=1.3;
  writeln('    Значение Erf(', x, ')=', Erf(x));
  x:=2.3;
  writeln('    Значение Erf(', x, ')=', Erf(x));
END.