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:"
"APRESS 1"
"BPRESS 2"
"CPRESS 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\^2B\^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\^2E\^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 (tomcalcs@mythicbeasts.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.
