实验二 存储管理.doc

《实验二 存储管理.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验二存储管理【实验目的】1)加深对存储管理概念及存储管理系统备部分内容的理解。2)熟悉存储管理中主要数据结构的设计和存储管理分配算法的实现。【实验要求】调试并运行一个存储管理模拟系统。了解该系统的存储管理方案、数据结构、内存分配、回收、合并算法；理解系统在运行过稈中显示的状态和有关参数变化情况的意义。【实验环境】具备Windows或MS-DOS操作系统、带有TurboPascal集成环境的PC机。【实验重点及难点】.重点：理解存储管理的基木概念，存储管理屮主要数据结构的设计和存储管理屮内存分配、冋收、合并等算法的实现。难点：实验程序的问题描述、实

2、现算法、数据结构。【实验内容】%1.阅读实验程序程序代码见【实验例程儿%1.编译实验例稈用TurboPascal编译实验例程。%1.运行程序并对照实验源程序阅读理解实验中输入、输出的意义。【实验例程】PROGRAMMemoryMangement;USEScrt;CONSTtotal=5()00;setaddress=2000;min=100;max=10;TYPEstr=string[10];jobptr=Amat;mat=RECORDname:str;address:longint;length:longint;next:jobptr;back:

3、jobptr;end;freeptr=Afreearea;freearea=RECORDaddress:longint;size:longint;next:freeptr;back:freeptr;end;VARfreep:freeptr;jobp:jobptr;totalfree:Iongint;jobnumber:byte;PROCEDUREinitiation;BEGINnew(freep);freepA.size:=total;freepA.address:=setaddress;freepA.next:=NIL;freepA.back:=

4、NIL;totalfree:=total;jobp:=NIL;jobnumber:=();END;PROCEDUREffallocation(jl:longint;jn:str;VARja:longint);分配VARfp:freeptr;jpjplJp2:jobptr;BEGINja：=-l；iftotalfree

5、ee:=totalfree-jl;new(jp2);jp2A.name:=jn;jp2A.length:=jl;jp2A.address:=address;ja:=jp2A.address;ifjobp=NILthenBEGINjp2A.next:=NIL;jp2A.back:=NIL;jobp:=jp2;ENDelseBEGINjp：=jobp;while(jp<>NIL)and(jp2A.address

6、EGINjp2A.back:=jpl;jplA.next:=jp2;ENDelseBEGINjp2A.back:=jpA.back;ifjpA.back<>NILthenjplA.next:=jp2elsejobp:=jp2;jpA.back:=jp2;END;END;ifsize-jl

7、;END;exit;END;END;PROCEDUREshowyou;VARjp:jobptr;BEGINclrscr;writein;ifjobnumber<=0thenwritelnC'Nojob.1)elseBEGINwriteln(FNamelength(b)address');jp:=jobp;whilejpoNILdoBEGINwriteln(jpA.name:10,jpA」ength:1OjpA.address:10);jp:=jpA.next;END;END;writeln(*THEtotalleftis:totalfree,'b

8、ytes1);END;PROCEDUREffcollection(jn:str);

9、"

10、收VARfp,fpl,fp2:fr