PASCAL Формула

[veter48]

Есть задание по паскалю выгледит оно вот так:

Но задание не написано, насколько я понял надо решить функцию когда аргумент X c 0.1 до 1.9 с шагом 0.1 и это надо сделать по формуле посередине. Помогите пожалуйста. Дайте подсказку

[eoln]

Проблема с заданием? http://ru.wikipedia.org/wiki/Ряд_Тейлора
Вторая формула - это разложение натурального логарифма в ряд Маклорена для всех допустимых х удовлетворяющих сходимости ряда.
Примерное условие: требуется с некой погрешностью эпсилон (задаётся с клавиатуры) вычислить сумму ряда для некоторого х (вводится с клавиатуры) из промежутка [0.1, 1.9] (шаг в промежутке 0.1). После этого сравнить полученную сумму со значением вычисленным по первой формуле.

[veter48]

Не понимаю как это реализовать нашел пример

И вот реализация

Program  aaa;
var X, S, Y, A : real;
    k : integer;
begin
   x:= -6;
   while x< 6.25 do
   begin
      S: =1-0.5*x*x;
      A:= -0.5*x*x;
      k:=3;
      while ABS (A)> 0.0001 do
      begin
         A:= -A*x*(k-1)/(k*(k-2));
         S:=S+A;
         k:=k+1
      End;
      y:=(1+x)* Exp(-x);
      writeln(x:6:2,S:12,Y:12,k:6);
      x:=x+0.5
   End
End.

Помогите пожалуйста как это сделать?

Ну помогите пожалуйста никак не получается сделать подскажите пожалуйста.

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

[Mad_Cat]

program lnx_teilor;
var x,stx,lnt,e: real;
    i,fakt,z: integer;
Begin
Write('Введите 1 < x < 2: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
 stx:= x-1;  {x в степени}
 fakt:= 1;  {значение знаменателя}
 lnt:= 0;  {первый элемент в разложении}
 i:= 1;  {счётчик}
 z:= 1;  {знак элемента}
while stx/fakt>=e do begin  {до тех пор, пока элемент в разложении не меньше точности}
                      lnt:=lnt+z*stx/fakt;
                      inc(i);
                      stx:=stx*(x-1);
                      fakt:=i;
                      z:=z*(-1);  {смена знака}
                      end;
Writeln('Количество элементов в разложении = ',i);
Writeln('Значение ln(',x:6:6,')= ',lnt:6:6);
Writeln('Значение компьютера: ',ln(x):6:6);
Readln;
End.

ну а функцию из этого сделать пусть будет домашним заданием)

[veter48]

Спасибо боль шое но я пока ждал ответ наверно придумал и сделал по своему. Вы можете пожалуйста проверить правильно ли?

Program  Rjad;
var X, S, Y, A : real;
    k : integer;
begin
writeln(' funkcija y= ln(x)        ');
writeln(' diapazon  0.1 ... 1.9 shag 0.1  ');
writeln('  x            Rjad      Standart.funkcija    Kol. chlenov v rjade');

   x:= 0.1;
   while x<= 2 do
   begin
      A:= x-1;
      S:=A;
      k:=2;
      while ABS (A)> 0.0001 do
      begin
         A:= -A*((k-1)*(x-1))/(k);
         S:=S+A;
         k:=k+1
      End;
      y:=Ln(x);
      writeln(x:6:2, S:18:6, Y:18:6, k:12);
      x:=x+0.1
   End;
   readln;
End.

Спасибо большое

[Mad_Cat]

funkcija y= ln(x)
diapazon 0.1 ... 1.9 shag 0.1
x Rjad Standart.funkcija Kol. chlenov v rjade
0.10 -2.301887 -2.302585 52
0.20 -1.609131 -1.609438 28
0.30 -1.203792 -1.203973 19
0.40 -0.916219 -0.916291 15
0.50 -0.693065 -0.693147 11
0.60 -0.510780 -0.510826 9
0.70 -0.356664 -0.356675 8
0.80 -0.223131 -0.223144 6
0.90 -0.105358 -0.105361 5
1.00 0.000000 0.000000 2
1.10 0.095308 0.095310 5
1.20 0.182331 0.182322 6
1.30 0.262371 0.262364 8
1.40 0.336451 0.336472 9
1.50 0.405435 0.405465 11
1.60 0.469984 0.470004 15
1.70 0.530592 0.530628 19
1.80 0.587826 0.587787 28
1.90 0.641897 0.641854 52

вот результат работы --как сам считаешь правильно или нет?

[veter48]

я не знаю в том примере что нам дали тоже получаются такие интересные числа, я не знаю как проверить