Логарифмическая функция

[Vitul'k]

Вычислить с заданной точностью значения логарифмической функции LOGa (1+x)

[pushok]

я вижу 2 пути:

1. как и в предыдущей теме разложение в ряд Маклорена (или ему подобные) и по циклу вычислять очередной элемент ряда пока не будет достигнута требуемая точность

2. т.к. в языках программирования обычно предусмотрена только функция натурального логарифма, воспользоваться формулами преобразования (их можно посмотреть в школьном учебнике или в поиске в инете) и обрезать результат до нужной нам точности.

[Stilet]

А, может я не совсем прав, но почему бы не сделать так:

var a:Extended;e:integer;
begin
 if TryStrToFloat(Edit1.Text,a) then
  if TryStrToInt(Edit2.Text,e) then begin
   a:=Log10(1+a);
   Label1.Caption:=FloatToStr(RoundTo(a,-e))
  end;
end;

т.е. если нужно в Делфи решать то решить это уже готовыми способами, а не как универские методы предлагают.

[Vitul'k]

Спасибо, за помощь.. Только вот мне надо составить программу именно такую... А эт я понимаю нат лог.. Сама не наю, чт делать..

[Stilet]

А эт я понимаю нат лог..

Где ты натуральный логарифм увидела?

[Vitul'k]

Извини конечно, а ты не мог бы объяснить как она работает? Заранее спасибо.