Переменная: -1,291E-08

[bezOn]

В паскале переменная x должна быть равна -1,291E-08
Я так понял это: x := -1,29100000000
(E-08) это восемь нулей на конце так?
Или нет?

[ROMA2PVT]

Нет это будет вот так.
-0,00000001291;
Да и можно так оставить не переводить в числовой формат а оставить в экспотенциальном.

[Grag]

Это -1.291 умножить на 10 в степени -8: -1.291*0.00000001

[ROMA2PVT]

Кто именно я или он?

[Grag]

ROMA, ты это о чем???

[ROMA2PVT]

Ну вот значит я верно написал.

[ROMA2PVT]

Ну просто вы написали в одно время со мной.И я подумал мне ли это адресовано или нет.

[bezOn]

Ок, попробую

[bezOn]

Вот такая формула:

Вот как я ее попробовал решить.
Все происходит по нажатию кнопки.

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, d, e, f : Extended;
  X, X2, X3, X4, X5 : Extended;
  xResul : Extended;
begin

  a := -216.0475144;
  b := 16.2606339;
  c := -0.002388645;
  d := -0.00113732;
  e := 7.01863E-06;
  f := -1.291E-08;

  {Здесь я сразу возвел переменную X в степерь}
  //X := StrToFloat(StartX.Text);
  X := 45;
  X2 := Power(X, 2);
  X3 := Power(X, 3);
  X4 := Power(X, 4);
  X5 := Power(X, 5);

  {Реализация расчета формулы}
  xResult := (a+b*X+c*X2+d*X3+e*X4+f*X5)/500;
  ShowMessage('Ответ: '+FloatToStr(xResult));

Если например брать: X := 45;
То ответ xResul := 0,86720846305
А должен быть: 1.1531

---
Подскажите кто знает, где я делаю неправильно?

[bezOn]

цук...
поставил 500 впереди и получил нужный результат!


xResult := 500/(a+b*X+c*X2+d*X3+e*X4+f*X5);