pascal基础assign语法问题

Pascal中的assign语句和read语句的问题~

read是读入操作，而一般的我们有两种读入方式，一种是屏幕输入，另一种是文件输入。
如果没有特别说明，那么程序默认从屏幕输入，如果用了assign，那么在assign到close之间所有的read操作都从选定的文件读入。assign相当于打开一个文件的作用，同时一个assign对应一个close.


其实你的问题是这样的，你想要先文件输入再屏幕输入，然而你已经将输入定向文件了，为了再次从屏幕输入，可以这样改
var n,m:integer;
begin
assign(input,'scholar.in');
reset(input);
readln(m);
close(input);
assign(input,'CON');
reset(input);
readln(n);
close(input);
end.

assign使用于文件变量指向一个实际的文件。
如果你的程序有输入的话，则：
assign(文件变量，实际文件名）；
{程序中如有 read 则 read（文件变量，输入）； }
最后加
close(文件变量）；
或
assign（input，实际文件名）；
assign（output,实际文件名）；
最后加
close（input）；
close（output）；
没有输入
则
assign(文件变量，实际文件名）；
最后加
close(文件变量）；
或
assign（output,实际文件名）；
最后加
close（output）；

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中可以象取程序一样取出文件进行查看。

assign(input,'a.in');表示从a.in这个文件中输入数据reset(input)是初始化，之后就可以从文件中输入了

---

信州区19891559245： pascal基础assign语法问题 - ？
钮霍肺结： assign(f,filename) 用来指定一个文件变量实际上对应文件系统中的哪个文件名.举例:program example; var file1,file2:text; p:integer; begin assign(file1,'a.txt'); assign(file2,'b.txt'); readln(file1,p);{读文件中的值} writeln(file2,p);{输出到文件} readln(p);{读键盘上的值} writeln(p);{输出到屏幕} end.

信州区19891559245： 关于Pascal中的assign用法 - ？
钮霍肺结： 你把input和output改成自己喜欢的名字(如file1和file2) 然后想输入或输出到文件时就写 readln(file1,变量名);{file1是你喜欢的名字} writeln(file2,变量名);{file2是也你喜欢的名字} 要在键盘与屏幕上读写时就写 readln(变量名);{不要写文件...

信州区19891559245： pascal语言里函数assign的作用是什么?详细解释外加实例,求神牛指点啊啊!!!!!!! - ？
钮霍肺结： 用于文件名与文件变量关联.var name: stringf: text; begin ... name:='c:\data.txt'; assign(f, name); reset(f); // used for reading text file 'c:\data.txt'; ...end.

信州区19891559245： pascal高手进 关于assign用法的问题 - ？
钮霍肺结： assign((文件类型,如input或output),(文件名及路径,如'c:\*.*')); 如果是input要用reset(input)将输入文件变量初始化 如果是output要用rewrite(output)将输出文件清空并初始化 你的文件错误是没有输入文件路径,例如readme.in和...

信州区19891559245： pascal六句话解析 - ？
钮霍肺结： assign(input,'floor.in'); 建立标准输入与floor.in的关联通道 assign(output,'floor.out'); 建立标准输出与floor.out的关联通道 reset(input); 以读的方式打开标准输入 rewrite(output); 以重写的方式打开标准输出 close(input); 关闭标准输入与floor.in的关联,恢复成键盘 close(output); 关闭标准输出与floor.out的关联,恢复成CRT

信州区19891559245： pascal怎么打表,文件怎么用?我要详细点的 - ？
钮霍肺结： 1:文件的用法 一般情况下,最简单的是在主程序的最前面加上这样几句 assign(input,'文件名'); reset(input); assign(output,'文件名'); rewrite(output); 程序的最末尾加上:close(input); close(output);2:打表 打表是用于一些输入的范围很小...

信州区19891559245： pascal中图的广度优先遍历程序中的assign()和reset() - ？
钮霍肺结： 1 assign(input,'bfs.in');reset(input)意思是关联名叫 bfs.in的文件,reset(input)是准备读操作,前提是必须有 bfs.in文件,不然会RE的.2 键盘读入要麻烦,noip都用文件操作的.3 广搜层数较多,所以用递归好点 至于'bfs.in'文件的内容,就是本来你用键盘读入的东西(子程序不知道,所以无法确定本程序有什么作用)

信州区19891559245： 在PASCAL中,ASSIGN REWRITE CLOSE是什么意思?急 - ？
钮霍肺结： 这三个词是用来定义文件的,assign(f,str)是将字符串str赋给文件f,其实相当于你的输出输入是从str中得到,列入assign(output,'mark.out');指的是将你要输出的东西,写在mark.out中 rewrite(f);指的是建立一个允许写的磁盘文件,这个f先要由assign进行赋值;如rewrite(output); close(f);是关闭与f相连的磁盘文件,这是必须的一步.

信州区19891559245： PASCAL语言怎样进行文件输入和输出? - ？
钮霍肺结： 首先要定义文件类型变量var input,output:text; //头部定义 assign(input);rewrite(input);//程序开头对输入文件的定义及打开 assign(output);reset(output);//对输出文件的定义及打开中间就是对输入、输出的操作,比如read(input,a)//从input文本中读入到a变量 write(output,b);//将变量b写到文本output中、. 程序最后一定要写上 close(input); close(output); 上述中input、output都是根据变量定义区定义的文本变量名来的.

信州区19891559245： pascal程序中怎样输入输出文件? - ？
钮霍肺结： 一、文件的概念文件是按照其内在的逻辑联系分别组织在一起,构成不同的数据集合.它的名字就是文件名.使用文件有以下几点好处: (1)文件可以永久保存,其中的数据不会因为应用程序的结束或关机而消失. (2)文件中的数据...