home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCTORY / GEOGRAPY / M5.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.8 KB  |  70 lines
  1. 0  CLS:PRINT
  2. 1   DEF  FNA(X) =  ATN (X /  SQR ( - X * X + 1))
  3. 2   DEF  FNB(X) =  -  FNA(X) + 1.5708
  4. 30   DIM A(3),S(3)
  5. 40  P = 3.14159
  6. 45  C = 0.0174533
  7. 59  CLS
  8. 60  PRINT:PRINT :PRINT :PRINT
  9. 61  PRINT "PARTS OF A TRIANGLE"
  10. 62  PRINT
  11. 63  PRINT "PROBLEM TYPES:": PRINT "1. ASA": PRINT "2. SAS": PRINT "3. AAS": PRINT "4. SSA": PRINT "5. SSS": PRINT "6. END PROGRAM": PRINT
  12. 64  PRINT "ENTER PROBLEM TYPE BY NUMBER";
  13. 70   INPUT X
  14. 80   IF X = 6 THEN 560
  15. 90   IF X = 5 THEN 390
  16. 100   IF X = 4 THEN 300
  17. 110   IF X = 3 THEN 260
  18. 120   IF X = 2 THEN 190
  19. 130   PRINT "ENTER ANGLE, SIDE, ANGLE";
  20. 140   INPUT A(1),S(3),A(2)
  21. 145  A(1) = A(1) * C
  22. 146  A(2) = A(2) * C
  23. 150  A(3) = P - A(1) - A(2)
  24. 160  S(1) = S(3) *  SIN (A(1)) /  SIN (A(3))
  25. 170  S(2) = S(3) *  SIN (A(2)) /  SIN (A(3))
  26. 180   GOTO 440
  27. 190   PRINT "ENTER SIDE, ANGLE, SIDE";
  28. 200   INPUT S(3),A(1),S(2)
  29. 205  A(1) = A(1) * C
  30. 210  S(1) =  SQR (S(3) ^ 2 + S(2) ^ 2 - 2 * S(3) * S(2) *  COS (A(1)))
  31. 220  A(2) =  SIN (A(1)) / S(1) * S(2)
  32. 229   REM  - ARCSIN FUNCTION
  33. 230  A(2) =  FNA(A(2))
  34. 240  A(3) = P - A(1) - A(2)
  35. 250   GOTO 440
  36. 260   PRINT "ENTER ANGLE, ANGLE, SIDE";
  37. 270   INPUT A(3),A(2),S(3)
  38. 275  A(3) = A(3) * C
  39. 276  A(2) = A(2) * C
  40. 280  A(1) = P - A(2) - A(3)
  41. 290   GOTO 160
  42. 300   PRINT "ENTER SIDE, SIDE, ANGLE";
  43. 310   INPUT S(1),S(2),A(1)
  44. 315  A(1) = A(1) * C
  45. 320  T = S(2) *  SIN (A(1))
  46. 330   IF S(1) < T THEN 520
  47. 340  S(3) = S(3) + Y
  48. 350   IF S(1) <  = T THEN 380
  49. 360  Y =  SQR (S(1) ^ 2 - T ^ 2)
  50. 370  S(3) = S(3) + Y
  51. 380   GOTO 220
  52. 390   PRINT "ENTER SIDE, SIDE, SIDE";
  53. 400   INPUT S(1),S(2),S(3)
  54. 410  A(1) = (S(2) ^ 2 + S(3) ^ 2 - S(1) ^ 2) / 2 / S(2) / S(3)
  55. 420  A(1) =  FNB(A(1))
  56. 430   GOTO 220
  57. 440   PRINT 
  58. 450   FOR I = 1 TO 3
  59. 460   IF A(I) < 0 THEN 520
  60. 470   PRINT "SIDE ";I;" = "; INT (S(I) * 1000 + 0.5) / 1000
  61. 480   PRINT "OPPOSITE ANGLE = "; INT (A(I) / C * 1000 + 0.5) / 1000;" DEGREES"
  62. 490   NEXT I
  63. 500   PRINT 
  64. 510   GOTO 60
  65. 520   PRINT 
  66. 530   PRINT "NO SOLUTION"
  67. 540   PRINT 
  68. 550   GOTO 60
  69. 560  RUN "MATH"
  70.