Problem in my code ! Please help !

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.

Forum Attachments

Summary:

Problem in my source code for my TI-89 Titanium.

Problem in my code ! Please help !

sebastient11 02 Feb 2012 22:14

I made a program that calculates the equation of an exponential with (X1,Y1) and (X2,Y2). The problem is that I noticed my program to verify that the difference between X1 and X2 is 1 and I want it asks to the user to re-type X1,Y1,… so it can calculates eqn, but it always asks me to re-enter those values ! There is my source code:

()
Prgm
ClrIO
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FLOAT 6")
Input "X1:",a
Input "Y1:",b
Input "X2:",c
Input "Y2:",d
While c-a≠1 or a-c≠1
ClrIO
Disp "Difference between X1 and X2"
Disp "must be equals to 1"
Loop
Input "X1:",a
Input "Y1:",b
Input "X2:",c
Input "Y2:",d
EndLoop
EndWhile
While a<c
d/b→e
e^a→f
b/f→g
ClrIO
Output 1,1,y=g*e^x
setMode("Exact/Approx","AUTO")
setMode("Display Digits","FLOAT 12")
Stop
EndWhile
While a>c
b/d→h
h^c→i
d/i→j
ClrIO
Output 1,1,y=j*h^x
setMode("Exact/Approx","AUTO")
setMode("Display Digits","FLOAT 12")
Stop
EndWhile
EndPrgm

When I remove the statement from { While a-c != 1 […] to EndLoop , EndWhile } , my program works. If that statement is there, my program asks me to re-enter the values even if the difference between X1 and X2 is 1. Hope someone can help !

P.S: Sorry for my bad english :s

Re: Problem in my code ! Please help !

Wolfgang47 03 Feb 2012 23:38

Your English is perfectly fine. (no worries). But I am confused because your code has a few syntax peculiarities that make me think it's not TI-Basic.

---

—Wolfgang

Re: Problem in my code ! Please help !

Xeda Elnara 03 Feb 2012 23:42

This is for the TI-89 which has a bunch of differences to TI-BASIC for the TI-83 BASIC
EDIT: Try to remove Loop and EndLoop

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Last edited on 03 Feb 2012 23:44 by Xeda Elnara Show more

Re: Problem in my code ! Please help !

Wolfgang47 04 Feb 2012 02:37

Ah…that explains it. Nice. I don't know enough about that to be any help though. Is it true that the TI-89 Titanium has unsurpassed graphics capabilities amongst the TI calculators (obviously we'll ignore the Nspire because that's a special case & because users cannot make use of it's incredible power).

---

—Wolfgang

Re: Problem in my code ! Please help !

Xeda Elnara 04 Feb 2012 03:09

Yes, the TI-89 has some great graphics capabilities for both Assembly and BASIC :]

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Problem in my code ! Please help !

sebastient11 04 Feb 2012 04:32

Thanks guys anyway, but I solved my problem. It doesn't need to have a difference of 1, now.
I shared the new source code, if anyone's intrigued about what I did wrong in my first attempt. The problem was the "or", between c-a != 1 and a-c != 1.

()
Prgm
ClrIO
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FLOAT 6")
Input "X1:",a
Input "Y1:",b
Input "X2:",c
Input "Y2:",d
If abs(c-a)=1 and a<c Then
d/b→e
e^a→f
b/f→g
ClrIO
Output 1,1,y=g*e^x
setMode("Exact/Approx","AUTO")
setMode("Display Digits","FLOAT 12")
Stop
ElseIf abs(c-a)=1 and a>c Then
b/d→h
h^a→i
b/i→j
ClrIO
Output 1,1,y=j*h^x
setMode("Exact/Approx","AUTO")
setMode("Display Digits","FLOAT 12")
Stop
ElseIf abs(c-a)≠1 and a<c Then
root(d/b,c-a)→k
k^a→l
b/l→m
ClrIO
Output 1,1,y=m*k^x
setMode("Exact/Approx","AUTO")
setMode("Display Digits","FLOAT 12")
Stop
ElseIf abs(c-a)≠1 and a>c Then
root(b/d,a-c)→n
n^a→o
b/o→p
ClrIO
Output 1,1,y=p*n^x
setMode("Exact/Approx","AUTO")
setMode("Display Digits","FLOAT 12")
Stop
EndIf
EndPrgm

Thanks to have tried to help me ! :D

Re: Problem in my code ! Please help !

burr 04 Feb 2012 07:05

I'm glad you were able to figure it out. There aren't many 68k programmers on the site yet, so please consider sticking around to assist future 68k programmers that might need help. We would definitely appreciate your continued presence on the site.

Re: Problem in my code ! Please help !

Stephen Bendl 15 Feb 2013 22:24

