Question

在delphi中的递增或是递减的循环怎麼写？

例如： for(float m = ((2 * n /100) - 1); m >= (n / 100); m--)
{
k = 1000 / (m - (j++));
sum += k;
} 这样的代码在delphi 中应该如何写？ 请高手指点一二，不胜感谢！！！！！！
哪while应该如何写那？
给点建议或是源码！！！

Answer 1

你这个不是标准意义是FOR循环，在DELPHI里面只能使用WHILE循环来实现这个的功能，因为你的循环结束条件是变化的。

DELPHI的循环如下：
FOR 控制变量:=初值 TO 终值 [STEP 步长]

编译为汇编的时候，是使用汇编的LOOP循环实现的，不在每次循环时检测终值是否变化，这是非常高效的FOR循环。

m := ((2 * n /100) - 1);
while (m >= (n / 100)) do
begin
k := 1000 / (m - (j++));
sum := sum + k;
m:=m-1;
end;