CrisPI

You have not uploaded your program! Please edit the page to upload your program.

Author: IndigoWare Download: CRISPI.8xpNo Download Available Version: 1.0 Compatibility: TI-84+ 2.xx MP File Size: 828 Bytes Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc Rating:

Pi (π) is well known for its utility in all things circles (C=2πr, A=πr²). Pi is also known for being an irrational number, a number that goes on forever. This program won't help you memorize this number in its entirety, but it will help you remember the first 126! OBJECTIVE Fill the screen with the first 126 digits of pi, one digit at a time! Mistakes will set you back a little, but you'll also learn the next few digits. Don't give up! CONTROLS Number Keys 0-9: Type a number Enter: Continue after getting a digit wrong; proceed once you've completed all 126 digits Clear: Exit the game. Progress is never saved. TROUBLESHOOTING / RESTRICTIONS This program currently uses the remainder() command, which is available on only operating systems past 2.53 MP. I'll remove this restriction in a future update. If the program still doesn't work, try unarchiving any real variables or clearing a little space on your calculator. MISCELLANEOUS Thanks for checking out this program and reading this through! As a small thank-you gift, store pi to the variable X (π→X) before running CrisPI. You'll get a handy reference for the first 126 digits of pi. LAST WORDS This is my first program, so please feel free to comment on the program itself or on this page about anything I might have missed, programming tips, etc. Thank you! — IndigoWare

What the community thinks:

Great Job

Kydapoot 01 Apr 2016 23:41

This is a great program, it runs without bugs, and it is very well designed. I highly recommend this program.

---

What do you get when you multiply six by nine? Forty-Two.

My Projects

My best work so far

Source code

(account deleted) 09 Oct 2017 15:25

Can some1 give me the source code?

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Source code

Myles_Zadok 09 Oct 2017 16:11

:"Apple π
:DCS6
"000000001F863FFE7FFE66FC0630063006300E300E341C3C1C3C181800000000
CLASSIC
ClrHome
real(X→X
"14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460"→Str1
If X=π
Then
Output(1,1,"3.
Output(1,3,Str1
Pause 
ClrHome
End
Repeat 0
0→S
Output(1,1,"3._
Repeat S=126
Repeat K=45 or K=102 or (abs(iPart(.1K)-8)≤1) and abs(fPart(.1K)-.3)≤.1
getKey→K
End
If K=45:Then
ClrHome
Stop
End
If 3(10-iPart(.1K))+10fPart(.1K)-4+2(K=102)≠expr(sub(Str1,S+1,1:Then
sub("₀₁₂₃₄₅₆₇₈₉",1+expr(sub(Str1,S+1,1)),1
If X≠π²
Ans+sub("₀₁₂₃₄₅₆₇₈₉",1+expr(sub(Str1,S+2,1)),1)+sub("₀₁₂₃₄₅₆₇₈₉",1+expr(sub(Str1,S+3,1)),1
Output(iPart((S+18)/16),remainder(S+2,16)+1,Ans
Pause 
S-6→S
S(S≥0)(X≠­π→S
If X=­π:Then
ClrHome
Output(1,1,"3.
End
Output(iPart((S+18)/16),remainder(S+2,16)+1,"_        "
Else
Output(iPart((S+18)/16),remainder(S+2,16)+1,sub(Str1,S+1,1
S+1→S
If S≠126
Output(iPart((S+18)/16),remainder(S+2,16)+1,"_
End
End
Pause 
If S=126:Then
For(Y,1,8
For(X,1,16
Output(Y,X," "
End
End
Repeat K=105
Output(randInt(1,8),randInt(1,16),sub("•••⁺⁺▫*π      ",randInt(1,14),1
getKey→K
End
End
ClrHome
End