您所在位置：主题：谁能帮我file not assigned
lcsyw
[专家分：0] 发布于 2005-11-06 14:36:00
我是一个pascal初学者，我碰到了这样的问题，请各位高手教教我
program sinfile1(input,output,sfile);
var
sfile:file of real;
y:real;
i:integer;
begin
rewrite(sfile);
for i:=q to 360 do
begin
y:=sin(i*3.14159/180);
write(sfile,y);
end;
end.
运行时出现了I/O错误file not assigned(文件变量未赋值），不知如何处理？
program sinfile1(input,output,sfile);
var
sfile:file of real;
y:real;
i:integer;
begin
rewrite(sfile);
for i:=q to 360 do
begin
y:=sin(i*3.14159/180);
write(sfile,y);
end;
end.
运行时出现了I/O错误file not assigned(文件变量未赋值），不知如何处理？
