Simple maths using n=n# - GameCreators Forum

Author

Message

Tim Ballisto

21

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Right behind you.

Posted: 16th Apr 2004 22:08

Link

Find whether a number is prime or composite.

+ Code Snippet

start:
cls
input "Value: ",number
print "Processing..."
for q=2 to number/2 step 1
q#=q
w#=number/q#
w=w#
if w=w# then goto composite
next q
print number," is a prime number."
wait key
goto start
composite:
print number," is a composite number."
print "First divisable: ",q#
wait key
goto start

Find whether a number is even or odd.

+ Code Snippet

start:
cls
input "Value: ",number
print "Processing..."
q#=number/2.0
q=q#
if q#=q then goto even
print number," is odd."
wait key
goto start
even:
print number," is even."
wait key
goto start

Find whether or not a number is whole.

+ Code Snippet

start:
cls
input "Value: ",number#
print "Processing..."
number=number#
if number#=number then goto even
print number#," is not whole."
wait key
goto start
even:
print number#," is whole."
wait key
goto start

Because of DB's floating point math, these are only accurate up to six figures.

Programs for programmers.

Back to top

Profile PM Website

ifman1

21

Years of Service

User Offline

Joined: 3rd Jul 2003

Location:

Posted: 17th Apr 2004 03:22

Link

Here's some alternate code for the Prime, using the lesser known and hardly documented MOD statement. There are some guys on the forum that were nice enough to point this function out to me, so I thought I'd pass it along.

+ Code Snippet

start:
cls
input "Value: ", number
print "Processing..."
for q = 2 to number/2 step 1
y = number MOD q
if y = 0 then goto composite
next q
print number," is a prime number."
wait key
goto start
composite:
print number," is a composite number."
print "First divisable: ",q
wait key
goto start

And here's another option for the even or odd, also using the MOD function

+ Code Snippet

start:
cls
input "number: ", x
print "Processing...."
y = x mod 2
if y = 0 then print x, " is EVEN!"
if y = 1 then print x, " is ODD!"
wait key
goto start

They don't use your n# theme, but it's effective. I don't think I can duplicate your whole number function using the MOD function. I wasn't trying to steal your thread or anything, just thought I'd show an alternate way to get the same results, this is one of the reasons I love programming!

DBPro's made out of PEOPLE.... PEOPLE.......!!!!!

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Simple maths using n=n#