Pascal文件 *** 作如何进行？？

怎么打不开？需要查看运行的结果（就是4）,要在文件count.out中查找（你不是assign(output,'count.out)rewrite(output)吗？）

在磨轮Pascal屏幕中查看，瞎返信也是可以的。只要 *** 作菜单：文件－打开－选到输出文件所在的文件夹，直接输入count.out，再回车世或即可。

首先要定义文件类型变量

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都是根据变量定义区定义的文此拍郑本变量名来的。

这可以使用assign命答册令建立与多个 文件的联系，再通过reset命令打开文件。下面以打开多个 文本文件为例：

var f1,f2,f3:text

s:string

begin

assign(f1,'abc1.txt')

reset(f1)

assign(f2,'清运宏abc2.txt'悄毕)

reset(f2)

assign(f3,'abc3.txt')

reset(f3)

readln(f1,s)

writeln(s)

....................

close(f1)

close(f2)

close(f3)

end.

---