home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p3_18bs.seq < prev    next >
Encoding:
Text File  |  1990-04-07  |  1.6 KB  |  54 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 7, 1990
  4. \ Problem 3.18
  5.  
  6.  
  7. COMMENT:
  8.  
  9. D-Charts.
  10.  
  11. D-Chart for Problem 3.13
  12.  
  13.                 test ( n -- )
  14.                 -------------+
  15.                              |
  16.                         display number
  17.                              |
  18.                    is number greater then 0
  19.                              |
  20.                             / \
  21.                    false  /     \  true
  22.                         /         \
  23.                       /             \
  24.                     /                 \
  25.                   |                     |
  26.               is number = 0          display
  27.                   |                 "Positive"
  28.                  / \                    |
  29.         false  /     \  true            |
  30.              /         \                |
  31.            /             \              |
  32.          |                 |            |
  33.       display           display         |
  34.      "Negative"          "Zero"         |
  35.          |                 |            |
  36.            \             /              |
  37.              \         /                |
  38.                \     /                  |
  39.                  \ /                    |
  40.                   |                     |
  41.                     \                 /
  42.                       \             /
  43.                         \         /
  44.                           \     /
  45.                             \ /
  46.                              |
  47.                           display
  48.                           "Number"
  49.                              |
  50.  
  51.  
  52. COMMENT;
  53.  
  54.