# Chewsterchew/Ti84-Programs

Switch branches/tags
Nothing to show
Fetching contributors…
Cannot retrieve contributors at this time
71 lines (64 sloc) 1.06 KB
 Lbl M ClrHome Menu(" Which Method? ","Find Slope",A,"Find Distance",B,"Find Midpoint",C,"Point Slope Form",D,"Program Info",I,"Quit",Q Lbl A Input "X1 > ",A Input "Y1 > ",B Input "X2 > ",D Input "Y2 > ",E (E-B)/(D-A)→C Disp "","Slope is: "+eval(C) Goto Q Lbl B Input "X1 > ",A Input "Y1 > ",B Input "X2 > ",C Input "Y2 > ",D (C-A)²+(D-B)²→E √(E)→G round(G,0)→F "Distance: "→Str6 If G=F Then Str6+eval(G)→Str6 Else Str6+"√("+eval(E)+")"→Str6 End Disp "",Str6 Goto Q Lbl C Input "X1 > ",A Input "Y1 > ",D Input "X2 > ",B Input "Y2 > ",E (A+B)/2→⌊MDPT(1) (D+E)/2→⌊MDPT(2) Disp "","Midpoint: ("+eval(⌊MDPT(1))+","+eval(⌊MDPT(2))+")" Goto Q Lbl D ClrHome Input "Slope > ",S Input "X-Value > ",A Input "Y-Value > ",B S*­(A)→C B+C→E 0→R 0→V Repeat S=T V+1→V remainder(S,10^V)→T End Disp "" Disp "y="+eval(S)+"x+"+eval(E) Goto Q Lbl I Output(1,1,"Math Utilities" Output(2,1,"Made by: Chewsterchew" Output(3,1,"http://ti84.chew.pw Output(4,1,"Version: 1.2 Output(10,1,"Press Any Key to Continue" Repeat K≠0 getKey→K End Goto M Lbl Q