Percent Error

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

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

Author: Ataul Noor Download: PERERROR.8xpNo Download Available Version: 1.0.0 Compatibility: TI-83/84/+/SE File Size: 464 Bytes Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc Rating:

What the community thinks:

(account deleted) 15 Aug 2018 23:00

What is this supposed to do? Just division?

---

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

Trenly 16 Aug 2018 01:57

Looks like there is a bit of optimization:

Input "POWER? ",I
If I=2:Then
Prompt A,B
AB→C
0.5→Z
If fPart(A:.05→Z
abs(prod({A,B}-Z→D
abs(prod({A,B}+Z→E
abs(E-C→F
If abs(D)≥abs(E:abs(D-C→F
Disp ᴇ2(F/C
End
If I=3:Then
Prompt A,B,C
ABC→D
.5→Z
If fPart(A:.05→Z
abs(prod({A,B,C}-Z→E
abs(prod({A,B,C}+Z→F
abs(F-D→G
If abs(E)≥abs(F:abs(D-E→G
Disp ᴇ2(G/D
End
Return

---

Show original code

Input "POWER? ",I
If I=2:Then
Prompt A
Prompt B
A*B→C
If iPart(A)=A:Then
abs((A-0.5)*(B-0.5))→D
abs((A+0.5)*(B+0.5))→E
End
If iPart(A)≠(A):Then
abs((A-0.05)*(B-0.05))→D
abs((A+0.05)*(B+0.05))→E
End
If abs(D)>abs(E) or abs(D)=abs(E):Then
abs(D-C)→F
Disp 100*(F/C)
Stop
End
If abs(D)<abs(E):Then
abs(E-C)→F
Disp 100*(F/C)
Stop
End
End
If I=3:Then
Prompt A,B,C
A*B*C→D
If iPart(A)=A
abs((A-0.5)(B-0.5)(C-0.5))→E
abs((A+0.5)(B+0.5)(C+0.5))→F
End
If iPart(A)≠(A):Then
abs((A-0.05)(B-0.05)(C-0.05))→E
abs((A+0.05)(B+0.05)(C+0.05))→F
End
If abs(E)>abs(F) or abs(E)=abs(F):Then
abs(D-E)→G
Disp 100*(G/D)
End
If abs(E)<abs(F):Then
abs(F-D)→G
Disp 100*(G/D)
End
Stop
End

Last edited on 16 Aug 2018 01:59 by Trenly Show more