调用mpfr的一段示例（极不完整）

  char buffer[2048];
  mp_exp_t  e;
  unsigned int i;
  mpfr_t s, t, u;

  mpfr_init2 (t, 200);
  mpfr_set_d (t, 1.0, GMP_RNDD);
  mpfr_init2 (s, 200);
  mpfr_set_d (s, 1.0, GMP_RNDD);
  mpfr_init2 (u, 200);
  for (i = 1; i <= 100; i++)
    {
      mpfr_mul_ui (t, t, i, GMP_RNDU);
      mpfr_set_d (u, 1.0, GMP_RNDD);
      mpfr_div (u, u, t, GMP_RNDD);
      mpfr_add (s, s, u, GMP_RNDD);
    }
  //printf ("Sum is ");
  //mpfr_out_str (stdout, 10, 0, s, GMP_RNDD);
  //putchar ('\n');
  mpfr_sprintf(buffer, "%.9R", s);
  Memo1->Text = mpfr_get_str(NULL,&e,10,0, s, GMP_RNDD);
  mpfr_clear (s);
  mpfr_clear (t);
  mpfr_clear (u);