随机模拟事件操作系统实验delphi - 图文

随机事件模拟

一、实验名称

Simulation of random occurrence

（随机事件模拟） 二、实验目的

以银行业务处理为例，理解随机事件的发生、处理过程及处理的一般原则，为处理操作系统中的随机事件做准备。

三、实验内容

模拟银行的业务处理过程。假设银行有三个窗口，每天8点开门，12点关门。银行业务主要包括

两种：存钱和取钱，每件业务的处理时间为3-5分钟。

六、实验思路

1．如果程序开始运行时产生的随机时间在8-12点之间，则运行该程序，否则提示

银行已关门；

2．程序开始运行时，随机产生当时银行存在的人数，及三个窗口的排列情况，并按其先后顺序排序1，2，3……；

3．随机产生每个窗口正在办理业务的情况，包括存钱和取钱，及其每个窗口正在办理业务所剩余的时间，并表示出来；

4．程序运行中随机产生每个时刻进来的人数，并进行排列； 5．假如第一个人处理完业务，则队列依次前移； 6．假如到了12点，系统提示银行停止办理业务。

本程序运用delphi软件运行 运行程序如下：

第一个界面的代码如下： unit Unit1;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls; type

TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Button1: TButton; Image1: TImage; Timer1: TTimer;

procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private

{ Private declarations }

public

{ Public declarations } end; var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin Randomize; i := random(20);

edit1.Text:=inttostr(i); if edit1.Text<'12' then Form2.show

ELSE

messagedlg('对不起，银行已关门',mtInformation,[mbOk],0); end;

procedure TForm1.Timer1Timer(Sender: TObject); begin

label1.Font.Color:=rgb(random(255),random(255),random(255)); end; end.

第二个界面的代码如下： unit Unit2;

interface