home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / l4p060.seq < prev    next >
Encoding:
Text File  |  1990-04-08  |  1.1 KB  |  36 lines
  1. \ Lesson 4 Part 6  ( F-PC 3.5 Tutorial by Jack Brown )
  2.  
  3.  
  4. \ Examples:
  5.  24  CONSTANT  HOURS/DAY       \ Hours per day.
  6.   7  CONSTANT  DAYS/WEEK       \ Days per week.
  7.  52  CONSTANT  WEEKS/YEAR      \ Weeks per year.
  8.  12  CONSTANT  MONTHS/YEAR     \ Months per year.
  9.  
  10. : HOURS/WEEK  ( -- hours )  HOURS/DAY  DAYS/WEEK *  ;
  11. : HOURS/YEAR  ( -- hours )  HOURS/WEEK  WEEKS/YEAR * ;
  12.  
  13.  
  14. \ Here is an example of using */ in this way to multiply  by pi
  15.  
  16.  31416 CONSTANT PI
  17. : *PI   ( n -- n*pi )    PI 10000 */ ;
  18. : CIRC  ( r -- circ )    2 * *PI     ;
  19. : AREA  ( r    area )    DUP * *PI   ;
  20.  
  21. \ Pythagorean Triples.
  22.   VARIABLE A    VARIABLE B      VARIABLE C      VARIABLE N
  23.   VARIABLE AA   VARIABLE BB     VARIABLE CC
  24. : .ABC  ( -- )
  25.         CR A @ 12 .R  B @ 12 .R  C @ 12 .R ;
  26. : TRIPLES ( -- )
  27.          25 1 DO   I A !  I DUP *  AA !
  28.                25 1 DO  I B ! I DUP *  BB !
  29.                      38 1 DO I C ! I DUP *  CC !
  30.                              AA @ BB @ + CC @ =
  31.                              IF .ABC THEN
  32.                     LOOP  LOOP
  33.   KEY?  ?LEAVE   ( any key escape )  LOOP ;
  34.  
  35. ( Please move to Lesson 4 Part 7 )
  36.