Pythagoras Theorem
Joseph Strolin 21 Ellen Street Norwalk, CT 06851
Enclosed find a simple little program I wrote for the TRS-80 Pocket Computer. Use it any way you wish. It makes a nice small program with graphics!
10:PRINT "PYTHAGORAS," 20:PRINT "THEOREM" 30:PRINT "BY JOE STROLIN" 40:PRINT " *"
70:PRINT "C=? * *" 80:PRINT " * * B" 90:PRINT " * *" 100:PRINT " * *" 110:PRINT " * *"
120:PRINT "*********" 130:PRINT " A" 140:PRINT "SIDE A=?" 150:INPUT H 160:PRINT "SIDE B=?" 170:INPUT I 180:J= V(H*H+I*I) 190:PRINT " " 200:PRINT "SIDE A="; H 210:PRINT "SIDE B="; I 220:PRINT "SIDE C="; J 230: PRINT " " 240:PRINT " " 250:END
Post a comment