pascal复制文件

program copyfile

var

a,b:file of boolean

t:boolean

begin

assign(a,'./pascal/file1.exe')reset(a)

assign(b,'./file1.exe')rewrite(b)

repeat

read(a,t)

write(b,t)

until eof(a)

close(a)close(b)

end.

===========================================

要在桌面执行,文态巧件不改闭闭核裂要太大

应将生成的exe文件，input.txt放入同一个文件夹（什么文件夹都可以）. 生成的exe文件一般可以在Pascal编乱巧译器（如Turbo Pascal，Free Pascal）的运行目录里和陪姿找到唤绝. input.txt可以自己写.

procedure c(path1,path2:string)

var i:qword

inf,outf:file of char

c:char

begin

assign(inf,path1)

assign(outf,path2)

reset(inf)

rewrite(outf)

i:=0

while i<filesize(inf) do

begin

read(inf,c)

write(outf,c)

i:=i+1

end

close(inf)

close(outf)

end

这个过键指程能把path1的文件复制稿碰配为path2，至于定量复制就循环吧吵好

---