free pascal 创建的文件名如何引用变量? 例如:我要assign一个text,引用变量i...
Assign是文本文件用的,文本文件又称为正文文件或行文文件,可以直接阅读,是人机通信的基本数据形式之一。文本文件的内容由ASCII字符集中的字符组成,因此文本文件也称ASCII码文件。文本文件具体是由一系列行组成,每一行可以包括0个或多个字符型成分,并以行结束符结尾。文本文件可用文字编辑程序(如Free Pascal的编辑窗口中或记事本中)直接建立、阅读和修改, 也可以由Pascal程序在运行过程中建立。 一、文本文件的定义
文本文件的类型为text,它是由ASCII字符组成的,是Pascal提供的标准文件之一。标准文件text已由Pascal说明如下:type text=file of char;因此,同标准类型integer、real等一样可以直接用于变量说明之中,无需再由用户说明。 例如:
var f1,f2:text;
这里定义了两个文本文件变量f1和f2。二、文本文件的建立
文本文件的建立有两种方法:一是直接用Free Pascal的Edit建立原始数据文件;二是用程序的方式建立中间数据或结果数据文件。例如将下表中的数据存入名为A.dat的文件中。
3 4
29 30 50 60
80 90 70 75
60 50 70 45
操作步骤:进入Free Pascal的编辑状态;输入数据;存盘,文件名取A.dat。
此时,已将数据存入文本文件A.dat中。文本文件也可用记事本等文本编辑器在windows下建立。
如果用程序的方式建立文件,操作步骤为:
1、定义文本文件变量;
2、把一外部文件名赋于文本文件变量,使该文本文件与相应外部文件相关联;
命令格式:assign(f,name)
f为定义的文本文件变量,name为实际文件文件名
如:assign(f1,'filein.in') {相对路径}
或:assign(f1,'d:\pas\fileout.out') {绝对路径}
这样在程序中对文本文件变量f1的操作,也就是对外部实际文件'filein.in'或'fileout.out'的操作。上例中文件'filein.in'是存贮在当前目录中,而文件'fileout.out'则是存贮在d:\pas\子目录中。
3、打开文本文件,写准备;
命令格式:rewrite(f)
功能:创建并打开新文件准备写,若已有同名文件则删除再创建。
4、对文件进行写操作;
命令格式:write(f,)或:writeln(f,)
功能:将项目内容写入文件f中
5、文件操作完毕后,关闭文件。
命令格式:close(f)例11.1 从键盘输入下列数据,然后用程序写入名为B.dat的文件中。3 4
29 30 50 60
80 90 70 75
60 50 70 45program exp11_1;
var i,j,n,m,x:integer;
f:text;
begin
write('n,m=');
readln(n,m);
assign(f,'b.dat');
rewrite(f);
writeln(f,n,' ',m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(x);
write(f,x,' ');
end;
readln;writeln(f);
end;
close(f);
end.
三、读取文本文件
文本文件内容读取操作步骤:
1、定义文本文件变量;
2、用assign(f,name)命令,将内部文件f与实际文件name联系起来;
3、打开文本文件,读准备;
命令格式:reset(f)
功能:打开一个已经存在的磁盘文件,该文件只能读,指向文件元素的指针指向第一个元素。4、对文件进行读操作;
命令格式:read(f,) 或readln(f,)
功能:读文件f中指针指向的数据于变量中。
5、文件操作完毕,用close(f)命令关闭文件。
例11.2 读出例1生成的文本文件B.dat中的内容,并输出到屏幕。program exp11_2;var i,j,n,m,x:integer;f:text;beginassign(f,'b.dat');reset(f);read(f,n,m);writeln(n,' ',m);for i:=1 to n dobeginfor j:=1 to m dobeginread(f,x);write(x,' ');end;writeln;end;close(f);readlnend.由于文本文件是以ASCII码的方式存储,故查看文本文件的内容是极为方便,在windows状态可使用记事本等软件进行查看,在Free Pascal中可以象取程序一样取出文件进行查看。
输入和程序放在一个文件夹啊少年。。。
还有reset(input,'lfl.text');比较好
可以直接读不用加那个d
实在不行加qq我教你...
也可以自己定义var 变量名:text;
用法
assign(text变量名,'文件路径');//关联text变量名和文件路径
reset(text变量名);//输入文件初始化
rewrite(text变量名);//输出文件初始化
close(text变量名);//关闭输入/输出文件
assign(input,'*.*');reset(input); //输入文件
assign(output,'*.*');rewrite(output); //输出文件
*.*为输入/出文件名
例如
assign(input,'1.in');reset(input);
assign(output,'1.out');rewrite(output);
...
close(input);close(output);//关闭输入/出文件
var t: text;
...
assign(t, ''c:\text1.txt);
rewrite(t); // create text file
writeln(t, ''abcd); // write line to text file t;
writeln(t, '1234');
close(t);
...
绪底赛福: 创建一个txt文件,改名为'文件名.in' 在里面写入输入数据,保存(保存在pascal所在文件夹) 然后在程序开头begin后写 assign(input,'文件名.in'); reset(input); assign(output,'文件名.out'); rewrite(output); 程序结尾end.以前写 close(input); close(output); 运行以后,就可以在pascal所在文件夹内找到文件 '文件名.out' ,里面是输出数据. 注意:如果程序中有halt,记得在halt后也加 close(input); close(output);
怀柔区19422187662: Free Pascal 输入文件应该保存在哪里??? - ?
绪底赛福: 程序保存的文件夹 比如你文件(*.pas)保存在D:/A 输入和输出文件就保存在D:/A
怀柔区19422187662: free pascal编写后的程序用什么软件打开 - ?
绪底赛福: 1、源程序用Free Pascal打开 也可以用记事本打开.2、可执行文件直接双击运行3、其实你可以吧.pas的文件直接拖入pascal程序的图标、它会直接帮你打开4、.o、.bak打不开的,放弃吧.其实就是.pas或.exe有用.
怀柔区19422187662: Free Pascal 文件输入输出 怎样创建输入文件 - ?
绪底赛福: 关联命令 assign(文件变量,实际文件名); 如:assign(f1,'c:\files\file1.in'); rewrite(f1); 创建并打开该文件准备写,若已有同名文件则删除再创建 append(f1) 打开已存在的文件并追加(即文件中的原有信息不丢失).write(f1,写入的内容); ...
怀柔区19422187662: pascal保存的文件保存在哪里 - ?
绪底赛福: 看一下Free Pascal 你打开c盘看看里面有没有一个FPC或者pp的文件夹,打开2.0.4(有可能是别的版本号)->bin->i386-win32 应该就在这里 如果没有此文件夹,那么你就右键Free Pascal那个图标,看看他的目标在哪,去掉最后的fp.exe就是你的freepascal存放根目录,一般你按F2都会保存在那里
怀柔区19422187662: free pascal (2.0.4) 中关于新建 txt 文件进行保存实例及解说 - ?
绪底赛福: begin assign(input,'d:\1.txt'); (d:\1.txt与input关联) reread(input); (做input读的准备) assign(output,'d:\2.txt'); (d:\2.txt与output关联) rewrite(output); (做output写的准备)............(主程序) close(input);close(output); (关闭input、output) end.
怀柔区19422187662: free pascal 创建的文件名如何引用变量? 例如:我要assign一个text,引用变量i... - ?
绪底赛福: var t: text;...assign(t, ''c:\text1.txt); rewrite(t); // create text file writeln(t, ''abcd); // write line to text file t; writeln(t, '1234'); close(t);...
怀柔区19422187662: free Pascal怎样保存 - ?
绪底赛福: 点击左上角的“file”然后再下面的菜单中选“save”或“save as” “save”是保存,是在已有文件的情况下,“save as”是属于新建文件的情况.提醒一点,当你按ctrl+F9时,pascal会自动提示你保存.(保存地址格式:硬盘(C,D,E)+:\+文件名)
怀柔区19422187662: Free Pascal的一个程序怎样保存在U盘中?
绪底赛福: 找到你的PASCAL安装文件夹,打开,在子文件夹bin的i386-win32里找到你需要的文件(一般是记事本类型),拷贝就行了
怀柔区19422187662: free pascal 文件怎么转化成exe文件 - ?
绪底赛福: 只要在在编译器里成功编译一次 EXE就自动在当前目录生成好了 目标程序名和源文件名相同