delphi 随机函数的利用random 取10个介于1000与2000之间的随机数,并计算它们的最大,最小值及总和
来源:互联网 发布:做淘宝用什么摄影灯好 编辑:程序博客网 时间:2024/05/03 19:17
var
i,randvalue,maxrandvalue,sum,minrandvalue:integer;
begin
sum:=0;
i:=0;
maxrandvalue:=0;
while i<10 do begin
randvalue:=random(2000);
if (randvalue>=1000)and(randvalue<=2000)then begin
sum:=sum+randvalue;
if maxrandvalue<randvalue then maxrandvalue:=randvalue;
if i=1 then minrandvalue:=randvalue else begin
if minrandvalue>randvalue then minrandvalue:=randvalue;
end;
if i=1 then
Label2.Caption:=inttostr(randvalue)
else
Label2.Caption:=Label2.Caption+'+'+inttostr(randvalue);
inc(i);
end;
end;
showmessage('最大值:'+inttostr(maxrandvalue)+',最小值:'+inttostr(minrandvalue)+
',总和 :'+inttostr(sum));
- delphi 随机函数的利用random 取10个介于1000与2000之间的随机数,并计算它们的最大,最小值及总和
- 取Random范围内的随机数
- C#--利用Random类产生10个[10,99]之间的随机数,并将这10个随机数在列表框中显示出来,每个数占一项。用户选择某项后,在右边标签中显示所选内容
- 利用Random类产生10个[10,99]之间的随机数,并将这10个随机数在列表框中显示出来,每个数占一项。用户选择某项后,在右边标签中显示所选内容。
- C#作业:利用Random类产生10个[10,99]之间的随机数,并将这10个随机数在列表框中显示出来,每个数占一项。用户选择某项后,在右边标签中显示所选内容
- 实现随机10个20至200之间的随机数
- 利用Random类来产生5个20~50之间的随机整数
- 利用Random类产生5 个1-30之间(包括1和20)的随机整数。
- 提高c#随机数random产生随机函数的…
- 介于友情与爱情之间的情感
- iOS中取数组的最大值、最小值,下标,总和,平均值
- 取一个集合的前n个最大或最小值
- 设计程序,产生10个10-19的随机数,对它们递增排序并输出结果
- 利用 numeric_limits 计算 数值型变量的 最大、最小值
- Math.random()取一个区间的随机数
- Random取100以内的随机数
- 【Java每日一题01】使用java.lang.Math类,生成100个0到99之间的随机整数,找出它们之中的最大者和最小者,并统计大于50的整数个数
- 最大最小值:给n个实数,求它们之中的最大值和最小值,要求比较次数尽量小。
- 劈材挑水之“等价类”
- Struts2拦截器(Interceptor)的使用范例
- ACE_Activation_Queue
- 哈夫曼树建立、哈夫曼编码算法的实现
- cr
- delphi 随机函数的利用random 取10个介于1000与2000之间的随机数,并计算它们的最大,最小值及总和
- WMI获取信息补充(一)(Win32_Volume,Win32_EncryptableVolume,Win32_TPM)
- 用C语言定义Bool类型(包括数据表示和操作实现),至 少包含and(与)、or(或)、not(非)、equiv(相等)这4个操作。
- 用C语言定义Bool类型(包括数据表示和操作实现),至 少包含and(与)、or(或)、not(非)、equiv(相等)这4个操作。
- 关于CString剖析,“strcmp”: 不能将参数1从“CString”转换为“const char *”问题
- 一篇不错的关于freebsd双线路负载均衡的文章
- 线索二叉树建立、中序遍历、查找前驱后继、插入
- 地方分类信息网的推广及伪原创内容
- Guice笔记