面向对象(随机数)

原创 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;

 

人机猜拳之Java面向对象小游戏

人机猜拳小游戏,只要用到的java面向对象的思维模式。本游戏中有游戏玩家和计算机两个参与者。玩家和计算机都有的属性是姓名和得分。共分为4个类。下图是游侠小程序控制台截图: 以下是源代码: ...
  • chenfengbao
  • chenfengbao
  • 2017年02月28日 14:49
  • 1122

面向过程 VS 面向对象

面向过程(Process Oriented)这个词是在面向对象(Object Oriented)出现之后为与之相对而提出的。其实它在以前基本被叫做“结构化编程”。        早期的程序设计,大量...
  • zqixiao_09
  • zqixiao_09
  • 2016年01月20日 14:34
  • 2931

面向对象 —— 类设计(十二)—— 全局变量和成员变量

全局变量和成员变量都提供了一种共享和通信机制: 只不过成员变量的共享和通信仅限于类内部,全局变量则是全局可见; 更为重要的是,类的访问修饰符概念为成员变量的访问和修改施加了更多的限制,也即在面向对象的...
  • lanchunhui
  • lanchunhui
  • 2016年05月27日 11:44
  • 602

有关C++面向对象面试题

下面代码的输出结果是:#include using namespace std;class A{ public: virtual void Fun(int number = 10){ ...
  • qq_23945057
  • qq_23945057
  • 2016年09月14日 20:37
  • 731

架构师之路(4)---详解面向对象

3.5 详解面向对象的编程(OOP) 3.5.1 什么是面向对象     刚接触编程的时候,多数人本能的反映可能是面向过程(OP)的,而不是面向对象(OO)的。这种现象其实是很正常的,改变思维...
  • wanghao72214
  • wanghao72214
  • 2009年03月05日 22:45
  • 10996

面向对象、类、接口- 不错的总结

// 三大特性 封装:隐藏内部是吸纳,仅开发接口。 继承:一个对象的成员被另一个对象所使用。语法上体现为代码的共用。 多态:多种形态。 /* 【类和对象】 */ # 成员: 类成...
  • lhorse003
  • lhorse003
  • 2017年05月04日 14:22
  • 258

SHELL [面向对象设计]

shell调式的时候,用-n读一遍脚本中的命令但不执行,用于检查脚本中的语法错误-v一边执行脚本,一边将执行过的脚本命令打印到标准错误输出-x提供跟踪执行信息,将执行的每一条命令和结果依次打印出来下面...
  • jesseshen
  • jesseshen
  • 2011年07月22日 11:51
  • 1158

面向对象复习总结

基于老师的ppt,自己总结的要点。 重要部分已用颜色标注
  • li201400130091
  • li201400130091
  • 2016年12月07日 21:11
  • 1387

java面向对象面试题(1)

1) 当试图编译并运行下面程序时会出现什么结果()(单选)     class A{          public int getNumber(int a){            ...
  • hello_word2
  • hello_word2
  • 2016年06月29日 14:36
  • 1154

php面向对象简单的概述

面向对象 对象概念是面向对象技术的核心。在显示世界里我们所面对的事情都是对象,如计算机、电视机、自行车等。在面向对象的程序设计中,对象是一个由信息及对信息进行处理的描述所组成的整体,是对现实世界的抽象...
  • L1651430795
  • L1651430795
  • 2016年06月18日 20:43
  • 317
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:面向对象(随机数)
举报原因:
原因补充:

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