User:Alphabetagamma

Hello, all...

This is my lonely little user page. I think I'll fill it up with programs for the TI 83+ SE...

I ACCEPT NO LIABILITY FOR ANY ADVERSE OCCURRENCES THAT COME FROM THIS PAGE, DIRECTLY OR INDIRECTLY, WHATSOEVER!




Notes: I use a ## for the "not equal to" symbol. I use CURT(X) for the cube root of X. I use SQRT(X) for the square root of X. Some of these programs refer to a "prgmALLPREFD". This is just a program that sets the calculator to my prefered settings. Don't worry about it.


CONVERT, the unit conversion program

Author: Lucas Brown of Poway, California. 

:Menu("CHOOSE SOMETHING","TO METRIC",1,"TO AMERICAN",2,"QUIT",3)
:Lbl 1
:Input A
:Goto 4
:Lbl 2
:Goto 5
:Lbl 3
:prgmALLPREFD
:Lbl 4
:Menu("AMERICAN>METRIC","INCHES>CM",A,"MILES>KM",B,"FEET>METERS",C,"°F>°C",D,"OUNCES>GRAMS", E,"POUNDS>KG",F,"VOLUME",G)
:Lbl A
:Disp A*2.54
:Stop
:Lbl B
:Disp A*254*6336/(106
:Stop
:Lbl C
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:

The Cubic Formula

Author: Lucas Brown of Poway, California. 

PROGRAM:CUBEFORM

:ClrHome
:Disp "AX^3+BX^2+CX+D=0"
:Prompt A
:Prompt B
:Prompt C
:Prompt D
:D/A==>D
:C/A==>C
:B/A==>B
:1==>A
:(BC/6-B^3/27-D/2)==>E
:(CURT(E+SQRT(E^2+(C/3-B^2/9)^3))+CURT(E-SQRT(E^2+(C/3-B^2/81)^3))-B/3)==>F
:ClrHome
:Disp "ONE SOLUTION IS:",F

FACTOR

Author: Lucas Brown of Poway, California. 

PROGRAM:FACTOR

:ClrHome
:Input A
:If A>10^11:Disp "ERR: NUMBER TOO":Disp "LARGE.RTRNS WILL":Disp "BE ERRONEOUS.":Stop
:Disp A
:DelVar B
:Lbl C
:B+1==>B
:If B>SQRT(A)
:Then
:0==>B
:Disp "THAT'S ALL":Stop
:End
:If (A/B)=int(A/B)
:Then
:Disp "":Disp B,(A/B):Pause:Goto C
:Else
:Goto C
:End

PRIMEFAC, the prime factorization program

Author: ? of ?, California 

:ClrHome
:DelVar L1
:Input A
:2→B
:1→C
:While A>1
:Output(2,1,B)
:If A/B=int(A/B)
:Then
:B→L1(C)
:C+1→C
:A/B→A
:Else
:B+1→B
:End
:If B-1>SQRT(A)
:Then
:A→L1(C)
:Stop
:End
:End

The Quadratic formula

Author: Lucas Brown of Poway, California. 

:PROGRAM:QUADFORM
:
:ClrHome
:Disp "AX2+BX+C=0
:Prompt A
:Prompt B
:Prompt C
:C/A→C
:B/A→B
:1→A
:-B+SQRT(B2-4AC)/(2A)→D
:-B-SQRT(B2-4AC)/(2A)→E
:If D=E
:Then
:Disp "DOUBLE ROOT AT",D
:Else
:Disp "ROOTS:",D,E
:End

A version of the game "Snake"

Author: Lucas Brown of Poway, California.

You are the head of the snake. Eat the dot that appears somewhere onscreen. Avoid yourself, the score, and the walls. 

PROGRAM:SNAKE

:Full
:RectGC
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZDecimal
:ClrDraw
:Line(-4.7,3.1,4.7,3.1)
:Line(4.7,3.1,4.7,-3.1)
:Line(4.7,-3.1,-4.7,-3.1)
:Line(-4.7,-3.1,-4.7,3.1)
:26==>L
:0==>S
:5==>X
:5==>Y
:Lbl SE
:randInt(5,55)==>A
:randInt(5,90)==>B
:If pxl-Test(A,B)=1:Goto SE
:Pxl-On(A,B)
:Lbl ST
:Pxl-On(X,Y)
:S+1==>S
:0==>K
:getKey==>K
:If K##0:K==>L
:If L=24:Y-1==>Y
:If L=25:X-1==>X
:If L=26:Y+1==>Y
:If L=34:X+1==>X
:Text(55,2,S)
:If X=A and Y=B
:Then
:S+int(100*(S^(1/3)))==>S
:Goto SE
:End
:If pxl-Test(X,Y)=1:Goto ED
:Goto ST
:Lbl ED
:Disp "GAME OVER",S
:Pause
:prgmALLPREFD

A maze game

Author: Lucas Brown of Poway, California.

You are the blinking dot that starts out in the middle of the screen. Control with the arrow keys. Avoid the walls. Avoid the score. Get to the top or the left walls. 

PROGRAM:MAZE

:Full
:RectGC
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZDecimal
:ClrDraw
:Line(-4.7,3.1,4.7,3.1)
:Line(4.7,3.1,4.7,-3.1)
:Line(4.7,-3.1,-4.7,-3.1)
:Line(-4.7,-3.1,-4.7,3.1)
:0==>S
:31==>x
:47==>Y
:Lbl SE
:S+1==>S
:randInt(11,53)==>A
:randInt(11,85)==>B
:If A=X or B=Y:Goto SE
:randInt(0,1)==>C
:If C=0
:Then
:Pxl-On(A-5,B):Pxl-On(A-4,B):Pxl-On(A-3,B):Pxl-On(A-2,B):Pxl-On(A-1,B):Pxl-On(A,B)
:Pxl-On(A+1,B):Pxl-On(A+2,B):Pxl-On(A+3,B):Pxl-On(A+4,B):Pxl-On(A+5,B)
:End
:If C=1
:Then
:Pxl-On(A,B-5):Pxl-On(A,B-4):Pxl-On(A,B-3):Pxl-On(A,B-2):Pxl-On(A,B-1):Pxl-On(A,B)
:Pxl-On(A,B+1):Pxl-On(A,B+2):Pxl-On(A,B+3):Pxl-On(A,B+4):Pxl-On(A,B+5)
:End
:If S=100
:Then
:0==>s
:Goto ST
:End
:Goto SE
:0==>T
:Lbl ST
:Pxl-On(X,Y)
:S+1==>S
:Repeat K
:T+1==>T
:If T<35:Pxl-On(X,Y)
:If T>34:Pxl-Off(X,Y)
:If T=40:0==>T
:getKey==>K
:End
:K==>L:Pxl-Off(X,Y)
:If L=24:Y-1==>Y
:If L=25:X-1==>X
:If L=26:Y+1==>Y
:If L=34:X+1==>X
:Text(55,2,S)
:If X=(0 or 61) or Y=(0 or 93):Goto EE
:If pxl-Test(X,Y)=1:Goto ED
:Goto ST
:Lbl ED
:Disp "GAME OVER",S
:Pause
:prgmALLPREFD
:Lbl EE
:Disp "YOU WON!",S
:Pause
:prgmALLPREFD

Content Disclaimer

Informasi ini disarikan dari Wikipedia dan disajikan kembali untuk tujuan edukasi. Konten tersedia di bawah lisensi CC BY-SA 3.0. Kami tidak bertanggung jawab atas ketidakakuratan data yang bersumber dari kontribusi publik tersebut.

  1. The information displayed on this website is sourced in part or in whole from Wikipedia and has been adapted for the purpose of restating it. We strive to provide accurate and relevant information, however:
  2. There is no guarantee of absolute accuracy. Wikipedia is an open, collaborative project that can be edited by anyone, so information is subject to change.
  3. It is not intended to constitute professional advice. The content displayed is for informational and educational purposes only. For important decisions (e.g., medical, legal, or financial), please consult a professional.
  4. Content copyright. Wikipedia is licensed under the Creative Commons Attribution-ShareAlike License (CC BY-SA). This means that content may be reused with appropriate attribution and shared under a similar license.
  5. Responsible use. Any risk arising from the use of information from this website is entirely the responsibility of the user.