home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p2_12bs.seq < prev    next >
Text File  |  1990-03-29  |  491b  |  23 lines
  1. \ Comp 462
  2. \ Balraj Sidhu   Set: 14D4
  3. \ Date: March 29, 1990
  4. \ Problem 2.12  -- falling objects
  5.  
  6. : .hv ( h v -- )
  7.         cr
  8.         swap ." Initial height is " . ." feet. " cr
  9.              ." Initial velocity is " . ." feet per second "
  10.         cr ;
  11.  
  12. : distance ( h v -- )
  13.         2 pick * - over dup * 16 * - ;
  14.  
  15. : answer ( t a -- )
  16.         swap ." Height after " . ." seconds is " . ." feet " ;
  17.  
  18. : height ( h v t -- )
  19.         cr -rot 2dup .hv distance answer cr ;
  20.  
  21.  
  22.  
  23.