+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (71B) Right Triangle Solver (/thread-7463.html)
(71B) Right Triangle Solver - Eddie W. Shore - 12-23-2016 07:20 PM
Right Triangle Solver
The program RIGHTTRI is a solver for the sides A, B, and C. To solve for the third side, the desired side needs to have a 0 value, while the other two sides have non-zero values. Each time a solution is found, the values of A, B, and C are reset (set to 0).
Program RIGHTTRI
502 Bytes, 12/22/2016
Code:
10 DESTROY A,B,C,Z$
11 ! LOOP
12 DISP “A, B, C, Solve, Exit”
14 DELAY 0, 0
16 Z$ = KEY$
18 IF Z$ = “A” THEN 30
20 IF Z$ = “B” THEN 40
22 IF Z$ = “C” THEN 50
24 IF Z$ = “S” THEN 60
26 IF Z$ = “E” THEN 96
28 GOTO 12
30 INPUT “A = “; A
32 GOTO 12
40 INPUT “B = “; B
42 GOTO 12
50 INPUT “C = “; C
52 GOTO 12
60 IF A=0 AND B AND C THEN 62 ELSE 70
62 S=SQR(C^2-B^2) @ Z$ = “A”
64 GOTO 90
70 IF A AND B=0 AND C THEN 72 ELSE 80
72 S=SQR(C^2-A^2) @ Z$ = “B”
74 GOTO 90
80 IF A AND B AND C=0 THEN 82 ELSE 86
82 S=SQR(A^2+B^2) @ Z$ = “C”
84 GOTO 90
86 DISP “MUST HAVE ONE 0” @ BEEP @ WAIT .5
88 GOTO 10
90 DISP Z$; “ = “; S @ PAUSE
92 GOTO 10
94 DISP “DONE”Notes:
The line of IF A=0 AND B AND C… tests whether A is zero, B and C are non-zero. You can test whether a variable is non-zero by just typing the variable in an IF condition.
The function SQR is the square root function of the HP 71B.
Anything following an exclamation point (!) is a comment.