home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 80 / basic / math / pythag.80 < prev    next >
Encoding:
Text File  |  2001-07-01  |  806 b   |  30 lines
  1. Pythagorean theoreme
  2. --------------------------------------------------
  3. Version: 1.5, 980214
  4. Creator: Daniel Bergman.
  5. Description: The program calculates the unknown side in a right-angled triangle.
  6.              The calculator will ask for lengths for A, B and C. A & B are the catheti,
  7.              C is the hypotenuse. Input 0 as value for the unknown side.
  8. Comments: "\/" is the square root.
  9. Known bugs: None.
  10. Size: 81 bytes.
  11.  
  12. For more games and programs, please visit http://ti80.burtrask.net.
  13.  
  14. PROGRAM:PYTHAG
  15. INPUT"A?",A
  16. INPUT"B?",B
  17. IF (A)(B
  18. GOTO 0
  19. INPUT"C?",C
  20. IF A
  21. DISP \/(C^2-A^2
  22. IF B
  23. DISP \/(C^2-B^2
  24. STOP
  25. LBL 0
  26. \/(A^2-B^2
  27.  
  28. --------------------------------------------------------------------
  29. Copyright (C) 1998 by Daniel Bergman & Mattias MorΘn
  30. http://ti80.burtrask.net