操作系统可变分区存储管理模拟
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
操作系统实验（三）可变分区存储管理模拟实验
作者：顾熙杰
准考证号：4
报到号：177
实验地点：浙工大计算机中心
1)实验目的
理解操作系统中可变分区管理的算法，
掌握分配和回收算法
掌握空闲分区的合并方法
掌握不同的适应算法
2)实验内容
建立数据结构
建立空闲分区队列
根据不同的适应算法建立队列
编写分配算法
编写回收算法
3)数据结构
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
4)程序流程图
面向对象程序设计由事件驱动，画流程图比较困难。
（1）分配新的分区
最先适应按地址找
最优适应，找最小可以满足的
最坏适应，找最大可以满足的
（2）分区回收
既无上邻又无下邻
既有上邻又有下邻
只有上邻
只有下邻
5)实验中需要改进的地方
由于没有使用链表，程序结构比较混乱，需要大大改进，提高可阅读性。
6)程序代码(VB)
Option Explicit
Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lp 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
Dim MIN_P, MAX_P As Integer
'分配新的分区
Select Case fenPEI_fangfa
Case 0 '最先适应按地址找
For i = 1 To 640
If MEM(i).fenqu_zhuangtai = 0 Then
If MEM(i).fenqu_changdu >= kj Then
get_kong_FENQU = i
Exit Function
End If
End If
Next i
Case 1 '最优适应，找最小可以满足的
MIN_L = 10000
For i = 1 To 640
If MEM(i).fenqu_zhuangtai = 0 Then
If MEM(i).fenqu_changdu >= kj Then
If MEM(i).fenqu_changdu < MIN_L Then
MIN_L = MEM(i).fenqu_changdu
MIN_P = i
End If
End If
End If
Next i
If MIN_P = 0 Then
Call MsgBox("内存不足！", vbCritical)
Else
get_kong_FENQU = MIN_P
End If
Exit Function