Lines
» >
»
» View previous topic :: View next topic  

Do you like it
Yea
 25%  [ 1 ]
Needs Work
 50%  [ 2 ]
Its okay
 25%  [ 1 ]
Total Votes : 4


Code:
Lbl A
Disp "X ONE"
Input A
Disp "Y ONE"
Input B
Disp "X TWO"
Input C
Disp "Y TWO"
Input D
Lbl M
Disp " "
Disp "MENU"
Disp " "
Disp " "
Disp "1. MIDPOINT"
Disp "2. DISTANCE"
Disp "3. FUNCTION AND SLOPE"
Disp "4. NEW COORDS"
Disp "5. QUIT"
Disp "PICK A NUMBER"
Input I
If I=4
Then
Goto A
End
If I=5
Then
Stop
End
If I=1
Then
(0.5(C+A))->P
(0.5(B+D))->Q
Disp "MIDPOINT"
Disp "MIDPOINT X",P
Disp "MIDPOINT Y",Q
Pause
Goto M
End
If I=2
Then
(A-C)->X
(X^^2)->X
(B-D)->Y
(Y^^2)->Y
(X+Y)->Z
sqrt(Z)->Z
Disp "DISTANCE",Z
Pause
Goto M
End
If I=3
Then
(B-D)->S
(A-C)->T
((S/T))->S
Disp " "
Disp "SLOPE IN"
Disp " "
Disp "1. SLOPE INTERCEPT"
Disp "2. POINT SLOPE"
Disp "CHOOSE A NUMBER"
Prompt E
If E=1
Then
((S*A)-B)->H
Disp "SLOPE INTERCEPT (Y=MX+B)"
Disp "M (SLOPE)"
Disp S
Disp "B (Y-INTERCEPT)"
Disp H
Disp " "
End
Pause
Goto M
From what your code looks like, are you using a TI-84 Plus C Silver Edition?
Here is a sample code that follows the same layout as your program that I modified:

Code:
Lbl A
Input "X ONE:",A
Input "Y ONE:",B
Input "X TWO:",C
Input "Y TWO:",D
Lbl M
Menu("MENU","MIDPOINT",1,"DISTANCE",2,"FUNCTION AND SLOPE",3,"NEW COORDS",4,"QUIT",5
Lbl 5
Stop
Lbl 4
Goto A
Lbl 1
.5(C+A->P
.5(B+D->Q
Disp "MIDPOINT"
Disp "MIDPOINT X",P
Disp "MIDPOINT Y",Q
Pause
Goto M
Lbl 2
sqrt((A-C)^^2+(B-D)^^2->Z
Disp "DISTANCE",Z
Pause
Goto M
Lbl 3
(B-D)/(A-C->S
Menu("SLOPE IN","SLOPE INTERCEPT",6,"POINT SLOPE",7
Lbl 6
Disp "SLOPE INTERCEPT (Y=MX+B)
Disp "M (SLOPE)
Disp S
Disp "B (Y-INTERCEPT)
Disp SA-B
Pause
Goto M
Lbl 7
//Code for Point Slope
Pause
Goto M


Instead of displaying separate lines on the homescreen, you can use the command Menu( to offer options to the user.
I made a few optimizations including parentheses in calculations and quotation marks
I also found that you left out the point slope code as well.

Code:
Lbl A
Input "X ONE:",A
Input "Y ONE:",B
Input "X TWO:",C
Input "Y TWO:",D
Lbl M
Menu("MENU","MIDPOINT",1,"DISTANCE",2,"FUNCTION AND SLOPE",3,"NEW COORDS",A,"QUIT",5
Lbl 5
Stop
Lbl 1
.5(C+A->P
.5(B+D->Q
Disp "MIDPOINT", "MIDPOINT X",P,"MIDPOINT Y
Pause Q
Goto M
Lbl 2
sqrt((A-C)^^2+(B-D)^^2->Z
Disp "DISTANCE
Pause Z
Goto M
Lbl 3
(B-D)/(A-C->S
Menu("SLOPE IN","SLOPE INTERCEPT",6,"POINT SLOPE",7
Lbl 6
Disp "SLOPE INTERCEPT (Y=MX+B)","M (SLOPE)",S,"B (Y-INTERCEPT)
Pause SA-B
Goto M
Lbl 7
//Code for Point Slope
Pause
Goto


There we go, a few more optimizations. In there, we have:
:Displaying text with Pause
:Using Disp once for several lines
:Changed one label
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Lines
»
» View previous topic :: View next topic  
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement