pascal程序
program sinfile1 (input,output,sfile);
var
sfile:file of real;
y:real;
i:integer;
begin
rewrite(sfile);
for i:=1 to 360 do
begin
y:=sin(i*3.14159/180);
write(sfile,y)
end
end.
怎样用delphi实现,谢谢
...全文
184打赏收藏
简单问题,关于文件操作
pascal程序 program sinfile1 (input,output,sfile); var sfile:file of real; y:real; i:integer; begin rewrite(sfile); for i:=1 to 360 do begin y:=sin(i*3.14159/180); write(sfile,y) end end. 怎样用delphi实现,谢谢
根本都不用改
procedure Test(AFileName: TFileName);
var
sfile:file of real;
y:real;
i:integer;
begin
AssignFile(sfile, AFileName);
rewrite(sfile);
for i:=1 to 360 do
begin
y:=sin(i*3.14159/180);
write(sfile,y)
end;
CloseFile(sfile);
end;
end.