分区管理.docVIP

操作系统实验（三）可变分区存储管理模拟实验 作者 ：顾熙杰准考证号：022502100574 报到号 ：177实验地点：浙工大计算机中心 实验目的 理解操作系统中可变分区管理的算法， 掌握分配和回收算法 掌握空闲分区的合并方法 掌握不同的适应算法 实验内容 建立数据结构建立空闲分区队列根据不同的适应算法建立队列编写分配算法编写回收算法 数据结构 Private Type MEM_tp fenqu_shouzhi As Integer 分区首地址 fenqu_changdu As Integer 分区长度 fenqu_zhuangtai As Integer 分区状态 -1表示不存在，0表示空闲分区，1表示已经分配的分区 fenqu_huodongjincheng As Integer 该分区正在活动的进程代号 End Type 程序流程图 面向对象程序设计由事件驱动，画流程图比较困难。（1）分配新的分区 最先适应 按地址找 最优适应，找最小可以满足的 最坏适应，找最大可以满足的 （2）分区回收 既无上邻又无下邻 既有上邻又有下邻 只有上邻 只有下邻 实验中需要改进的地方 由于没有使用链表，程序结构比较混乱，需要大大改进，提高可阅读性。 程序代码(VB) Option Explicit Private Declare Function ShellExecute Lib Shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 表示内存分区的结构信息类型的变量类型 Private Type MEM_tp fenqu_shouzhi As Integer 分区首地址 fenqu_changdu As Integer 分区长度 fenqu_zhuangtai As Integer 分区状态 -1表示不存在，0表示空闲分区，1表示已经分配的分区 fenqu_huodongjincheng As Integer 该分区正在活动的进程代号 End Type 定义最多640个，总共640K内存数组 Dim MEM(1 To 640) As MEM_tp 表示可以使用的进程代号 Dim jincheng(1 To 640) As Integer 0表示该进程号可以使用 .=1表示该进程号不可以使用 表示分配方法 Dim fenPEI_fangfa As Integer 0=最先分配 1=最优分配 2=最坏分配 Function get_jincheng() As Integer 取可以使用的进程号 Dim i As Integer For i = 1 To 640 If jincheng(i) = 0 Then jincheng(i) = 1 get_jincheng = i Exit Function End If Next get_jincheng = 0 End Function Function get_FENQU() As Integer 取可以使用的为了表示分区的存储空间，模拟c语言的指针 Dim i As Integer For i = 1 To 640 If MEM(i).fenqu_zhuangtai = -1 Then get_FENQU = i Exit Function End If Next get_FENQU = 0 End Function Function get_kong_FENQU(ByVal kj As Integer) As Integer Dim i As Integer Dim MIN_L As Integer Dim MAX_L As Integer