单个生产者消费者问题.docVIP

（单个生产者消费者问题） 实验介绍 一、实验名称 Single producer consumer problem （单个生产者消费者问题） 二、实验目的 以单个生产者—消费者问题为例，理解进程调度算法。 三、实验内容 生产者向消费者提供产品，它们共享一个有界缓冲区，生产者向其中投放产品，消费者从中取得产品。同时，每个进程都互斥的占用CPU。 假定生产者和消费者是互相等效的，只要缓冲区未满，生产者就可以把产品送入缓冲区，类似的，只要缓冲区未空，消费者便可以从缓冲区中取走产品并消费它。生产者—消费者的同步关系将禁止生产者向已满的缓冲区中放入产品，也禁止消费者从空的缓冲区中获取产品。 四、实验要求 模拟一个生产者，一个消费者，共享一个缓冲区的情形。 五、实验学时及环境 4学时，Turbo C、Visual Basic、Delphi均可。 六、实验思路 1．随机产生每个生产者生产一个产品的时间和每个消费者消费一个产品的时间，并体现来； 2．随着时间的推移，体现生产者生产一个产品的过程和消费者消费一个产品的过程，并统计出生产产品的总数与消费产品的总数； 3．限制缓冲区的容量，比如只能容纳N个产品。当缓冲区已满时，要能够体现出生产者处于等待的情形；当缓冲区为空时，要能够体现出消费者处于等待的情形； 4．当存在多个生产者或消费者进程时，随着产生占用某个CPU时间片的单个进程。 这个实验是使用delphi语言编程 代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, Gauges, jpeg; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; ProgressBar1: TProgressBar; ProgressBar2: TProgressBar; Timer1: TTimer; Timer2: TTimer; Label5: TLabel; Timer3: TTimer; Timer4: TTimer; ProgressBar3: TProgressBar; Timer5: TTimer; Timer6: TTimer; ProgressBar4: TProgressBar; Label6: TLabel; Label7: TLabel; Label8: TLabel; ProgressBar5: TProgressBar; ProgressBar6: TProgressBar; Timer7: TTimer; Timer8: TTimer; Timer9: TTimer; Timer10: TTimer; Timer11: TTimer; Timer12: TTimer; Timer13: TTimer; Timer14: TTimer; Image1: TImage; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure Timer4Timer(Sender: TObject); procedure Timer3Timer(Sender: TObject); procedure Timer5Timer(Sender: TObject); procedure Timer6Timer(Sender: TObject); procedure Timer7Timer(Sender: TObject); procedure Timer8Timer(Sender: TObject); procedure Timer9Timer(Sender: TObject); procedure Timer10Timer(Sender: TObject);