Вещественные числа с плавающей точкой, точность вычислений

    float f = 12.01234567890123456789;
    Form1->Caption = FloatToStrF( (f + 0.00000000000000000001), ffNumber, 100, 20);

//////////////////////////////////////////////////////
//////О Ц Е Н К А    А Р Б И Т Р А////////////////////
//////////////////////////////////////////////////////
AlgLyap(int otkl,int iter)
/*otkl - отклонение -16*/
{
  double d0;
  long double xh_1, xh_h_1, E;
 
   d0=pow(10, otkl);
   do {
      h=0;
      NS(iter,Nznach);
      for (i=0; i<Nin; i++)
      {
         xh[i]=etalon[i+h];
      }
      for (i=0; i<Nin-1; i++)
      {
         xh_h[i]=xh[i];
      };
      xh_h[Nin-1]=xh[Nin-1]+d0;
      xh_1= Prognoz(Nin,xh,h);
      xh_h_1=Prognoz(Nin, xh_h,h);
      xh[Nin]=xh_1;
      xh_h[Nin]=xh_h_1;
         arbitr[h]=log(fabs(xh_1-xh_h_1));
      iter++;
   } while (arbitr[h] < -200);
   h++;
   iter=0;
   do {
      xh_1=Prognoz(Nin,xh,h+iter); //прогнозирование на 1 значение вперед
      xh_h_1=Prognoz(Nin, xh_h,h+iter);
      xh[Nin+h]=xh_1;
      xh_h[Nin+h]=xh_h_1;
         arbitr[h]=log(fabs(xh_1-xh_h_1));
      if (arbitr[h]< -200)
      {
         h--;
         iter++;
      };
      h++;
      flag=true;
      if ((arbitr[h-1]>0) || (h>=etalon.size()/Nznach - Nznach))
      {
    flag=false;
      };
   } while(flag==true);
   return 0;
}