Решите задачку

[innaa639]

Заданы вещественные числа x<>0, E>0. Вычислить сумму с точностью до Е(10^-6). Определить количество слагаемых. В процессе вычисления выдать на экран промежуточные результаты.
1 + Знак суммы(a(a-1)...(a-k+1))xk/k!, (E>0,|x|<1).
k=1

[alex_fcsm]

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

Заданы вещественные числа x<>0, E>0. Вычислить сумму с точностью до Е(10^-6). Определить количество слагаемых. В процессе вычисления выдать на экран промежуточные результаты.
1 + Знак суммы(a(a-1)...(a-k+1))xk/k!, (E>0,|x|<1).
k=1

Недавно делал похожую задачу(кстати с форума)

const eps=0.000001;
var z:real;
    sum,x:real;
    i:integer;
function fact(y:integer):real;
begin
if y=1 then fact:=1
   else fact:=y*fact(y-1);
end;

begin
writeln('input z');
readln(z);
sum:=0;i:=0;
repeat
inc(i);
x:=sqr(z+2)/fact(i);{нужно записать сюда функцию }
sum:=sum+x;
writeln('Step ',i,':',sum);
until x<=eps;
writeln('Summa ',sum:3:3);
end.

i - количество слагаемых

[innaa639]

Так это код к моей задачке или нет?

[puporev]

С факториалом Вы дальше fact(12) не уедете. Здесь надо применить рекуррентное отношение.

[alex_fcsm]

НЕТ
Вам нужно вместо

x:=sqr(z+2)/fact(i);

записать свою функцию

[alex_fcsm]

function fact(x:integer):real;
var i,j:integer;
begin
j:=1;
for i:=1 to x do
 j:=j*i;
fact:=j;
end;

[innaa639]

а как записать знак суммы в функции или вообще мою функцию,я этого вообще не понимаю

[alex_fcsm]

суммирование происходит в цикле repeat until пока слагаемое не станет меньше 10^-6

[puporev]

Вот нормальный код программы.

uses crt;
var x,e,a,s,s1,t:real;
    k:integer;
begin
clrscr;
repeat
write('x=');readln(x);
write('a=');readln(a);
until (abs(x)<1)and(x<>0);//проверяем правильность ввода х
e:=0.000001;s:=1;k:=1;t:=a*x;//начальные значения
while abs(s-s1)>=e do //пока разность между очередной и предшествующей суммой >e
  begin
   s:=s1;//s присваиваем значение вычисленного s1
   s1:=s+t;//вычисляем новую сумму
   writeln('k=',k,'  s1=',s1:10:7,'  s=',s:10:7);//выводим на экран количество слагаемых
//под знаком суммы, предыдущую и полученную суммы                                      
   t:=t*(a-k+1)/k; //вычисляем очередное слагаемое
   inc(k); //увеличиваем счетчик
 end;
readln
end.

[innaa639]

Но этом коде оно бесконечно вводит икс и а