TI Basic coding help - Cemetech | Forum

» Forum > Calculator Programming > TI-BASIC

»
» View previous topic :: View next topic

claculator
Member (Posts: 122)

TI Basic coding help
12 Jan 2026 02:24:24 pm

I'm making a pi program, but it doesn't work.

Code:




Disp "Picalc","Created by claculator"


ClrHome


"1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989"→Str0


"3."→Str1


Disp Str1


1→C


0→F


Lbl A


getKey→K


If K=102


   0→N


If K=92


   1→N


If K=93


   2→N


If K=94


   3→N


If K=82


   4→N


If K=83


   5→N


If K=84


   6→N


If K=72


   7→N


If K=73


   8→N


If K=74


   9→N


If N=expr(sub(Str0,C,1))


Then


   Disp "Correct"


   Str1+expr(sub(Str0,C,1))→Str1


   C+1→C


   ClrHome


   Goto A


End


If N≠expr(sub(Str0,C,C))


Then


   Disp "Wrong.","The correct digit was",sub(Str0,C,1)


   Menu("Try again?","Yes",A,"No",N)


End


Return


Lbl N


ClrHome


End


Return

Can anyone help me?

mr womp womp
Official Cemetech Cat Manager (Posts: 1851)

12 Jan 2026 03:24:28 pm

Code:

Lbl Y


ClrHome


Disp "3.


1->A


"1415926535897932384->Str1


0->F


Repeat F or A=length(Str1


   Repeat Ans<=9


      Repeat Ans


         getKey


      End


      Ans(102!=Ans)-13int(Ans/13(2>abs(5-abs(5-abs(Ans-83


   End


   If sub(Str1,A,1)=toString(Ans


   Then


      Disp toString(Ans)+" CORRECT


      A+1->A


   Else


      Disp "WRONG.


      Pause "THE CORRECT DIGIT WAS "+sub(Str1,A,1


      1->F


   End


End


If not(F


Pause "YOU WON!


Menu("TRY AGAIN?","YES",Y,"NO",N


Lbl N


ClrHome

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

Reply to topic

»
» View previous topic :: View next topic

Page 1 of 1

» All times are UTC - 5 Hours