eg10-1.pas

来自「关于课件 好多种结构的算法 等等 大家自己看吧」· PAS 代码 · 共 21 行

program eg10_1(input,output,sfile);
var
sfile:file of real;
y:real;
i:integer;
begin
assign(sfile,'eg10-1');
rewrite(sfile);
for i:=1 to 360 do
 begin
  y:=sin(i*3.14159/180);
  write(sfile,y);
 end;
{reset(sfile);}
while not eof(sfile) do
 begin
  read(sfile,y);{
  y:=sin(i*3.14159/180);}
  write(y:8:6);
 end;
end.