问一个算法问题？

Question

要执行有四个方法,
怎么让程序定时按一定比例执行(如a方法执行的比例为3,
b方法执行的比例为3,
c方法执行的比例为2,
d方法执行的比例为2)?

Answer 1

var
  a:array [1..4] of integer;
begin
  a[1]:=3;
  a[2]:=3;
  a[3]:=2;
  a[4]:=2;
  temp:=0;
  for I:=Low(a) to High(a) do begin
    Inc(temp,a[I]);
    a[I]:=temp;
  end;
  randomize();
  rndval = random(a[4]);
  for I:=High(a) downto Low(a) do begin
    if rndval < a[I] then
      showmessage('something');
  end;