eg10-1ou.pas

关于课件 好多种结构的算法 等等 大家自己看吧

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