Program name: Pythagorean Theorem
(v. 1.0)
|
|
CTF file name:
|
pythag.ctf
|
Author:
|
Clifford Barnes
|
Date:
|
April 1999
|
Models:
|
9750, 9850, 9950
|
Description:
This program solves for A, B, and C in the formula A^2+B^2=C^2
(This program is good for Algebra and Geometry students.)
|
Program source code:
Program "PYTHAG"
Lbl 1: "A\^2+B\^2=C\^2" ; \^2 represents the squared symbol
"TO SOLVE FOR:"
"A-PRESS 1"
"B-PRESS 2"
"C-PRESS 3": ? -> A
Goto 6
Lbl 2: If A=2
Then Goto 7
Else Goto 3
Lbl 3: If A=3: Then Goto 8
Else Goto 1
Lbl 6: If A=1: Then Goto 9
Else Goto 2
Lbl 9: ClrText
"A\^2+B\^2=C\^2"
"B=" ?-> B
"C=" ?-> C
(C\^2-B\^2)->D
\sqrt D -> D ; \sqrt means the square root button on the calculator.
ClrText
"A=": Locate 4, 1, D
Stop
Lbl 7: ClrText
"A\^2+B\^2=C\^2"
"A=" ?-> E
"C=" ?-> F
(F\^2-E\^2) ->G
\sqrt G -> G
ClrText
"B=": Locate 4, 1, G
Stop
Lbl 8: ClrText
"A\^2+B\^2=C\^2"
"A=" ?-> H
"B=" ?-> I
(H^2+I^2)-> J
\sqrt J -> J
ClrText
"C=": Locate 4, 1, J
Stop
|
This page was created by Tom Lynn (tom-calcs@mythic-beasts.com).
This page last updated: Friday, 30 April, 1999
Written in notepad and compiled with
WTA,
for clean, consistent HTML.
Part of the Casio Graphical Calculator Encyclopaedia.
|