TI-84/TI-83/TI-nSpire programs

[South-Titan]

Here is a collection of programs you can stick in to your graphing calculator, as long as it uses TI-Basic as a programming language. Honestly, I don't know any game-programming, so don't ask me. I'm just trying to get some credit for my work, and where better than thehelper with its reputation system?

Area/Circumference of a Circle

Input "Radius:",A
Disp "Area:"
Disp (3.14)A^2

Volume of a Rectangular Prism/Area of a Rectangle

Input "Length:",A
Input "Width:",B
Disp "If 2D, input 1"
Input "Height",C
Disp "Volume/Area:"
Disp LWH

Area of a Triangle

Input "Base",A
Input "Height",B
Disp "Area:"
Disp (1/2)AB

Pythagorean Theorem

Input "A:",A
Input "B:",B
Disp "Side C:"
Disp [square root symbol here, can't display in Code format](A^2+B^2

 

[Renendaru]

It's better to use Output() really... You can force it to be at which point you want. I really prefer a graph interface though...

 

[Myzteryz]

NOTE: All programs listed here by me are copyrighted, 2010-3010. Private use only.

I don't think you can actually copyright Texas Instrument programing. and even if you could, I'm sure someone else already thought of the code for the area of triangle seeing as I have it on my calculator free of charge.

Either way, good stuff but no one really needs this. And by that, I mean if we really needed it, we wouldn't go to this thread to get it.

 

[Slapshot136]

besides that, since when can you copyright stuff for 1000 years?

 

[JerseyFoo]

Your scripts don't have nearly enough complexity to copyright.

I wrote this one years ago in electronics. It converts any alphanumeric number system to any alphanumeric number system.

PROGRAM:ANYBASE
Lbl 1
Input "INPUT BASE: ",A
Input "TARGET BASE: ",B
"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" -> Str0
Lbl 2
Input Str1
If Str1="-1"
    Goto 1
"END" -> Str2
Str1 + Str2 -> Str3
inString(Str3,Str2) - 1 -> L
1 -> N
0 -> D
While N <= L
    sub(Str1,N,1) -> Str2
    inString(Str0,Str2) - 1 -> I
    D+(A^(L-N))*I -> D
    N+1 -> N
End
" " -> Str1
int(ln(D)/ln(B)) -> L
While L >= 0
    If D=0
    Then
        Str1+"0" -> Str1
    Else
       int(D/(B^L)) -> I
       D - (I*(B^L)) -> D
       Str1 + sub(Str0,(I+1),1) -> Str1
    End
    L - 1 -> L
End
Disp Str1
Goto 2

 

[South-Titan]

Okay, the copyright was just part of a sort of drunken joke.

But anyways, I just wanted to stick in a few of my TI Basic programs for the people who actually don't know anything about programming calculators.

 

[Oninuva]

Lol, people who copyright things like this make me feel funny

 

[Siretu]

I usually create this program on any TI calculator I find.

ClrHome
while 1
Input "",A
Disp A + randInt(-2,2)
End

I also did a pong game and a maze game but those codes are HUGE.

 

[the Lumpy]

This is a good one I came up with a while ago:

ClrHome
While 1
Input "",Str4
expr(Str4) -> U

U -> T
1 -> P
While T != int(T)
10P -> P
10T -> T
End

round(T/700,0) -> V
randInt(1,2+V)/P -> W

If randInt(0,1)=1
Then
-W -> W
End

Disp U+W
End