实验二存储管理.docxVIP

实验二存储管理 【实验目的】 加深对存储管理概念及存储管理系统各部分内容的理解。 熟悉存储管理中主要数据结构的设计和存储管理分配算法的实现。 【实验要求】 调试并运行一个存储管理模拟系统。了解该系统的存储管理方案、数据结构、内存 分配、回收、合并算法；理解系统在运行过程中显示的状态和有关参数变化情况的意义。 【实验环境】 具备Windows或MS-DOS操作系统、带有Turbo Pascal集成环境的PC机。 【实验重点及难点】 重点：理解存储管理的棊本概念，存储管理中主耍数据结构的设让和存储管理中内存 分配、回收、合并等算法的实现。 难点：实验程序的问题描述、实现算法、数据结构。 【实验内容】 一?阅读实验程序 程序代码见【实验例程】。 编译实验例程 用Turbo Pascal编译实验例程。 运行程序并对照实验源程序阅读理解实验屮输入、输出的意义。 【实验例程】 PROGRAM McmoryMangcmcnt; USES crt; CONST total=5000;setaddress=2000; min=l()();max=l(); TYPE str=string[10]; jobptr=Amat; mat=RECORD name :str; address :longint; length :longint; next :jobptr; back :jobptr; end; frccptr=Afrccarca; freearea=RECORD address :longint; size :longint; next : freeptr; back :freeptr; end; VAR frccp: frccptr;jobp:jobptr; totalfree:longint;jobnumber:byte; PROCEDURE initiation; BEGIN new(freep); freepA.size:=total; frccpA.addrcss:=sctaddrcss; freepA.next:=NIL; freepA.back:=N IL; totalfree:=total; jobp:=NIL; jobnumbcr:=0; END; PROCEDURE ffallocation (jl:longint;jn:str; VAR ja:longint);分配 VAR fp:freeptr;jpjp 1 Jp2:jobptr; BEGIN ja：=-l; if totalfreejl then exit; ja:=O;fp:=freep; WHILE fpoNIL DO if fpA.sizcjl then fp:=fpA.ncxt else with fpA do BEGIN jobnumber:=jobnumber+1; totalfree:=totalfree-jl; ncw(jp2); jp2A.name:=jn; jp2A.length:=jl; jp2A.address:=address; ja:=jp2A.address; ifjobp=NIL then BEGIN jp2A.next:=NIL; jp2\back:二NIL; jobp:=jp2; END else BEGIN jp:=jobp; whilc(jpNIL) and (jp2A.addrcssjpA.address) do BEGIN jpl：=jP；jP：二jpnext; END; jp2A.next:=jp; ifjp=N!L then BEGIN jp2A.back:=jpl; jpl A.ncxt:=jp2; END else BEGIN jp2A.back:=jpA.back; if jpA.backNIL then jpl A.ncxt:=jp2 else jobp:=jp2; jpA.back:=jp2; END; END; if size-jlmin then BEGIN if nextoNIL then nextA.back:=back; if backoNIL then backA.ncxt:=ncxt else freep:=next; END else BEGIN size:=size-jl; address:=address+jl; END; exit; END; END; PROCEDURE showyou; VAR jp:jobptr; BEGIN clrscr; writein; if jobnumber=0 then writeln(*No job/) else BEGIN writcln( Name lcngth(b) address1); jp:=jobp; while jpoNIL do BE