【生手求助】一个并不高级的循环问题= =

求助！做循环（式子很笨，高手体谅……而且式子不是重点）
Repeat
d1 := sqrt(sqr (X1-X’) + sqr (Y1-Y’));
d2 := sqrt(sqr (X2-X’) + sqr (Y2-Y’));
d3 := sqrt(sqr (X3-X’) + sqr (Y3-Y’));
d4 := sqrt(sqr (X4-X’) + sqr (Y4-Y’));
d5 := sqrt(sqr (X5-X’) + sqr (Y5-Y’));
   X’ := (V1R1X1/d1+V2R2X2/d2+V3R3X3/d3+V4R4X4/d4+V5R5X5/d5)/(V1R1/d1+V2R2/d2+V3R3/d3+V4R4/d4+V5R5/d5)
Y’ := (V1R1Y1/d1+V2R2Y2/d2+V3R3Y3/d3+V4R4Y4/d4+V5R5Y5/d5)/(V1R1/d1+V2R2/d2+V3R3/d3+V4R4/d4+V5R5/d5)
Until
想要当后一次X’以及Y’ 除以 前一次的值时结果在0.99~1.01之间（即误差小于0.01）时，结束运算，该如何Until啊？（或者直接问应不应该用Repeat句式啊？= =）求解！谢了！