面向对象(随机数)

原创 2012年03月21日 16:27:02

面向对象(随机数)

步骤一:向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;

 

相关文章推荐

C++面向对象多线程编程

  • 2017年11月11日 14:33
  • 18.55MB
  • 下载

面向对象的三大特征及其作用

封装 封装其实就是信息隐藏,隐藏一个对象的本质,让用户不再注意那些细节.提供一些向外的接口供别人使用。 就像电视的内部已经被封起来,你不需要知道它的内部是由哪些零件组成、如何工作。你只知道用遥控器...

Java面向对象基础知识点复习

  • 2017年11月08日 08:18
  • 32KB
  • 下载

面向对象设计——系统动态模型设计(1,交互模型)

在这张图中,系统对象静态设计前边我们在分析中已经学习了,这个阶段需要做的就是细化优化。这里我们主要学习系统设计,这篇博客我们学习系统动态建模中交互模型建模。          首先需要我们学习的是...

BJUT面向对象作业

  • 2017年11月05日 15:43
  • 115KB
  • 下载

黑马程序员------面向对象下(抽象类,接口,内部类)

------http://www.itheima.com" target="blank">Java培训、Android培训、iOS培训、.Net培训、期待与您交流! -------   代码块 代码...

面向对象的基本知识

  • 2016年11月23日 00:16
  • 3.82MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:面向对象(随机数)
举报原因:
原因补充:

(最多只允许输入30个字)