请问怎样随机生成1和-1? 请问怎样随机生成1和-1?即:var I:integer;I:=rand(1,-1); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 简单,j : Double;j := Random(1);if (j >= 0.5) then I := 1else I := -1; Random(2); //0|12 * Random(2) - 1;procedure TForm1.Button1Click(Sender: TObject);begin Caption := IntToStr(2 * Random(2) - 1);end; Filter 报错,求救各位大侠! 将几个自然数排序输出[冒泡法排序] 再问:关于数据类型的转化!!! 怎样全屏幕浏览dbgrid中的内容! ado连接sqlanywhere数据库出现问题? 在DBGRID中有多个字段,如何在向右滚动时保持前几个字段不动? 哪位可以教一下怎么查詢局域网中的sql服務器?為什么我的就不行??????? 100分问一个关于把线程对象封装在DLL里如何调用的问题! 简单问题:怎么清空IMAGE控件中的图象? 关于TABLE的一个菜问题。(分少但会马上给!) 用钩子实现进程防杀 关于标签的一个小问题?谢谢指教!
j : Double;j := Random(1);
if (j >= 0.5) then
I := 1
else
I := -1;
begin
Caption := IntToStr(2 * Random(2) - 1);
end;