Помогите с ошибками. Разложить функцию e^2x в ряд Тейлора (Маклорена). Паскаль

[NikSon-xD]

Надеюсь, правильно оформил)Помогите пожалуйста с рядом Тейлора, а то я совсем не бум-бум. А зачет как-то получить надо, Паскаль.

Мне нужно написать ряд Тейлора(Маклорена) для функции e^2x с точностью от 0,001 до 10 члена ряда. На отрезке [0,5; 1], выбрать 5 точек и подставить в формулу.
Мне даже первой части задания будет достаточно, это было бы идеально

[NikSon-xD]

Program exponent;
Var i,n,t : integer;
expon : real;
Begin
Write ( 'write x')
readln (x)
Sum:=0
For n:= 1 to 10 do
Begin
For i:=1 TO n do
Fact:=1;
Begin
Fact:=Fact*i;
end;
t:=2*x;
step:=1
For i := 1 to n do begin
step:=step*t;
end;
expon:= step/fact
end;
Sum:= sum+expon;
write ('sum='Sum)
end.

[Аватар]

var x,t,s: Real; n: Integer;

  x:=5.75; t:=1; s:=0; n:=0; while t>=0.00001 do begin s:=s+t; Inc(n); t:=t*2*x/n; end;

В s результат для x=5.75 с точностью примерно 0.00001

[NikSon-xD]

А вообще задание такое

Мне нужно написать ряд Тейлора (Маклорена) для функции e^2x c точностью 0.001, до 10 степени, при этом отрезок [0,5; 1], на нем выбираются 5 точек, подставляются по отдельности в получившийся ряд и сравнивается с эталонными значениями (которые сам паскаль встроенными функциями считает).

[NikSon-xD]

Точность тогда меньше ставить, правильно понял?

[Аватар]

Сообщение от NikSon-xD

Точность тогда меньше ставить, правильно понял?

А сам как думаешь? Какой x ставить надеюсь тоже понятно

[NikSon-xD]

А остальное все верно?

[Аватар]

А что остальное? В коде полная чепуха, не вижу там ни получения експоненты, ни всего остального. Вокруг моего кода нужен еще внешний цикл по каким-то 5 точкам из интервала [0,5; 1] и выдача результата