Помогите вычислить интерационный цикл.

[Anarion]

Задание:
вычислить значение функции

e^x= 1+ x/1!+x^2/2!+...+x^k/k!+...
с точностью до члена ряда, меньшего EPS. Определить номер члена ряда, начиная с которого его значение начнет уменьшаться. Определить разницу между вычисленным значением и значением, полученным с использованием стандартной функции языка.
x=10 EPS = 10^-4

Я вычислил рекурентную формулу, по которой будут считаться все числа суммы:
y^k=y^(k-1)*(x/k);

сумму e^x я обозначил за S.

const
x=10;
EPS=10^-4;
var
K:integer;
S,Y,S1:integer;
 begin{2}
  K:=0;
  Y:=1;
  S:=1;
M1:     begin{1}
        K:=K+1;
           Y:=Y*(x/K);
        S:=S+Y;
           end;{1}  
      if (abs(Y)>EPS) then goto M1 else
  write('S=',S);
    S1:=exp(x);{с помощью стандартной функции языка}
  write('S1='S1);
end.{2}

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

[Anarion]

Неужели никто не знает? Или задача слишком легкая? Помогите плиз...

[ViaGra]

Привет! Помогите пожалуйста с программированием интерационных циклов!!!!!!!!! Нужна блок схему нарисовать.

В Сбербанк выкладывают сумму денег равную S1. Через сколько месяцев эта сумма дорастёт до суммы S2, если % годовых начислений равен Р.

Пожалуйста, откликнитесь, моя почта super_07@list.ru