实验二 存储理.docVIP

实验二 存储管理 【实验目的】 加深对存储管理概念及存储管理系统各部分内容的理解。 熟悉存储管理中主要数据结构的设计和存储管理分配算法的实现。 【实验要求】 调试并运行一个存储管理模拟系统。了解该系统的存储管理方案、数据结构、内存分配、回收、合并算法；理解系统在运行过程中显示的状态和有关参数变化情况的意义。 【实验环境】 具备Windows或MS-DOS操作系统、带有Turbo Pascal 集成环境的PC机。 【实验重点及难点】 重点：理解存储管理的基本概念，存储管理中主要数据结构的设计和存储管理中内存 分配、回收、合并等算法的实现。 难点：实验程序的问题描述、实现算法、数据结构。 【实验内容】 一．阅读实验程序 程序代码见【实验例程】。 二．编译实验例程 用Turbo Pascal 编译实验例程。 三．运行程序并对照实验源程序阅读理解实验中输入、输出的意义。 【实验例程】 PROGRAM MemoryMangement; USES crt; CONST total=5000;setaddress=2000; min=100;max=10; TYPE str=string[10]; jobptr=^mat; mat=RECORD name :str; address :longint; length :longint; next :jobptr; back :jobptr; end; freeptr=^freearea; freearea=RECORD address :longint; size :longint; next :freeptr; back :freeptr; end; VAR freep: freeptr;jobp:jobptr; totalfree:longint;jobnumber:byte; PROCEDURE initiation; BEGIN new(freep); freep^.size:=total; freep^.address:=setaddress; freep^.next:=NIL; freep^.back:=NIL; totalfree:=total; jobp:=NIL; jobnumber:=0; END; PROCEDURE ffallocation (jl:longint;jn:str; VAR ja:longint); 分配 VAR fp:freeptr;jp,jp1,jp2:jobptr; BEGIN ja:=-1; if totalfreejl then exit; ja:=0;fp:=freep; WHILE fpNIL DO if fp^.sizejl then fp:=fp^.next else with fp^ do BEGIN jobnumber:=jobnumber+1; totalfree:=totalfree-jl; new(jp2); jp2^.name:=jn; jp2^.length:=jl; jp2^.address:=address; ja:=jp2^.address; if jobp=NIL then BEGIN jp2^.next:=NIL; jp2^.back:=NIL; jobp:=jp2; END else BEGIN jp:=jobp; while(jpNIL) and (jp2^.addressjp^.address) do BEGIN jp1:=jp;jp:=jp^.next; END; jp2^.next:=jp; if jp=NIL