Sharp PYTHAGORUS - Page 53

45 | Page
A
START
X1 , Y1
X2 , Y2
X1  A , Y1  B
X2  C , Y2  D
C – A  A
D – B B
B
START
a
b
a  A
b  B
SUB
C_______
END
C
START
a
b
c
a  A
b  B
󰄝 D
SU
B
C – 2 * A * B
* COS D  C
SUB
A * A + B * B  C
END
THREE SEPARATE ROUTINES IN ONE LISTING:
0
HLT A, B 
Input A, B
A Solve for C
Print C
Input A, B, D
B Solve for C
Print C
Input A, B, C, D
C Solve for A and B
Solve for C
Print C
1
√ ( A*A + B*B ) => C 
2
PRT C 
3
END

4
HLT A, B, C 
5
A * A + B * B => C 
6
2 * A * B * COS D => D 
7
PRT √ C ( C – D) 
8
END 
9
HLT A, B, C, D 
10
C – A => A, D – B => B 
11
√ (A * A + B * B) => C 
12
PRT C 
13
END 
three routines with
common step:
A * A + B * B => C
Create a subroutine
with the common
statement to save
steps.