home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / P_PASCAL.ZIP / SAMPLES / SINES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-22  |  235 b   |  16 lines
  1. (*$c+*)
  2. program sines;
  3. var i, j, k : real;
  4. begin
  5.  i := 0.0;
  6.  while i < 10.0 do
  7.   begin
  8.    k := sin(i) + 1.1;
  9.    j := 0.0;
  10.    while j < k do
  11.     begin write('x'); j := j + 0.1 end;
  12.    writeln;
  13.    i := i + 0.35
  14.   end
  15. end.
  16.