在delphi中的遞增或是遞減的循環怎麼寫？

妳這個不是標準意義是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;