home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t9.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  398 b   |  23 lines
  1. program t9;
  2. const d=0.0625;
  3.       s=32;
  4.       h=34;
  5.       c=6.28318;
  6.       lim=50;
  7.  
  8. var x,y:real; i,n:integer;
  9. begin
  10.   writeln('graphic representation of a function');
  11.   writeln('f(x):=exp(-x)*sin(2*pi*x)');
  12.   for i:=0 to lim do begin
  13.     x:=d*i; y:=exp(-x)*sin(c*x);
  14.     n:=round(s*y)+h;
  15.     repeat
  16.       write(' ');
  17.       n:=n-1
  18.     until n=0;
  19.     writeln('*');
  20.   end
  21. end.
  22.  
  23.