delphi 随机函数的利用random 取10个介于1000与2000之间的随机数，并计算它们的最大，最小值及总和

one_money

于 2010-06-25 15:16:00 发布

阅读量3.8k

点赞数

分类专栏： Delphi 文章标签： random delphi

本文链接：https://blog.csdn.net/one_money/article/details/5694100

版权

本文通过Delphi的random函数生成10个介于1000到2000之间的随机数，计算并展示了这些随机数的最大值、最小值和总和。通过循环累加和比较，得出随机数的统计信息，并在Label2上动态显示每次生成的随机数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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));

最低0.47元/天解锁文章