Delphi - 获取可除数的数量[关闭]

Question

我喜欢得到我的目标可以分割的数字数量。 所以如果是 10，它应该返回 4，因为 10 可以被 1、2、5 和 10 整除。 我的尝试是这样，但它返回 1？哎哟

function FindeTeiler(Zahl : Integer) : Integer;
var
Amount, i: Integer;
begin
  Amount := 0;
   For i := 1 to Zahl do begin
      If (i mod zahl = 0) then
      begin
        Amount := Amount +1;
      end;
   end;
   Result := Amount;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage('The number ' + Edit1.text + ' has ' + IntToStr(FindeTeiler(StrToInt(Edit1.text))) + ' dividers.');
end;

Answer 1

您需要计算 zahl/i 的余数，但您的代码会计算 i/zahl 的余数。

所以，而不是

i mod zahl = 0 

你需要测试

zahl mod i = 0

函数应该这样写：

function FindeTeiler(Zahl: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Zahl do
    if zahl mod i = 0 then
      inc(Result);
end;