Функция. Паскаль.

[)Free(]

Написать программу используя функцию.
s1=summa(((abs(x[i]))^i)/i!)
s2=summa(((abs(x[i]-s1))^i)/i!)
s3=summa(((abs(x[i]-s2))^i)/i!)
Нужно вывести на экран s1,s2,s3.

Не понимаю где у меня ошибка

[Serebro]

Нужно было привести код программы в виде текста, а не в виде двух картинок.

во внутреннем цикле не используется параметр цикла j.

[Stilet]

Шож все так сложно?
Предлагаю еще сильнее усложнить:

const n=3;  
var x:array[1..n] of integer;
 function summa(ss:double):double;
 var i,fac:integer;s,as1:double;
 begin
  as1:=abs(x[1]-ss);fac:=1;
  s:=as1;
  for i:=2 to n do begin
   as1:=as1*abs(x[i]-ss);
   fac:=fac*i;
   s:=s+as1/fac;
  end;
  Result:=s;
 end;
var s1,s2,s3:Double;i:integer;
begin         randomize;
 for i:=1 to n do begin
  x[i]:=1+random(50);write(x[i]:5);
 end;    writeln;
 s1:=summa(0); s2:=summa(s1); s3:=summa(s2);
 write(s1:5:2,' ',s2:5:2,' ',s3:5:2);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Serebro]

 function summa(ss:double):double;
 var i,fac:integer;s,as1:double;
 begin
  as1:=abs(x[1]-ss);fac:=1;
  s:=as1;
  for i:=2 to n do begin
   as1:=as1*abs(x[i]-ss);
   fac:=fac*i;
   s:=s+as1/fac;
  end;
  Result:=s;
 end;

Получится

abs(x[1]-ss)
abs(x[1]-ss)*abs(x[2]-ss)
...
abs(x[1]-ss)*abs(x[2]-ss)*...abs(x[n]-ss)

а нужно:

abs(x[1]-ss)
abs(x[2]-ss)*abs(x[2]-ss)
....
abs(x[n]-ss)*abs(x[n]-ss)*...abs(x[n]-ss)

[)Free(]

Serebro, я если честно не очень понял...-по-моему, даже используя ваш код программа неправильно считает самое первое значение, то есть s1. а что уж тогда говорить о s2 и s3...

[Serebro]

 function summa(ss:double):double;
 var i,j,factorial:integer;s,Result:double;
 begin

   Result:=0;
  for i:=1 to n do 
   begin
     s:=1;
     factorial:=1;
     for j:=1 to i do 
           begin 
             s:=s*abs(x[j]-ss);
             factorial:=factorial*j;
           end;
   Result:=Result+s/factorial;
   end;

summa:=Result;

 end;