使用“mod”运算符

Question

每当我需要在我的 for 循环中每 300 次迭代执行某个操作时，我都会尝试显示（有意义吗？）

这是我想要做的代码，但不是我想要的方式：

for I := 0 to 2000 do
  Begin
   if I = 300 then
   DoAnAction;

   if I = 600 then
   DoAnAction

   if I = 900 then
   DoAnAction

   if I = 1200 ......... Same action all over, but I don't want to check all those conditions!
  End;

所以有人告诉我使用mod 运算符，我就是这样做的：

for I := 0 to 2000 do
 Begin
  if I mod 300 = 299 then
  DoAnAction;
 End;

然而，使用上述sn-p的结果会在299、599、899 ....

如何使用 Mod 运算符使其在 300、600、900 ...... （并且做if I mod 300 = 300 没有用）

谢谢！

Answer 1

mod 运算符返回除法的其余部分。因此，如果您想每 300 次迭代执行一次，请使用 i mod 300 = 0。

I mod 300 = 300 没有意义，因为不能除以 300 剩下 300。

Answer 2

for I := 0 to 2000 do
 Begin
  if (I mod 300 = 0) and (I > 0) then
    DoAnAction;
 End;

虽然你以前的版本也很有意义，但 I=299 是第 300 次 ;)

编辑：I mod 300 = 300 不起作用，因为 mod 运算符返回 devision 的剩余部分，根据定义，这将在0..299 范围内

Answer 3

使用这个：

if i mod 300 = 0

模运算符返回除法的余数。

这里有一个例子可以帮助你。将 TMemo 放在一个空白的新表单上，并将其放入 FormCreate evemt：

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
const
  Output = 'i mod %d = %d';
begin
  Memo1.Clear;
  for i := 0 to 10 do
    Memo1.Lines.Add(Format(Output, [i, i mod 5]));
end;

运行它，然后查看备忘录中的输出。

Answer 4

试试(I <> 0) AND ((I mod 300) = 0)。

Answer 5

procedure TForm1.Button1Click(Sender: TObject); var i:REal; begin i:=strtofloat(edit1.Text); if i mod 5 = 0 then begin label1.Caption:='Кратно 5'; end else begin label1.Caption:='Не кратно 5'; end; end;