您所在位置：主题：我编写的一个简单COPY程序，大家帮看看哪不对？！
嘉文
[专家分：0] 发布于 2005-01-22 20:18:00
program test (input,output);
type
student = record
num:integer;
name:srting;
age:15..30;
sex:(male,female);
score:real;
end;
workfile = file of student;
var
sfile,rfile,newfile:workfile;
stud:student; i:integer;
begin
assign (sfile,'sfile.dat'); assign (newfile,'newfile.dat');
reset (sfile); rewrite (newfile);
while not eof (sfile) do
begin
read (sfile,stud);
write (newfile,stud)
end;
end.
编译没有错误，但运行的时候显示：error 100 : disk read error.
这是怎么回事啊？我调试好几个程序了，都是这样，还请大家帮忙看看！
type
student = record
num:integer;
name:srting;
age:15..30;
sex:(male,female);
score:real;
end;
workfile = file of student;
var
sfile,rfile,newfile:workfile;
stud:student; i:integer;
begin
assign (sfile,'sfile.dat'); assign (newfile,'newfile.dat');
reset (sfile); rewrite (newfile);
while not eof (sfile) do
begin
read (sfile,stud);
write (newfile,stud)
end;
end.
编译没有错误，但运行的时候显示：error 100 : disk read error.
这是怎么回事啊？我调试好几个程序了，都是这样，还请大家帮忙看看！
