Таблица значинений функции, заданной с помощью ряда Тейлора

[deekey063]

Помогите пожалуйста написать программу, надо вычислить и вывести на экран ввиде таблицы значинения функции, заданной с помощью ряда Тейлора, на интервале от х начало до х конца с шаговм dx с точностью e. Каждая строка таблицы должна содержать значение аргумента, значение функции и количево просуммированных членов ряда

[min@y™]

мне одному кажется, что меня наё...вают?

[deekey063]

Сообщение от min@y™

мне одному кажется, что меня наё...вают?

Нет, вам так не кажется , это такое задание :С это вроде как одно и тоже самое , только нифига не знаю как записать её так, чтобы считала дальше

[newerow1989]

function Stepen(x:real;n:integer):real;
var i:integer;
begin
   Result:=x;
   For i:=2 to n do
      Result:=Result*x;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,s:real;
    n,k:integer;
begin
   x:=0.5;//любое число вписываешь
   k:=10000;//пусть так останется, а то зависает при больших k
   s:=0;
   For n:=1 to k do
      s:=s+Stepen(x,n)/n;
   s:=-s;
   Label1.Caption:=FloatToStr(s);
end;

Так сойдет?

[deekey063]

Сообщение от newerow1989

function Stepen(x:real;n:integer):real;
var i:integer;
begin
   Result:=x;
   For i:=2 to n do
      Result:=Result*x;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,s:real;
    n,k:integer;
begin
   x:=0.5;//любое число вписываешь
   k:=10000;//пусть так останется, а то зависает при больших k
   s:=0;
   For n:=1 to k do
      s:=s+Stepen(x,n)/n;
   s:=-s;
   Label1.Caption:=FloatToStr(s);
end;

Так сойдет?

Она не работает :С