Как высчитать число e?

[hon]

В программу вводятится чило n. И нужно, чтобы не округляло.

Вот набросок:

procedure TForm1.Button1Click(Sender: TObject);
var n:Int64;
res:Extended;
begin
   n:=StrToInt(EditInput.Text);
   res:=st(1+1/n,n);
   EditOutput.Text:='e='+FloatToStr(res);
   ShowMessage('Готово')
end;

[Johnson]

var n:Int64;

n:=StrToInt(EditInput.Text);

EditOutput.Text:='e='+FloatToStr(res);

Только мне кажется, что сдесь побывал кэп?

http://www.delphibasics.ru/Int64.php
http://www.delphibasics.ru/Double.php
http://www.delphibasics.ru/Extended.php

http://ru.wikipedia.org/wiki/E_(%F7%E8%F1%EB%EE)

[3D Hunter]

У вас как раз-таки и не округляется, а записывается в общей форме с десятичным основанием Е и значением степени, которые идут после знака "+". Если бы не такая запись числа с плавающей запятой, то едита бы не хватило для отображения всех знаков)
Например сделайте так:

EditOutput.Text:='e='+FloatToStrF(r es,ffFixed,15,18);

Тогда у вас будет 18 разрядов после запятой.

[Johnson]

Ещё раз повторяю... StrToInt преобразует в Int64, какая связь с Double или Extended?

[Хамяг]

я никак не пойму, число Эйлера высчитать надо? тогда

e:=Exp(1);

что делает функция st?

[Аватар]

Предел (1+1/n) в степени n при n стремящемся к бесконечности и есть число Эйлера. Видимо функция st и высчитывает результат для заданного n, только тоже не нашел её, возможно это пользовательская функция, не показанная в коде?

StrToInt преобразует в Int64, какая связь с Double или Extended?

А в чем проблема то? n это одно, rez другое