awesome program
ClrHome
Input"X=?",X
X*2→ X
X/2→ X
If x=1:then
disp 1
end
if x =2:then
disp 2
end
...
if x=9e99999999999999999999999
then
disp 9e99999999999999999999999
end
stopawesome program
Forum
» General Discussion / Humor & Jokes
» awesome program
Summary:
I thought this one up a while ago. I laughed the hardest I have for a long time.
Did you write that program a while ago? THAT, is a special kind of spastic! Agreed, it is hilarious!
yeah. my sister and I laughed so hard over it
What's so funny? the fact that it is pointless?
that and the most inefficient program ever in ti basic history
ClrHome
Prompt x
Disp xThat simple.
I don't think they were trying to actually make a program that worked. They were just making fun of how sometimes beginers would do the most outlandish things to make a relatively simple action. (Nothing against beginners of coarse)
not to be insulting, but it's spelled "course" not "coarse"
Also, It's interesting you mention that. I was looking through one of the programs I made when I was first starting to learn. I used the y= variables instead of the line function.
Oh blasted spellcheck. I never bother to double check it.
Even THAT program is hilarious because of how pointless it is!
I laughed because it reminds me of my first tic-tac-toe program in TI-BASIC. It had 27 If's to display the board after each turn:
if( | | )
Disp " | |"
else if( | |X)
Disp " | |X"
else if( | |O)
Disp " | |O"
…and so on, until O|O|O
(Excuse the obviously not actual TI-BASIC code)
you can do that whit a simple sub(
:D
Is "whit" an alternative spelling for "with"? I can't remember how many times I've corrected that typo.
Enjoy
I know there's another one on UTI somewhere, but I can't find it…
Seriously???
Prgm:Pythagor
:Prompt A
:5→A
:√(5^2+5^2)
:If √(5^2+5^2)>0
:Disp A
:End
:If A=0
:Disp B
:End
:If A<0
:Disp C
:End
:Goto TI-83+
:ReturnLet me optimize this…
:5Wow. That is the ultimate optimization ever.
EDIT: Actually, the program errors, so…
:+
Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me
Try looking through all these. My favorites are "discrimination" (they meant "discriminant", I hope…) and the grayscale quadratic solver.
Is it possible to get a discriminant program in 221 bytes?
:Prompt A,B,C
:B²-4ACUm…28 bytes.
People would download the program just to see the code.
Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me
I once wrote a program to give the answer 42 to 5*8 and 8*5 but work other wise for basic math. I wrote it on a calculator at staples and punched in 5*8 and left it run. lol.
LOL: My friend who is new to programming, he was shading the top half of the screen, and he had 3 errors: First he was in ZStandard, so its confusing, you have to add like .25 each time… And he made lines from -10 to 10, instead of just horizontal, AND his code was like this:
:Line(-10,-10,10,-10
:Line(-10,-9.75,10,-9.75
:Line(-10,-9.5,10,-9.5
And so on...My Version:
:For(X,0,10,.5
:Horizontal X
:Endmy version:
seq(.5x,x,0,10
horizontal ans
:)
edit: wait, that doesnt work >.>
@Darkstone Night
THIS would work:
:seq(.25X,X,0,80It generates {0,.25,.5,.75,1,And so on}
his works to, for the sequence command. The part that doesn't work, is the horizontal ans. Since ans would be a list, the graph commands would throw an error. That is why he said it wouldn't work. Also, your seq is different from his.
Yeah, i realized that. I would do:
:ClrDraw
:seq(.25X,X,0,80→L1
:For(I,1,dim(Ans
:Horizontal L1(I
:Endsucks it doenst work thougth…
amazing optimization..
I have actually written simple program to mess with my (less calculator-aly inclined) friends. It would give them a little menu saying Error:System and asked if they wanted to restore or crash the calculator. No matter what it took them to another menu asking them to confirm a crash and, again, no matter what they picked it gave a little countdown to zero then, the oldest trick in the book.
:Lbl 1
:Disp "CRASHED"
:Goto 1
It would take them forever to figure out they just had to hit the On button. Used in combination with the Start-up app to run it automatically, and the expression on their faces is priceless. Lol.
*cough*PROGRAM:A:asmprgm*cough**cough*asm(prgmA*cough*
*note not responsible for damage.
How about old fashioned programs that run without your victim noticing, taking their input and display wrong answers so if they input 2+2 it gives them a random number…My friend removed the batteries ,clever guy, after ten minutes :P.
I once put this on my friend's calc:
PROGRAM:A
While 1
Input "",Str1
If randint(0,1
Then
Disp randint(0,3)+expr(Str1
Else
menu("ERR:DIVIDE BY 0","CLEAR RAM",1
End
End
While 0
Lbl 1
End
ClrHome
While 1
Output(1,1,"ERROR!"
EndHe believed it, and bought a new calc.
/forum/t-58881/awesome-program#post-