I may be misinterpreting your code, but I'm wondering why you're using While loops rather than If-Then blocks…
I would write this

()
Prgm
ClrIO
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FLOAT 6")
Lbl a
Input "X1:",a
Input "Y1:",b
Input "X2:",c
Input "Y2:",d
If abs(c-a)≠1 Then     //Checks if the difference between c and a is 1 and if it is not, runs the following code
  ClrIO
  Disp "Difference between X1 and X2"
  Disp "must be equals to 1"
  Goto a
EndIf
If a<c Then   //checks if a<c, and if it is, runs the following code until the Else statement
  d/b→e
  e^a→f
  b/f→g
  ClrIO
  Output 1,1,y=g*e^x
  setMode("Exact/Approx","AUTO")
  setMode("Display Digits","FLOAT 12")
Else     //If a was not less than c, this section of code is run. (You could also use :ElseIf a>c Then )
  b/d→h
  h^c→i
  d/i→j
  ClrIO
  Output 1,1,y=j*h^x
  setMode("Exact/Approx","AUTO")
  setMode("Display Digits","FLOAT 12")
  Stop
EndIf
EndPrgm

abhilasha (guest) 09 Feb 2013 06:42

this code shows wrong answer.please help

  #include<iostream>
 #define MAX 1000000
    #define loop0(i,j) for(int i=0;i<j;i++)
    #define loop1(i,j) for(int i=1;i<j;i++)
 
    using namespace std;
 
    bool flag[MAX]={0};
    int tree[MAX]={0};
void update(long int node,long int b,long int e,long int i,long int j)
{
    if(b>j || e<i) return;
 
    if(b>=i && e<=j)
    {
        if(flag[node])
        {
            flag[node]=0;
            return;
        }
        else
        {
            tree[node]=e-b+1-tree[node];
 
            flag[2*node]=!flag[2*node];
            flag[2*node+1]=!flag[2*node+1];
 
            return;
        }
    }
     else
    {
        if(flag[node])
        {
            flag[node]=0;
            flag[2*node]=!flag[2*node];
            flag[2*node+1]=!flag[2*node+1];
 
        }
        update(2*node,b,(b+e)/2,i,j);
        update(2*node+1,(b+e)/2+1,e,i,j);
        tree[node]=tree[2*node]+tree[2*node+1];
        return;
    }
}
long int query(long int node,long int b,long int e,long int i,long int j)
{
    long int l,r;
 
    if(b>j || e<i) return -1;
 
    if(b>=i && e<=j)
    {
        if(!flag[node])
         return tree[node];
        else
        {
            flag[node]=0;
 
            tree[node]=e-b+1-tree[node];
 
            flag[2*node]=!flag[2*node];
            flag[2*node+1]=!flag[2*node+1];
 
            return tree[node];
        }
    }
    else
    {
        if(flag[node])
        {
            flag[node]=0;
             tree[node]=e-b+1-tree[node];
             flag[2*node]=!flag[2*node];
            flag[2*node+1]=!flag[2*node+1];
            l=query(2*node,b,(b+e)/2,i,j);
        r=query(2*node+1,(b+e)/2+1,e,i,j);
        if(l==-1&r==-1)
        return tree[node];
        else if(l==-1) return tree[node]=r;
        else if(r==-1) return tree[node]=l;
        return tree[node]=(l+r);
        }
        l=query(2*node,b,(b+e)/2,i,j);
        r=query(2*node+1,(b+e)/2+1,e,i,j);
        if(l==-1&r==-1)
        return tree[node];
        else if(l==-1) return r;
        else if(r==-1) return l;
        return (l+r);
 
    }
}
 int main()
    {
           int k, t, tests, m, n;
           int f, a, b, z;
           scanf("%d %d",&tests,&m);
           loop0(i, m)
           {
               scanf("%d %d %d",&f,&a,&b);
             if(f==0)
                   update(1,0,tests-1,a,b);
               else
                   printf("%d\n",query(1,0,tests-1,a,b));
           }
           return 0;
    }

Last edited on 09 Feb 2013 17:55 by Timothy Foster Show more

Boba Foxx (guest) 09 Feb 2013 18:56

Unfortunately, most of this forum is devoted to Ti-83 basic, and not 68k :s
I'm not sure if you'll be able to get much help from us.

Boba Foxx (guest) 09 Feb 2013 18:59

…except that on second look, that isn't 68k, but some form of C++ (I think).

Mr Dino 09 Feb 2013 20:44

This is C++. Unfortunately, my compiler does not contain the functions printf and scanf, so I cannot help you. :/

Boba Foxx (guest) 09 Feb 2013 22:54

I was wondering; my compiler kept throwing errors on those, so I wasn't sure.