Объясните как написать код. для ряда Тейлора

[Оленька Кирпилёва]

Хочу научиться программировать. но ничего не получается .
Дали задание и ничего не обьяснили.

Пожалуйста обьясните как написать.

[TinMan]

Ты начни хотя бы. Или уточни, что именно не получается. Поможем.

[Оленька Кирпилёва]

var x,stx,st,e2x,T: real;
    i,fakt,z: integer;
Begin
Write(Ввод x: ');
Readln(x);
Write('Точность T: ');
Readln(T);
 stx:= x;  
 fakt:= 1;  
 st:= 0;  
 i:= 1;  
 z:= 1;  
while stx/fakt>=T do begin  
                      st:=Exp(i*ln(2*stx)/fakt);
                      inc(i,2);
                      fakt:=fakt*i;
                      z:=z*(-1);  
                      end;
Writeln('Ç e2x(',x:6:6,')= ',st:6:6);
Writeln('Ç: ',(x):6:6);
Readln;
End.

[Оленька Кирпилёва]

опс.... русского языка не понимает))))

[AnKor94]

Разбирайся

var
x, slag, slag1, k, res: real;
n: integer;

begin
readln(x);
slag:=1;
n:=1;
res:=1;
k:=1;
while (k>0.00001) do
begin
slag1:=(slag*2*x)/(n);
k:=abs(slag1-slag);
if k=0 then k:=1;
slag:=slag1;
res:=res+slag;
n:=n+1;
end;
writeln(res);
end.

[AnKor94]

Оленька Кирпилёва, это как?

[Оленька Кирпилёва]

Что именно?)

[Оленька Кирпилёва]

За код спасибо.)) ошибочку нашла у себя.
токо вопрос - программа правильно считает??)))

[AnKor94]

Моя - да, ваша нет)

число эйлера, кстати, 2.718281828

[TinMan]

Сообщение от Мститель Х

Перво-наперво вам надо купить себе мозг. Без него у вас ничего не получится.

Я извиняюсь, что вмешиваюсь, но любопытно - чем вызвана сия грубость?
от меня: -1