随机数

Question

让程序产生一个随机的数,如328，并且要求程序能够把这个数字随机的分配成三个数字如：28，100，200，要求分配成的三个数字之和为输入的数字。并显示分配后的数字！
请告诉如何实现，给出源代码！谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k,l: integer;
begin
  memo1.Lines.Clear;
  Randomize;
  i := random(1000);
  memo1.Lines.Add(inttostr(i));
  j := random(i);
  memo1.Lines.Add(inttostr(j));
  k := random(i-j);
  memo1.Lines.Add(inttostr(k));
  l := i-j-k;
  memo1.Lines.Add(inttostr(l));
end;