home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 03 / feige.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-02-03  |  1.0 KB  |  43 lines
  1. { Verhalten des nichtlinearen Wachstums!}
  2.  
  3. PROGRAM feige;
  4.  
  5. CONST
  6.   xres = 640;  { Anzahl Punkte auf X-Achse }
  7.   yres = 200;  { Anzahl Punkte auf Y-Achse }
  8.   tage = 60;
  9.   max  = 1000; { Obergrenze Wachstum }
  10.   r    = 0.2;  { Wachstumsrate }
  11.  
  12. VAR
  13.   n,
  14.   xk, xk_alt: INTEGER;
  15.    x, dtage : REAL;
  16.  
  17. {---------------------------------------------------------}
  18. { Umrechnung in Bildschirmkoordinaten.                    }
  19.  
  20. FUNCTION xkoor (xwert: REAL): INTEGER;
  21.  
  22. BEGIN
  23.   xkoor := yres - Round(xwert * yres / max * 0.7);
  24. END;
  25.  
  26. {---------------------------------------------------------}
  27.  
  28. BEGIN
  29.   ClrScr;
  30.   HiRes;
  31.   dtage := xres / tage;
  32.   x := 1;                        { Startwert eine Seerose }
  33.   xk := xkoor(x);            { Koordinate des Startwertes }
  34.   FOR n := 1 TO tage DO
  35.   BEGIN
  36.     xk_alt := xk;
  37.     x := x + x * r;       { spaeter anfuegen: *(1-x/max); }
  38.     xk := xkoor(x);
  39.     Draw(Round((n-1)*dtage), xk_alt, round(n*dtage), xk, 1)
  40.   END;
  41.   REPEAT UNTIL KeyPressed;       { auf Tastendruck warten }
  42. END.
  43.