实验三-文件管理.docVIP

实验三 文件管理 【实验目的】 通过调试并运行一个简单的文件系统来模拟文件操作命令的执行、模拟文件管理，使学生对主要文件操作命令的实质和执行过程有比较深入的了解，掌握它们的基本实施方法。 【实验要求】 了解该系统的文件管理方案、数据结构、文件目录的建立与删除；理解系统在运行过程中显示的状态和有关参数变化情况的意义。 具体要求为： （1）了解一个支持n 个用户的文件系统，每个用户可拥有多个文件。 （2）理解二级和多级文件目录管理。 （3）了解文件存取控制保护方式。 （4）了解常见的文件操作命令。 【实验环境】 具备Windows或MS-DOS操作系统、带有Turbo Pascal 集成环境的PC机。 【实验重点及难点】 重点：理解文件管理的基本概念，文件管理中主要数据结构的设计和文件管理中文件、 目录的建立和删除等算法的实现。 难点：实验程序的问题描述、实现算法、数据结构。 【实验内容】 一．阅读实验程序 文件管理模拟程序代码见【实验例程】。 二．编译实验例程 用Turbo Pascal 编译实验例程。 三．运行程序并对照实验源程序阅读理解实验中输入、输出的意义。 【实验例程】 program filesystem; uses crt; const openf:integer=0; type str=string[6]; linku=^datau; {FCB文件控制块} datau=record filename:str; pcode:integer; length:integer; addr:integer; {第一个物理块的地址} next:linku; {下一个FCB地址} end; linkm=^datam; datam=record {用户控制块} username:str; {用户名} link:linku; {指向用户第一个的FCB} end; linka=^dataa; {具体存放文件内容} dataa=record filename:str; pcode:integer; rpointer:integer; wpointer:integer; addr:integer; next:linka; end; var mfd :array[1..5] of linkm; {存放用户信息的用户控制块指针，最多可以存放5个用户} p1,q1:linkm; {用户控制块指针} p2,q2:linku; {文件控制块指针} afd,p3,q3:linka; {具体存放文件内容指针} x,y1:str; i,y,j:integer; f:boolean; code:integer; procedure init; label a,c; begin clrscr; for i:=1 to 10 do writeln; writeln(:25,WELCOME TO OUR FILE SYSTEM !); writeln; writeln; writeln(:27,Please press space bar !); repeat until readkey= ; clrscr; a:write(User number ?); {输入用户数量，要求用户数量5} readln(y1); val(y1,y,code); If code0 then goto a; if y5 then begin writeln(Users too many ! (=5)); goto a; end; writeln(Begin users login:); for i:=1 to y do {建立用户主目录} begin c:write(User name,i,?); readln(x); for j:=1 to i-1 do begin if x=mfd[j]^.username then