面向对象(随机数)
来源:互联网 发布:排名易淘宝刷流量软件 编辑:程序博客网 时间:2024/06/05 19:25
面向对象(随机数)
步骤一:向Form1中添加Edit和Button组件
步骤二:新建Unit2(File---New---Unit)
在Unit2中的代码:
unitUnit2;
interface
type
TMyclass=class(TObject)
private
a:array[1..1000] of integer;
Max:integer;
public
procedure SetMax(m:integer);//设置随机数最大范围
procedure Shuffle;//洗牌
function IthNo(I:integer):integer;//取一个随机数
end;
implementation
procedureTMyclass.SetMax(m:integer);
begin
Max:=m;
end;
procedureTMyclass.Shuffle;
vari,j,k:integer;
begin
for i:=1 to Max do a[i]:=i;
Randomize;
for i:=1 to Max do
begin
j:=random(Max)+1;
if j>Max then j:=Max;
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
end;
functionTMyclass.IthNo(I:integer):integer;
begin
result:=a[i];
end;
end.
步骤三:Form1中
定义Myclass和变量i(写在implementation 后面一行) :
uses Unit2;
var Myclass:TMyclass;
i:integer;
Form---OnActivate:
Myclass:=TMyclass.Create;
Myclass.SetMax(20);
Myclass.Shuffle;
i:=1;
Button1:
Edit1.Text:=inttostr(Myclass.IthNo(i));
i:=i+1;
if i=21 then Button1.Enabled:=False;
- 面向对象(随机数)
- 面向对象_补充_封装_成员与局部变量_static关键字_Math随机数
- 面向对象_通过JDK的帮助文档学习Math类的随机数功能
- 07-Java面向对象构造方法,static关键字,main方法,说明书,math随机数
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 面向对象
- 多媒体(闹铃)
- sdibt 2552 计算1 - 1/2 + 2/3 - 3/5 + 5/8 - 8/13 + 13/21…前n项
- java程序员应该知道的两种引用
- CONST在C语言中的应用
- 为什么借助开源学习是最有效的?
- 面向对象(随机数)
- linux系统如何手动添加默认网关
- 使用J2MEUnit测试J2ME程序
- SAP ABAP package creation
- 数据库1(基本编辑操作)
- C中获取文件长度的方法
- DATALENGTH 和 LEN的区别
- 在SQL Server 2005中创建数据库镜像的步骤及事项
- Ping命令和网络端口: