操作系统实验研究一.docVIP

合肥学院 操作系统实验报告 学号： 0913011018 姓名： 秦瑞金 系别: 管理系 专业： 09 信息管理 指导老师： 琚耀 实验成绩： 操作系统实验题一：设计一若干并发进程的进程调度程序 实验目的 在多道程序和多任务系统中，系统内同时处于就绪状态的进程可能有若干个。也就是说能运行的进程数大于处理机个数。为了使系统中的进程能有条不紊地工作，必须选用某种调度策略，选择某一进程占用处理机。 实验要求 用高级语言编写和调试一个进程调度程序，以加深对进程的概念及进程调度算法的理解． 实验内容 ?　　进程调度算法：采用最高优先数优先的调度算法（即把处理机分配给优先数最高的进程）和先来先服务算法。 　　每个进程有一个进程控制块（ PCB）表示。进程控制块可以包含如下信息：进程名、优先数、到达时间、需要运行时间、已用CPU时间、进程状态等等。 　　进程的优先数及需要的运行时间可以事先人为地指定（也可以由随机数产生）。进程的到达时间为进程输入的时间。 　　进程的运行时间以时间片为单位进行计算。 　　每个进程的状态可以是就绪 W（Wait）、运行R（Run）、或完成F（Finish）三种状态之一。 　　就绪进程获得 CPU后都只能运行一个时间片。用已占用CPU时间加1来表示。 　　如果运行一个时间片后，进程的已占用 CPU时间已达到所需要的运行时间，则撤消该进程，如果运行一个时间片后进程的已占用CPU时间还未达所需要的运行时间，也就是进程还需要继续运行，此时应将进程的优先数减1（即降低一级），然后把它插入就绪队列等待CPU。 每进行一次调度程序都打印一次运行进程、就绪队列、以及各个进程的 PCB，以便进行检查。 　　 重复以上过程，直到所要进程都完成为止。 实验算法流程 优先数调度算法用于进程调度时，系统把处理机分配给就绪队列中优先数最大的进程，系统一旦把处理机分配给就绪队列中优先数最大的进程后，该进程便一直执行下去直至完成，若因发生某事件使该进程放弃处理机时，系统方可再将处理机重新分配给另一优先数最大的进程。在轮转调度算法中，系统将所有的就绪进程按先来先服务的原则排成一个队列，每次调度时，把CPU分配给队首进程，并令其执行一个时间片。当执行的时间片用完时，又一个计时器发出时钟中断请求，调度程序便据此信号来停止该进程的执行，并将它送往就绪队列的末尾，然后，再把处理机分配给就绪队列中新的队首进程，同时也让它执行一个时间片。 实验程序清单 Private Type PCB P_Name As String 进程名称 P_CPU As Integer 已使用的时间片数 P_NCPU As Integer 需要的时间片数 P_PRI As Integer 优先数(优先数法)或分配的CPU单位(轮转法) P_State As String 进程状态 End Type Private Const VV_LEFT = 200 Private Const KK_LEFT = 7200 定义全局变量 Dim mItem As ListItem 定义ListItem对象，用于把数据插入ListView控件 Dim PRI As Boolean 判断是否采用优先数法(PRI=True) Dim P_Run As PCB 存放当前运行的进程控制块中的数据 Dim Proc() As PCB 存放模拟的进程 Dim Proc_B() As PCB 备份模拟的进程 Dim N, i As Integer N存放模拟的进程数 Dim TimeChip As Integer 每个CPU单位分配的时间片 Dim Sum As Integer 存放总调度次数 Dim NSum As Integer 存放总时间片数 Dim A, B As Integer 存放随机数 Dim Pause_R As Integer 存放被暂停的Timer Private Function Get_R(ByVal NCPU As Integer, ByVal CPU As Integer) As Integer 计算分配的CPU单位(轮转发) Get_R = Int((NCPU - CPU) / 3) + 1 End Function Private Sub P_Index() 对进程按优先数进行排序，并加入到P_Ready(ListVi