Show Posts

61

TI-Nspire / Re: DrillMiner

« on: December 16, 2012, 09:39:02 am »

Thats an interesting game you got there!

62

TI-BASIC / Re: Number inversion

« on: November 15, 2012, 06:11:51 pm »

I guess something like that should work, its just that i never worked with functions before...

63

TI-BASIC / Re: Number inversion

« on: November 15, 2012, 03:20:39 pm »

The idea is in the spoiler, i think that is all i wanna do( need to check mannually

all of it)
Its a pretty huge print for a calc to make but i always liked things big.
the idea is to see if every number mirror plus its mirror gives 1089.
rules are:
The smallest number must be 103
The number must not be equally read from the beginning to the and or from the the to the beginning(If they were it wouldn't make sense to mirror them)
The first number decides the biggest last number EX: if the first number is 4 the smallest last number can only be 6(allways up to 9)) or be it n+2 for the smallest.
And if i'm not mistaken thats it!
The SPOILER IS HUGE!

Spoiler For Spoiler:

64

TI-BASIC / Re: Number inversion

« on: November 15, 2012, 11:43:42 am »

so how do i avoid goto/label?

65

Introduce Yourself! / Re: Hello Everyone

« on: November 15, 2012, 11:40:37 am »

Currently i only have a TI-Nspire CX.
I love to learn every thing that i find entertaining, chess, programming(just began), also sports of every kind, scouts, love music, games(calc and pc) and others.
my primary objective now is to learn the most about chess and programming.
And i can say you that i'm thrilled

with programming!
Thanks for the peanuts by the way.

66

TI-BASIC / Re: Number inversion

« on: November 15, 2012, 11:34:29 am »

