integer.pas

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

program p10_1(input,output,sf);
var
 sf:file of integer;
 y:integer;
 i:integer;
begin
 assign(sf,'insfile');
 rewrite(sf);
 for i:=1 to 180 do
  begin
{   y:=sin(i*3.14159/180);}
   y:=2*i;
   write(sf,y);
  end;
 close(sf);
end.