Паскаль

[Roll1n]

Вычислить сумму бесконечного ряда для заданного Eps:
S=1+x/1!+x^2/2!+x^3/3!+...x^k/k!+...
с точностью до |a(с индексом i)-a(с индексом i-1)<=Eps

Program lab3;
uses crt;
Var fact: longint;
i:integer;
x,k:real;
function S(x,k:real):real;
begin
i:=i+1;
for i:=1 to 10 do
s:=1+exp(x*ln(i))/fact*(i)

.

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

[Скарам]

Думаю,что должно выглядеть так:

Program lab3;
uses crt;
Var eps,s,t,t1,x:real;
     n:integer;
     flag:boolean;
begin
writeln('Enter eps');
readln(eps);
writeln('Enter x');
readln(x);
s:=0;t:=1;n:=0;t1:=0;flag:=true;
while(flag) do 
  begin
  s:=s+t;
  n:=n+1;
  t1:=t*x/n;
  if (t1-t)<=eps then
     begin
        flag:=false;
     end
  else
     begin
       t:=t1;
     end;
  end;
writeln('Summa = ',s:8:5);
writeln('Vuchislena na ',n,' wage');
end.

Думаю должно выглядеть как-то так,t1:=t*x/n-это то,что отличает член i-1 от i,высчитал разделив x(i) на x(i-1)...Алгоритм простой,единственное,что могут быть мелкие ошибки,ибо писал прямо в поле Быстрый ответ без проверки и компиляции.

[Roll1n]

S=1+x/1!+x^2/2!+x^3/3!+...x^k/k!+...
а эту формулу куда ты дел в своем коде?)

[Скарам]

 s:=s+t;
 n:=n+1;
 t1:=t*x/n;

вот...сначала 1,на следующем шаге цикла s=1+x/1!,на следующем s=1+x/1!+x^2/2!+x^3/3! и тд. Следующий член ряда получается из предыдущего,я же писал

t1:=t*x/n-это то,что отличает член i-1 от i,высчитал разделив x(i) на x(i-1)

Ты же не знаешь изначально сколько шагов потребуется,поэтому он посчитал в первый проход цикла первый и второй член последовательно,вычел,сравнил с точностью,если она(точность)не достигнута,то пошёл на следующий шаг,высчитал 3 член последовательности(второй уже сохранился в t) и тд. Ну и суммируется всё на каждом шаге...Ты что думаешь,что твоя программа должна сама за тебя решит сколько проходов цикла сделать?..А формулу в явном виде ввести можно только для известного количества шагов,тем более это количество всегда будет постоянным.