Is there any way of making this code run faster(i'm kinda newb here!)

Code: [Select]

Define LibPub inversor()=
Prgm
:Local final,reps,next,a
:f:=103
:Lbl g
:num:=f
:final:=0
:reps:=int(log(num,10))+1
:For a,0,reps
:next:=int(((num)/(10)))
:final:=final*10+num-10*next
:num:=next
:EndFor
:resulti:=((final)/(10))
:num:=resulti-f
:l:=num
:Disp "O Inverso de ",f," é ",resulti," logo:"
:Disp resulti,"-",f,"=",l
:Local final,reps,next,a
:final:=0
:reps:=int(log(num,10))+1
:For a,0,reps
:next:=int(((num)/(10)))
:final:=final*10+num-10*next
:num:=next
:EndFor
:resultii:=((final)/(10))
:Disp "O inverso de ",l," é ",resultii," logo:"
:Disp resultii,"+",l,"=",resultii+l
:Lbl e
:f:=f+1
:If f≥998 Then
:Goto h
:ElseIf f≥103 and f≤109 Then
:Goto g
:ElseIf f≥113 and f≤119 Then
:Goto g
:ElseIf f≥123 and f≤129 Then
:Goto g
:ElseIf f≥133 and f≤139 Then
:Goto g
:ElseIf f≥143 and f≤149 Then
:Goto g
:ElseIf f≥153 and f≤159 Then
:Goto g
:ElseIf f≥163 and f≤169 Then
:Goto g
:ElseIf f≥173 and f≤179 Then
:Goto g
:ElseIf f≥183 and f≤189 Then
:Goto g
:ElseIf f≥193 and f≤199 Then
:Goto g
:ElseIf f≥204 and f≤209 Then
:Goto g
:ElseIf f≥214 and f≤219 Then
:Goto g
:ElseIf f≥224 and f≤229 Then
:Goto g
:ElseIf f≥234 and f≤239 Then
:Goto g
:ElseIf f≥244 and f≤249 Then
:Goto g
:ElseIf f≥254 and f≤259 Then
:Goto g
:ElseIf f≥264 and f≤269 Then
:Goto g
:ElseIf f≥274 and f≤279 Then
:Goto g
:ElseIf f≥284 and f≤289 Then
:Goto g
:ElseIf f≥294 and f≤299 Then
:Goto g
:ElseIf f≥305 and f≤309 Then
:Goto g
:ElseIf f≥315 and f≤319 Then
:Goto g
:ElseIf f≥325 and f≤329 Then
:Goto g
:ElseIf f≥335 and f≤339 Then
:Goto g
:ElseIf f≥345 and f≤349 Then
:Goto g
:ElseIf f≥355 and f≤359 Then
:Goto g
:ElseIf f≥365 and f≤369 Then
:Goto g
:ElseIf f≥375 and f≤379 Then
:Goto g
:ElseIf f≥385 and f≤389 Then
:Goto g
:ElseIf f≥395 and f≤399 Then
:Goto g
:ElseIf f≥406 and f≤409 Then
:Goto g
:ElseIf f≥416 and f≤419 Then
:Goto g
:ElseIf f≥426 and f≤429 Then
:Goto g
:ElseIf f≥436 and f≤439 Then
:Goto g
:ElseIf f≥446 and f≤449 Then
:Goto g
:ElseIf f≥456 and f≤459 Then
:Goto g
:ElseIf f≥466 and f≤469 Then
:Goto g
:ElseIf f≥476 and f≤479 Then
:Goto g
:ElseIf f≥486 and f≤489 Then
:Goto g
:ElseIf f≥496 and f≤499 Then
:Goto g
:ElseIf f≥507 and f≤509 Then
:Goto g
:ElseIf f≥517 and f≤519 Then
:Goto g
:ElseIf f≥527 and f≤529 Then
:Goto g
:ElseIf f≥537 and f≤539 Then
:Goto g
:ElseIf f≥547 and f≤549 Then
:Goto g
:ElseIf f≥557 and f≤559 Then
:Goto g
:ElseIf f≥567 and f≤569 Then
:Goto g
:ElseIf f≥577 and f≤579 Then
:Goto g
:ElseIf f≥587 and f≤589 Then
:Goto g
:ElseIf f≥597 and f≤599 Then
:Goto g
:ElseIf f≥608 and f≤609 Then
:Goto g
:ElseIf f≥618 and f≤619 Then
:Goto g
:ElseIf f≥628 and f≤629 Then
:Goto g
:ElseIf f≥638 and f≤639 Then
:Goto g
:ElseIf f≥648 and f≤649 Then
:Goto g
:ElseIf f≥658 and f≤659 Then
:Goto g
:ElseIf f≥668 and f≤669 Then
:Goto g
:ElseIf f≥678 and f≤679 Then
:Goto g
:ElseIf f≥688 and f≤689 Then
:Goto g
:ElseIf f≥698 and f≤699 Then
:Goto g
:ElseIf f=709 Then
:Goto g
:ElseIf f=719 Then
:Goto g
:ElseIf f=729 Then
:Goto g
:ElseIf f=739 Then
:Goto g
:ElseIf f=749 Then
:Goto g
:ElseIf f=759 Then
:Goto g
:ElseIf f=769 Then
:Goto g
:ElseIf f=779 Then
:Goto g
:ElseIf f=789 Then
:Goto g
:ElseIf f=799 Then
:Goto g
:Else
:Goto e
:EndIf
:Lbl h
:EndPrgm

The language is portuguese and its says like this:
301 is the mirror for 103 then:
301-103=198
891 is the mirror for 198 then:
891+198=1089
and so on..

67

Introduce Yourself! / Hello Everyone

« on: November 15, 2012, 10:09:47 am »

I guys i visited this site for quite some time before registering until i finally decide to register.
You guys are great!

68

TI-BASIC / Re: Number inversion

« on: November 13, 2012, 01:56:32 pm »

thanks guys!

69

TI-BASIC / Re: Number inversion

« on: November 13, 2012, 01:27:28 pm »

Thats the idea but i have no clue how to start the program really i'm blind here...

70

TI-BASIC / Number inversion

« on: November 13, 2012, 01:17:45 pm »

Is it possible in Ti Nspire by any mean to transform a number into its reverse like this:
EX: 103 --> 301?

71

TI-BASIC / Re: Need help with my code...

« on: November 10, 2012, 07:17:27 pm »

Students software is the latest, and i always work on the calc.No matter what it got fixed and the problem is not there to annoy me. And i couldn't use a letter as you suggested because the request asks for an integer so a string won't work, so i used a number that does not bother the game.

72

TI-BASIC / Re: Need help with my code...

« on: November 10, 2012, 01:37:50 pm »

thanks.
I using os version 3.1.0.392 with Ndless installed latest version.

73

TI-BASIC / Re: Need help with my code...

« on: November 09, 2012, 03:08:42 am »

I'm portuguese and i'll deal with that problem a litle later now i have to go to school.

EDIT: i came back already and for some reason the code was not running in my calc

, when i pasted it into my computer it worked in students software.
Added the option "exit" in the middle of the game like Rhombicuboctahedron suggested then i decided to try it in my calc with that little improvement to see if it worked since it didn't make any sense not to, and guess what it did work.

Now can anyone explain me why it was not working?

74

TI-BASIC / Need help with my code...

« on: November 08, 2012, 04:16:24 pm »

I've recently started to program and i tried making a guess my number game...
the code is very deorganized but it worked with easy dificulty, when i upgraded the game so it could have normal and hard nothing succeded.
adn i'm getting a litle frustrated

so i'll post the code to see if anyone could help me find my error.
don't mind the text they are in portuguese my mother tongue.

Code: [Select]

Define LibPub gan()=
Prgm
:Lbl z
:e:=0
:If e=e Then
:RequestStr "Facil=F Normal=N Dificil=D",a,0
:If a="F" Then
:Goto v
:ElseIf a="f" Then
:Goto v
:elseIf a="D" Then
:Goto l
:ElseIf a="d" Then
:Goto l
:elseIf a="N" Then
:Goto q
:ElseIf a="n" Then
:Goto q
:Lbl q
:b:=randInt(0,100)
:Lbl u
:Request "Adivinha o numero de 0-100",c,0
:If c=b Then
:Disp "Bom jogo acabaste em ",e," tentativas!"
:Lbl t
:RequestStr "Novo jogo? S\N?",d,0
:If d="S" Then
:e:=0
:Goto z
:ElseIf d="s" Then
:e:=0
:Goto z
:ElseIf d="N" Then
:Goto y
:ElseIf d="n" Then
:Goto y
:Else
:Goto t
:EndIf
:ElseIf c>b and c<101 Then
:Text "Muito alto!",0
:e:=e+1
:Goto u
:ElseIf c<b and c>−1 Then
:Text "Muito baixo!",0
:e:=e+1
:Goto u
:Else
:Text "É só de 0 a 100!"
:Goto u
:Lbl l
:b:=randInt(0,1000)
:Lbl m
:Request "Adivinha o numero de 0-1000",c,0
:If c=b Then
:Disp "Bom jogo acabaste em ",e," tentativas!"
:Lbl n
:RequestStr "Novo jogo? S\N?",d,0
:If d="S" Then
:e:=0
:Goto z
:ElseIf d="s" Then
:e:=0
:Goto z
:ElseIf d="N" Then
:Goto y
:ElseIf d="n" Then
:Goto y
:Else
:Goto n
:EndIf
:ElseIf c>b and c<1001 Then
:Text "Muito alto!",0
:e:=e+1
:Goto m
:ElseIf c<b and c>−1 Then
:Text "Muito baixo!",0
:e:=e+1
:Goto m
:Else
:Text "É só de 0 a 1000!"
:Goto m
:Lbl v
:b:=randInt(0,10)
:Lbl w
:Request "Adivinha o numero de 0-10",c,0
:If c=b Then
:Disp "Bom jogo acabaste em ",e," tentativas!"
:Lbl x
:RequestStr "Novo jogo? S\N?",d,0
:If d="S" Then
:e:=0
:Goto z
:ElseIf d="s" Then
:e:=0
:Goto z
:ElseIf d="N" Then
:Goto y
:ElseIf d="n" Then
:Goto y
:Else
:Goto x
:EndIf
:ElseIf c>b and c<11 Then
:Text "Muito alto!",0
:e:=e+1
:Goto w
:ElseIf c<b and c>−1 Then
:Text "Muito baixo!",0
:e:=e+1
:Goto w
:Else
:Text "É só de 0 a 10!"
:Goto w
:endif
:endif
:endif
:endif
:endif
:Lbl y
:EndPrgm

75

TI-Nspire / Re: Nspire Movie Player - alternative to nPlayer

« on: October 26, 2012, 02:42:18 pm »

whats the the final video extension? and does it support .rmvb?

Messages - joao9856

TI-Nspire / Re: DrillMiner

TI-BASIC / Re: Number inversion

TI-BASIC / Re: Number inversion

TI-BASIC / Re: Number inversion

Introduce Yourself! / Re: Hello Everyone

TI-BASIC / Re: Number inversion

Introduce Yourself! / Hello Everyone

TI-BASIC / Re: Number inversion

TI-BASIC / Re: Number inversion

TI-BASIC / Number inversion

TI-BASIC / Re: Need help with my code...

TI-BASIC / Re: Need help with my code...

TI-BASIC / Re: Need help with my code...

TI-BASIC / Need help with my code...

TI-Nspire / Re: Nspire Movie Player - alternative to nPlayer