Delphi(2006) 循环帮助

Question

所以我本质上想做的是让某些事情发生 70% 的时间，另外一些事情发生 10% 的时间，如果这有意义的话，但我的应用程序似乎没有执行我猜测的任何操作我误解了循环语法或其他东西，无论如何，如果有人可以看一下，也许可以给我一些建议

per1 := 70;
per2 := 77;
per3 := 84;
per4 := 91;
per5 := 100;
per6 := Random(2) + 1;
randomize;
RandPer:= Random(100);
randomize;
RandPer2 := Random(100);

 if RandPer2 <= 70 then begin
If RandPer <= per1 then begin
  Functiontest(1);
    end Else If RandPer <= per2 then begin
      Functiontest(3);
     end Else begin If RandPer <= per3 then begin
      Functiontest(5);
        end Else begin  If RandPer <= per4 then begin
        Functiontest(6);
          end Else begin If RandPer <= per5 then begin
          Functiontest(9);
          end;
         end;
        end;
      end;

Answer 1

您没有任何循环语法，因此这肯定是您感到困惑的可能根源。

不要多次调用Randomize。 每次您执行此操作时，它都会根据系统时钟重新初始化随机种子。 如果您的代码运行速度快于时钟前进的速度，那么您对 ​​Randomize 的多次调用实际上会将随机种子重置为之前的相同值，从而导致重复 随机调用返回相同的值。

帮助建议您在程序开始时仅调用一次Randomize。 如果您正在编写一个单元或组件并且您不负责整个程序，那么根本不要调用Randomize。 相反，记录代码的使用者应该自己调用它。

如果您正在编写 DLL 并且不使用运行时包，请在 DLL 导出的初始化函数中调用Randomize； 您的 DLL 的使用者将无法访问您的 DLL 的 Delphi 运行时库副本。

另外，如果您希望某些事情在 70% 的情况下发生，那么您应该检查您的值是否严格小于 70。Random 的可能返回值包括零； 70% 的结果将在 0 到 69 之间（含 0 和 69）。 允许 70 实际上会使事件发生的概率为 71%。

最后，你的 10% 时间的计算对我来说没有意义。 您有 3 个事件发生的概率为 7%，另外一个事件发生的概率为 9%。 当你只剩下 30% 的时间时，你不可能让四个事件发生的概率分别为 10%。 您的意思是每个事件的频率都独立于其他事件进行测量吗？ 如果是这样，那么不要将所有条件测试与 else 链接在一起； 为每一个完全使用单独的 if 语句。

Answer 2

我刚刚修改了 CharlesF 代码来完成您需要的操作。
希望CharlesF不会介意。

begin
  randomize;
  for i := 0 to NumberOfTimesNeed do
  begin
    R :=  Random(100);
    case R of 
       0..69  : Functiontest(1); // this will fire 70% of NumberofTimes
       70..79 : Funciotntest(2); // 10 percent 
       80..89 : Funciotntest(3); // 10 percent 
       90..94 : Funciotntest(4); //  5 percent  
       // and so on ...
    end; 
end;