求一个函数递归调用问题的代码 (100分)

我得问题是这样的
问题是要求Xij；(i,j=1,2,3.....到一个给定的数)；
Xij=Ai*Bj*Ti*Uj*f(i,j) （1）
Ai=1/[b*Uj*f(i,j)]； （2） （其中b等于Bj(j=1 to j）的连加求和）；
Bj=1/[a*Ti*f(i,j)]； （3） （其中a等于Ai(i=1 to j）的连加求和）；
已知：Ti;Uj;f(i,j)及Bj的初值＝1；
就是说：1：假定所有Bj的值为1，用（2）式求Ai；
2：降计算出的Ai值代入（3）式求Bj，再将求得的Bj代回(2)式求Ai，如此反复直到
当求出的第N+1次Ai和第N次Ai及第N+1次Bj和第N次Bj大致相同时停止迭代；
3：然后用此时的Ai,Bj代入（1）求Aij。
哪位大侠可以给出具体代码，小弟是初学编程，而这个问题的解决又很着急。只有求
各位多多帮助了。

没看明白。

我也没看明白，这是解决什么问题的算法？[?]

我把问题重新写了。第一次提问，写的不清楚请大家原谅。

function Xij:Real;
var
N:Integer;
A1,B1,
A2,B2:Real;
function Ai;
begin
if (ABS(A2-A1)<0.00001) and
(ABS(B2-B1)<0.00001) then
Result:=A1
else
begin
Result:=1/[Bj*f(i,j)];
A2:=A1;
VA:=Result;
end;
end;
function Bj;
begin
if N=1
Bj:=1
else
begin

if (ABS(A2-A1)<0.00001) and
(ABS(B2-B1)<0.00001) then
Result:=B1
else
begin

Result=1/[Ai*f(i,j)]；
B2:=B1;
B1:=Result;
inc(N);
end;
end;
end;
begin
N:=1;
Xij=Ai*Bj*f(i,j);
end;

不行啊，[]还请楼上大哥写的清楚点。最好不要有语法错误，因为我实在是刚刚开始学。
谢谢了。[]

多人接受答案了。