Sequences and Series

[lapo3399]

For any of you who have had to do sequences and seriesor needs help with them.
Here is a program I have made to find any term of an arithmetic/geometric sequence, the sum of any arithmetic or geometric series, the r value for a geometric sequence or the d value for an arithmetic sequence. It also tells you the equation for the term of a sequence.

code:

% Sequence and Series Utility % Copyright Matt Laporte 2005 var count : int var t1, t2, t3, d, r, n, sum, term, tn : real var answers, answert, answerntn, answeraa, answerfin : string procedure termfindgeo     put "Thank you. Would you like to find a term in this sequence?"     get answert     if answert = "yes" then         put "Enter the n value."         get n         term := t1 * (r ** (n - 1))         put "The term is ", term, "."     elsif answert = "no" then         put "Thank you for using SaSU! Any comments or questions can be sent to lapo3399@gmail.com."     end if end termfindgeo procedure termfindarith     put "Thank you. Would you like to find a term/term number in this sequence?"     get answert     if answert = "yes" then         put "Do you have the n or the tn value? (enter n or tn)"         get answeraa         if answeraa = "n" then             put "What is the n value?"             get n             term := t1 + ((n - 1) * d)             put "The term is ", term, "."         elsif answeraa = "tn" then             put "What is the tn value?"             get tn             n := (tn / d) - (t1 / d) + 1             put "The term number is ", n, "."         end if     elsif answert = "no" then         put "Thank you for using SaSU! Any comments or questions can be sent to lapo3399@gmail.com."     end if end termfindarith loop     var fontID := Font.New ("comic sans ms:12")     Font.Draw ("Copyright Matt Laporte 2005", 225, 5, fontID, 7)     put "Welcome to SaSU"     put "This program will determine the type and values for d or r for any sequence."     put "It will also determine the sum of a series if asked."     put "Enter the first 3 terms of the sequence."     put "Term 1 ="     get t1     put "Term 2 ="     get t2     put "Term 3 ="     get t3     if t3 / t2 = t2 / t1 then         r := t3 / t2         put "The sequence is geometric, and the r value is ", r, "."         put "The a value is ", t1, ". The formula for this geometric sequence is tn=", t1, "(", r, ")**n-1"         put "Would you like to find the sum of a series represented by this sequence?"         get answers         if answers = "yes" then             put "Enter the n value:"             get n             sum := (t1 * ((r ** n) - 1)) / (r - 1)             put "The sum of the geometric series is ", sum, "."             termfindgeo         elsif answers = "no" then             termfindgeo         end if     elsif t3 - t2 = t2 - t1 then         d := t3 - t2         put "The sequence is arithmetic, and the d value is ", d, "."         put "The a value is ", t1, ". The formula for the arithmetic sequence is tn=", t1, "+(n-1)", d, "."         put "Would you like to find the sum of a series represented by this sequence?"         get answers         if answers = "yes" then             put "Do you have the n or the tn value? (enter n or tn)"             get answerntn             if answerntn = "n" then                 put "What is the n value?"                 get n                 sum := (n / 2) * ((2 * t1) + ((n - 1) * d))                 put "The sum of the arithmetic series is ", sum, "."                 termfindarith             elsif answerntn = "tn" then                 put "What is the tn value?"                 get tn                 sum := ((-t1 + d + tn) / (2 * d)) * (tn + t1)     %This equation I actually developed in my math class :)                 put "The sum of the arithmetic series is ", sum, "."                 termfindarith             end if         elsif answers = "no" then             termfindarith         end if     elsif t3 - t2 not= t2 - t1 and t3 / t2 not= t2 / t1 then         put "This sequence is not arithmetic or geometric. It may be a combination of both,  or neither."     end if     put "Would you like to run SaSU again?"     get answerfin     if answerfin = "no" then         quit     elsif answerfin = "yes" then         cls     end if end loop

plz post comments or suggestions as I am not that experienced and can always learn
thnx

[jamonathin]

Pretty good program. You should just either cls or put .. after the put statements so your "copyright" oesn't get overwritten.
ex.

code:

put "Thank you for using SaSU! Any comments or questions can be sent to lapo3399@gmail.com." ..

[ssr]

u should change the

code:

quit

into

code:

exit

adn put

code:

..

behaind the "Term 1 ="

but nice program 8)

[lapo3399]

Ty....
I noticed the cls problem right after I posted.. Thnx neway help is always appreciated.