Question

pascal文件类型函数

pascal文件类型的函数有哪些？

Answer 1

一、有类型文件的定义
有类型文件中的元素可以是混合型的，并以二进制格式存贮，因此有类型文件（除了字符类型文件，因为它实质上是文本文件）不象文本文件那样可以用编辑软件等进行阅读和处理。
有类型文件的类型说明的格式为：
类型标识符＝File
of
基类型；
其中基类型可以是除了文件类型外的任何类型。例如：
file1=file
of
integer;
file2=file
of
array[1..10]
of
string;
file3=file
of
set
of
char;
file4=file
of
real;
file5=file
of
record;
name:string;
course:array[1..10]
of
real;
sum:real;
end;
等等，其中file2,file3,file5中的数组、集合、记录等类型可以先说明再来定义文件变量。
例如：
var
f1:file1;
f2,f3:file3;
f4:file5;
与前面所有类型说明和变量定义一样，文件类型说明和变量定义也可以合并在一起，例如：
var
f1:file
of
integer;
f2,f3:file
of
set
of
char;
file4=file
of
record;
name:string;
course:array[1..10]
of
real;
sum:real;
end;
Free
Pascal对有类型文件的访问既可以顺序方式也可以用随机方式。
二、有类型文件的建立
有类型文件的建立只能通过程序的方式进行，其操作步骤与文本文件程序方式建立的步骤相仿，不同之处：（1）有类型文件的定义与文本文件的定义不同；（2）有类型文件可以利用seek命令指定指针随机写入。
三、有类型文件的访问
有类型文件访问的操作步骤与文本文件的程序访问操作步骤相仿，区别之处：（1）有类型文件的定义与文本文件的定义不同；（2）有类型文件可以利用seek命令访问文件记录中的任一记录与记录中的任一元素。
对有类型文件的写操作步骤为：
assign(f,str);
rewrite(f);
write(f,var表);
close(f);
对有类型文件的读操作步骤为：
assign(f,str);
reset(f);
read(f,var表);
close(f);
四、例题分析
例11.5
设有一个整数文件f，现要求将其中的偶数乘以2，奇数减1，形成一个偶数文件。
分析：有两种方法，一是另外生成一个偶数文件g，一是将生成的偶数文件仍然保存在原文件f中，下面分别给出这两种方法的程序。
program
exp11_5_1(input,output)；
{
生成一个偶数文件g
}
var
f,g
:
file
of
integer；
x:integer；
begin
assign(f,’input.txt’)；
assign(g,’output.txt’)；
reset(f)；
rewrite(g)；
while
not
eof(f)
do
begin
read(f,x)；
if
odd(x)
then
x:=x-1
else
x:=x+x；
write(g,x)；
end；
close(f)
；close(g)；
end.
program
exp11_5_2(input,output)；
{
将生成的偶数文件仍然保存在原文件f中
}
var
f
:
file
of
integer；
x，i:integer；
begin
assign(f,’input.txt’)；
reset(f)；
i:=1；
{
人为设定一个写指针
}
while
not
eof(f)
do
begin
read(f,x)；
{
系统指针作为读指针
}
if
odd(x)
then
x:=x-1
else
x:=x+x；
seek(f,i)；
{
将写指针定位到目标位置
}
write(f,x)；
i:=i+1；
end；
close(f)；
end.
例11.6
设有两个已经排好序（从小到大）的整数文件t1和t2，请编程将t1和t2合并成一个文件t，使得合并后的文件也是有序的（从小到大）。
program
exp11_6(input,output)；
type
intfile
=
file
of
integer；
var
t1,t2,t:intfile；
procedure
paixu(var
f,g,h:intfile)；
var
m,x,y:integer；
begin
reset(f)
；reset(g)
；rewrite(h)
；
m:=0；
{
m为初始标志
}
while
(not
eof(f)
and
not
eof(g))
do
begin
if
m=0
then
begin
read(f,x)
；read(g,y)
；m:=1；
end；
if
x<y
then
begin
write(h,x)；read(f,x)；
end
else
begin
write(h,y)；read(g,y)；
end；
end；
while
not
eof(f)
do
begin
read(f,x)；write(h,x)；
end；
while
not
eof(g)
do
begin
read(g,y)；write(h,y)；
end；
close(f)；close(g)；close(h)；
end；
begin
{
main
}
assign(t1,’input1.txt’)；
assign(t2,’input2.txt’)；
assign(t,
’output.txt’)；
paixu(t1,t2,t)；
end.
注意：类型文件用写字本或TYPE命令打开看，全是乱码（二进制代码）。