一个数学计算问题

Question

x1=c-a*b
x2=c-(a-x1)*b
x3=c-(a-x1-x2)*b
......
x(i)=c-(a-x1-x2-...-x(i-1)))*b
其中:a,b,c为常数
请求帮助
求解x(i)的程序如何写?

Answer 1

f(x)=c-(a-f(x-1))*b
f(0)=0
递归调用

Answer 2

笑红尘有错应是：
x(i)=c-f(i)*b
然后递归：
f(1)=a
f(i)=f(i-1)-x(i-1)

Answer 3

笑红尘有错应是：
x(i)=c-f(i)*b
然后递归：
f(1)=a
f(i)=f(i-1)-x(i-1)

Answer 4

hqycxy(仇笑雨) :
   你高!我忘了优化

Answer 5

function aaa(a, b, c,i: integer): real;
var k:integer;x: array[1..99999] of real;
begin
 x[1]:=c-a*b;
  for k:=2 to i do
  begin
     x[k]:=c-(a-x[k-1])*b;
  end;
  if i>1 then
  result:=x[i]
  else
  result:=x[1];
end;还有你自己看看能不能加长位数了

Answer 6

应该是这样。function aaa(a, b, c,i: integer): real;
var k,m:integer;x: array[1..99999] of real;z:real;
begin
 x[1]:=c-a*b;
 z:=0;
  for k:=2 to i do
  begin
     for m:=1 to k-1  do
     begin
       z:=z+x[m];
       if m=k-1 then
       begin
         x[k]:=c-(a-z)*b;
         z:=0;
       end
     end;
  end;
  if i>1 then
  result:=x[i]
  else
  result:=x[1];
end;