0 Members and 2 Guests are viewing this topic.
.AXEEE0->A1->BPrompt {C}rIf {C}r less than or equal to 2StopIf Remainder({C}r,2)=(0)A+1->AWhile ({C}r//B) greater than or equal to (squareroot({C}r))If Remainder({C}r,B)=(0)A+1->AB+2->BIf A greater than or equal to 2Goto 1EndDisp "PRIME"StopLbl 1Disp "Composite"Pause Disp "BYE"
ok i am extremely new at thiis what is wrong with my prog.all i know so far is that i think prompt is not supported____________________________________________________sry parents get on just to bug me and dont let me finish_______________________________________________also i am completely new at axe so things will look comppletely wrong_________________________________________________Code: [Select].AXEEE0->A1->BPrompt {C}rIf {C}r less than or equal to 2StopIf Remainder({C}r,2)=(0)A+1->AWhile ({C}r//B) greater than or equal to (squareroot({C}r))If Remainder({C}r,B)=(0)A+1->AB+2->BIf A greater than or equal to 2Goto 1EndDisp "PRIME"StopLbl 1Disp "Composite"Pause Disp "BYE"
Disp "BYE"
"BYE"->Str1Disp Str1
HoMM: [==--------] Project 'resumed': I'm suffering overwhelming new ideas being popped up in my dreams :PtiDE: [----------] Explored and understood the main part of the code: just started writing a Tokenizer.
thanks for the helpi really appreciate this great community where people a patient and help others learn. none of the "go away noob"i really appreciate it.the remainder command is a newer command on the ti-84 that came out with the new os that came out early this year ( the one enabling math-print )basically Disp Remainder(5,2) " 5 divided by 2 " 2 and 1 over 2 remainder 1" "stuff in 1st grade"outcome would be 1
Disp Remainder(5,2) " 5 divided by 2 " 2 and 1 over 2 remainder 1" "stuff in 1st grade"outcome would be 1
I'm new to Axe too, but I'm pretty sure this is the problem:Axe doesn't just translate BASIC commands. It crates a totally separate language, so it only accepts the ones that it itself supports, and so most of the commands that you'd use in BASIC, like Remainder(, would not work in Axe.And for those of you more experienced in Axe programming, I have a question too: Is it compatible with OS 2.53?
0-Krepeat Kgetkey->Kenddisp K>dec
i will try to add the code tomarrow. its already 11:00 pm right now.
.AX30=>H0=>G3=>BLbl 2getKey=>GIf G=33:H*10H:EndIf G=34:H*10=>H:H+1=>H:EndIf G=26:H*10=>H:H+2=>H:EndIf G=18:H*10=>H:H+3=>H:EndIf G=35:H*10=>H:H+4=>H:EndIf G=27:H*10=>H:H+5=>H:EndIf G=19:H*10=>H:H+6=>H:EndIf G=36:H*10=>H:H+7=>H:EndIf G=28:H*10=>H:H+8=>H:EndIf G=20:H*10=>H:H+9=>H:EndIf H (not equal) 0:Output(5,1,H (black triangle) Dec):EndIf G (not equal) 9:Goto 2:EndH=>CIf C^2=0:Goto 1:EndWhile (C/B)(greater than or equal to) squ(C) “squ = square root of”If C^B=0Goto 1:EndB+2=>BEnd"PRIME"=>Str1Disp Str1Goto (theta)Lbl 1"Composite"=>Str2Disp Str2Lbl (theta)Pause 999