home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / fr / anado20 / cos.pas < prev    next >
Pascal/Delphi Source File  |  1995-01-04  |  324b  |  16 lines
  1. Program G_Chaos;
  2.  
  3.    Var 
  4.       Fichier:Text;
  5.       I:Word;
  6.  
  7. Begin
  8.     Assign(Fichier,'COS.CHS');
  9.     Rewrite(Fichier);
  10.     For I:=1 to 500 do
  11.       (*  Writeln(Fichier,(Cos(I)+2*Sin(3*I))/3);                            { Onde pΘriodique }  *)
  12.         Writeln(Fichier,(Cos(0.1*I)));
  13.     Close(Fichier);
  14. end.
  15.  
  16.