You are not logged in.
Quote:" You're full of it. "
A.R.B
I have to Humour the less able minded! if they cant see in front of their own Nose!...........
Quote:" Hey Anthony, can I see your degree? "
A.R.B
my degree! is always lower than other's but then I just like being Cool..............................
Quote:" Of course not, apart from the fact that it clearly does to anybody with a shred of sense and you've seen it proved a million times over, but other than that, of course not. "
A.R.B
all we need to see is the Math on how from 0.999...(.9) to (1) is done!
it can only be done by + (.1) which as we all know! is no longer Infinite/Recurring!!..................
Quote: " You know somebody who is two-hundred-and-seventy thousand years old? "
A.R.B
I know an Adult? who is a Child!
I also heard of someone who done this 14 million times! in one week!!....................................
To George,Y
What puzzles me is how other Counting systems came about! Humans are Born with Ten fingers!
you would have thought this would have been the first counting System!
A.R.B
To
Quote: "It can't be 50% then, the statement after your first statement contradicts the other, if there is more than a single answer to a question then how can it be split 50%?
And 'wrong' answers are a whole different thing...I was actually talking about correct answers. Well, I wouldn't put it that way, but it should be clear as to what I mean.
A.R.B
Now we know what Answers we are talking about! but this can go on forever!! when no one can say for sure what the correct Answers are for every Question?
To Ricky
Quote: Post 00.17.10 " There, you are wrong. This shows that: "
\sum_{i=2}^\infty \frac{1}{2^i} = \frac{1}{2}
A.R.B
for the above you are using Fractions again!! The Infinite/Recurring 0.9 problem uses Normal Decimal Calculations!
Nothing changes the fact that Infinite 1.111.... x 0.9 will Never equal 1
A.R.B
To Sekky
Quote" You'd know all about that "
A.R.B
I'm 100% sure you look in the Mirror and argue with yourself Continuously!............
To Devante
Quote: "I can tell you that there are more questions than there are answers, as the human mind has always wondered what the solutions and answers to things are."
A.R.B
I would say it has to be 50% for each! because there are so many wrong Answers given to one Question?
To Sekky and luca-deltodesco ( sorry I mised the other one on my first post! )
A.R.B
I thought we got Rid of the Fools!!
To Ricky
Quote:" In binary, yes. "
A.R.B
In that case! it has nothing to do with this Post??
Hope you dont Mind George,Y
I have to say that the Abacus! Is an amazing Calculating Tool!
A.R.B
To Ricky
Quote: " 0.011111111... = 0.10000000...
So either reals aren't dense, or the above two numbers are equal. "
A.R.B
So are you saying the two Numbers above are the Same?
Below is my Fermats Last Theorem QBASIC Computer program!
To Run the program copy/paste and then save the file as FERMATS.BAS or FERMATS.TXT
then open the program in the QBASIC program's window to Run.
If you dont have a copy of the QBASIC program,it can be download for Free from
http://members.lycos.co.uk/brisray/qbasic/qind.htm
A.R.B
REM ***************************************************************************
DIM SHARED START AS STRING
DIM SHARED QUIT AS STRING
DIM SHARED RUNCUBESTEST AS STRING
DIM SHARED RUNMAKECUBES AS STRING
DIM SHARED CUBEVAL0 AS SINGLE
DIM SHARED CUBEVAL1 AS SINGLE
DIM SHARED CUBEVAL8 AS SINGLE
DIM SHARED CUBEVAL27 AS SINGLE
DIM SHARED CUBEVAL64 AS SINGLE
DIM SHARED CUBEVAL125 AS SINGLE
DIM SHARED CUBEVAL216 AS SINGLE
DIM SHARED CUBEVAL343 AS SINGLE
DIM SHARED CUBEVAL512 AS SINGLE
DIM SHARED CUBEVAL729 AS SINGLE
DIM SHARED DELAYN AS DOUBLE
DIM SHARED COUNTN AS DOUBLE
DIM SHARED TIMESN AS DOUBLE
DIM SHARED MAKECUBEN AS DOUBLE
DIM SHARED CUBECOUNTN AS DOUBLE
DIM SHARED SLOWSPRINT AS DOUBLE
DIM SHARED MAXCUBEN AS DOUBLE
DIM SHARED RNDRNDNUM AS DOUBLE
DIM SHARED RDXX AS DOUBLE
DIM SHARED RDYY AS DOUBLE
DIM SHARED RDZZ AS DOUBLE
DIM SHARED TOTALXXYY AS DOUBLE
DIM SHARED DIFFXXYYZZ AS DOUBLE
DIM SHARED X1 AS DOUBLE
DIM SHARED Y1 AS DOUBLE
DIM SHARED Z1 AS DOUBLE
DIM SHARED XX AS DOUBLE
DIM SHARED YY AS DOUBLE
DIM SHARED ZZ AS DOUBLE
CLS
PRINT
PRINT TAB(14); "*******************************************************"
PRINT
PRINT TAB(95); " { FERMATS LAST THEOREM } DEMONSTRATION PROGRAM "
PRINT
PRINT TAB(95); " BY,Anthony.R.Brown V.01/01/1998 "
PRINT
PRINT TAB(14); "*******************************************************"
PRINT
PRINT " THE PROBLEM IS AS FOLLOWS! "
PRINT " are there any whole numbers e.g (x,y,z) cube numbers "
PRINT " where x3 + y3 = z3 NOTICE = (Xn,Yn,Zn) n Must be greater than (2) "
PRINT " an example that does not work is given below "
PRINT " x = 64 cube y = 64 cube Z = 125 cube X + Y = 128 (+ 3) > Z "
PRINT " if you could use zero?? then the answer would be, "
PRINT " x = 0 y = 0 z = 0 simple! X + Y = Z "
PRINT
INPUT " PRESS (ENTER) TO RUN PROGRAM "; START
CLS
PRINT : PRINT
INPUT " ENTER (Y) TO RUN CUBE NUMBER TEST PROGRAM! "; RUNCUBESTEST
CLS
IF RUNCUBESTEST = "Y" THEN GOTO CUBETESTLB
IF RUNCUBESTEST = "y" THEN GOTO CUBETESTLB
CLS
PRINT : PRINT
INPUT " ENTER (Y) TO RUN MAKE CUBE NUMBER PROGRAM! "; RUNMAKECUBES
CLS
IF RUNMAKECUBES = "Y" THEN GOTO MAKECUBESLB
IF RUNMAKECUBES = "y" THEN GOTO MAKECUBESLB
RUN: REM NO INPUT!
REM***************************************************************************
CUBETESTLB:
REM***************************************************************************
CLS
PRINT : PRINT
PRINT "------------------------------------------------------------------------------"
PRINT " { FERMATS! CUBE NUMBER TEST PROGRAM! } "
PRINT "------------------------------------------------------------------------------"
PRINT : PRINT
PRINT " ENTER THE AMOUNT OF TIMES TO RUN CUBE NUMBER TEST! "
PRINT
INPUT ; TIMESN
IF TIMESN < 1 THEN GOTO RUNAGAINLB
PRINT : PRINT
PRINT " ENTER A NUMBER TO SLOW DOWN CUBE NUMBER TEST! SCREEN PRINT! E.G 9999 "
PRINT
INPUT ; SLOWSPRINT
IF SLOWSPRINT < 1 THEN GOTO RUNAGAINLB
CLS
REM---------------------------------------------------------------------------
CUBESTESTLOOPLB:
REM---------------------------------------------------------------------------
COUNTN = COUNTN + 1
REM---------------------------------------------------------------------------
REM BELOW RANDOM NUMBER ROUTINE FOR! RDXX,RDYY,RDZZ
REM---------------------------------------------------------------------------
GOSUB CUBESSTART
IF RDXX >= 1000000 THEN GOSUB CUBESSTART: REM FOR MORE LOWER NUMBERS!
RANDOMIZE TIMER
RDXX = INT(RND * MAXCUBEN) + 1
GOSUB CUBESSTART
IF RDYY >= 1000000 THEN GOSUB CUBESSTART: REM FOR MORE LOWER NUMBERS!
RANDOMIZE TIMER
RDYY = INT(RND * MAXCUBEN) + 1
GOSUB CUBESSTART
IF RDZZ >= 1000000 THEN GOSUB CUBESSTART: REM FOR MORE LOWER NUMBERS!
RANDOMIZE TIMER
RDZZ = INT(RND * MAXCUBEN) + 1
GOTO CUBESDONE
REM---------------------------------------------------------------------------
CUBESSTART:
REM---------------------------------------------------------------------------
RANDOMIZE TIMER
RNDRNDNUM = INT(RND * 23) + 1
IF RNDRNDNUM = 1 THEN MAXCUBEN = 10
IF RNDRNDNUM = 2 THEN MAXCUBEN = 100
IF RNDRNDNUM = 3 THEN MAXCUBEN = 1000
IF RNDRNDNUM = 4 THEN MAXCUBEN = 10000
IF RNDRNDNUM = 5 THEN MAXCUBEN = 100000
IF RNDRNDNUM = 6 THEN MAXCUBEN = 1000000
IF RNDRNDNUM = 7 THEN MAXCUBEN = 10000000
IF RNDRNDNUM = 8 THEN MAXCUBEN = 100000000
IF RNDRNDNUM = 9 THEN MAXCUBEN = 1000000000
IF RNDRNDNUM = 10 THEN MAXCUBEN = INT(RND * 1D+20) + 1
IF RNDRNDNUM = 11 THEN MAXCUBEN = INT(RND * 1D+30) + 1
IF RNDRNDNUM = 12 THEN MAXCUBEN = INT(RND * 1D+40) + 1
IF RNDRNDNUM = 13 THEN MAXCUBEN = INT(RND * 1D+50) + 1
REM BELOW NO 1D+60 ?!
IF RNDRNDNUM = 14 THEN MAXCUBEN = INT(RND * 9.999999999999999D+59) + 1
IF RNDRNDNUM = 15 THEN MAXCUBEN = INT(RND * 1D+70) + 1
IF RNDRNDNUM = 16 THEN MAXCUBEN = INT(RND * 1D+80) + 1
IF RNDRNDNUM = 17 THEN MAXCUBEN = INT(RND * 1D+90) + 1
IF RNDRNDNUM = 18 THEN MAXCUBEN = INT(RND * 1D+101) + 1: REM MAX = 1D300+
REM BELOW EXTRA LOW NUMBERS! FOR BETTER RANDOMNESS! BELOW 1D WHEN * 3!
IF RNDRNDNUM = 19 THEN MAXCUBEN = 10
IF RNDRNDNUM = 20 THEN MAXCUBEN = 100
IF RNDRNDNUM = 21 THEN MAXCUBEN = 1000
IF RNDRNDNUM = 22 THEN MAXCUBEN = 10000
IF RNDRNDNUM = 23 THEN MAXCUBEN = 100000
RETURN
REM---------------------------------------------------------------------------
CUBESDONE: REM BELOW MAKE XX,YY,ZZ CUBES!
REM---------------------------------------------------------------------------
X1 = RDXX
XX = X1 * X1 * X1
Y1 = RDYY
YY = Y1 * Y1 * Y1
Z1 = RDZZ
ZZ = Z1 * Z1 * Z1
TOTALXXYY = XX + YY
DIFFXXYYZZ = ZZ - TOTALXXYY
CLS
PRINT
PRINT "------------------------------------------------------------------------------"
PRINT " BELOW ( Xn1 ),( Yn1 ),( Zn1 ) SINGLE START NUMBERS! "
PRINT "------------------------------------------------------------------------------"
PRINT " ( Xn1 ) = "; X1
PRINT " ( Yn1 ) = "; Y1
PRINT " ( Zn1 ) = "; Z1
PRINT "------------------------------------------------------------------------------"
PRINT " BELOW ( Xn3 ),( Yn3 ),( Zn3 ) CUBE NUMBERS! "
PRINT "------------------------------------------------------------------------------"
PRINT " ( Xn3 ) = "; XX
PRINT " ( Yn3 ) = "; YY
PRINT " ( Zn3 ) = "; ZZ
PRINT "------------------------------------------------------------------------------"
PRINT " BELOW IF ( Xn3 + Yn3 ) = ( Zn3 ) THEN FERMATS THEOREM IS PROVED WRONG! "
PRINT "------------------------------------------------------------------------------"
PRINT " ( Xn3 + Yn3 ) = "; TOTALXXYY
PRINT "------------------------------------------------------------------------------"
PRINT " ( Zn3 ) = "; ZZ
PRINT "------------------------------------------------------------------------------"
PRINT " COUNT ="; COUNTN; " ( Zn3 ) - ( Xn3 + Yn3 ) DIFFERENCE = "; DIFFXXYYZZ
PRINT "------------------------------------------------------------------------------"
FOR DELAYN = 1 TO SLOWSPRINT
NEXT DELAYN
IF TOTALXXYY = ZZ AND TOTALXXYY <> 0 THEN GOTO PROVEDWRONGLB
IF COUNTN = TIMESN THEN GOTO RUNAGAINLB
GOTO CUBESTESTLOOPLB
REM---------------------------------------------------------------------------
PROVEDWRONGLB:
REM---------------------------------------------------------------------------
PRINT " WOW! HAVE YOU PROVED FERMATS LAST THEOREM IS WRONG! ? "
GOTO RUNAGAINLB
REM***************************************************************************
MAKECUBESLB:
REM***************************************************************************
CLS
PRINT : PRINT
PRINT "------------------------------------------------------------------------------"
PRINT " { FERMATS! MAKE CUBE NUMBER PROGRAM! } "
PRINT "------------------------------------------------------------------------------"
PRINT : PRINT
PRINT " ENTER HOW MANY CUBE NUMBERS! YOU WANT TO MAKE! "
PRINT
INPUT ; MAKECUBEN
IF MAKECUBEN < 1 THEN GOTO RUNAGAINLB
PRINT : PRINT
PRINT " ENTER A NUMBER TO SLOW DOWN CUBE NUMBER! SCREEN PRINT! E.G 9999 "
PRINT
INPUT ; SLOWSPRINT
IF SLOWSPRINT < 1 THEN GOTO RUNAGAINLB
REM---------------------------------------------------------------------------
CLS
XX = 1
COUNTN = 1
CUBECOUNTN = 1
REM ABOVE PRINTS FIRST CUBEVAL1 AND NOT CUBEVAL0! AS = ZERO VALUES!
CUBEVAL0 = 0
CUBEVAL1 = 1
CUBEVAL8 = 8
CUBEVAL27 = 27
CUBEVAL64 = 64
CUBEVAL125 = 125
CUBEVAL216 = 216
CUBEVAL343 = 343
CUBEVAL512 = 512
CUBEVAL729 = 729
REM---------------------------------------------------------------------------
CUBESMAKELOOPLB:
REM---------------------------------------------------------------------------
IF CUBECOUNTN = 0 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 0 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 0 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL0;
IF CUBECOUNTN = 0 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 1 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 1 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 1 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL1;
IF CUBECOUNTN = 1 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 2 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 2 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 2 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL8;
IF CUBECOUNTN = 2 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 3 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 3 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 3 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL27;
IF CUBECOUNTN = 3 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 4 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 4 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 4 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL64;
IF CUBECOUNTN = 4 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 5 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 5 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 5 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL125;
IF CUBECOUNTN = 5 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 6 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 6 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 6 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL216;
IF CUBECOUNTN = 6 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 7 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 7 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 7 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL343;
IF CUBECOUNTN = 7 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 8 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 8 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 8 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL512;
IF CUBECOUNTN = 8 THEN PRINT " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 9 THEN PRINT "CUBE = ";
IF CUBECOUNTN = 9 THEN PRINT USING "######################"; XX;
IF CUBECOUNTN = 9 THEN PRINT ; " : PATTERN = "; : PRINT USING "####"; CUBEVAL729;
IF CUBECOUNTN = 9 THEN PRINT " : COUNT = "; COUNTN
REM
REM---------------------------------------------------------------------------
SF$ = "FERMFILE.TXT"
OPEN SF$ FOR APPEND AS #1
REM
IF CUBECOUNTN = 0 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 0 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 0 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL0;
IF CUBECOUNTN = 0 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 1 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 1 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 1 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL1;
IF CUBECOUNTN = 1 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 2 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 2 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 2 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL8;
IF CUBECOUNTN = 2 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 3 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 3 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 3 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL27;
IF CUBECOUNTN = 3 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 4 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 4 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 4 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL64;
IF CUBECOUNTN = 4 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 5 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 5 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 5 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL125;
IF CUBECOUNTN = 5 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 6 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 6 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 6 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL216;
IF CUBECOUNTN = 6 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 7 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 7 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 7 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL343;
IF CUBECOUNTN = 7 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 8 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 8 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 8 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL512;
IF CUBECOUNTN = 8 THEN PRINT #1, " : COUNT = "; COUNTN
REM
IF CUBECOUNTN = 9 THEN PRINT #1, "CUBE = ";
IF CUBECOUNTN = 9 THEN PRINT #1, USING "######################"; XX;
IF CUBECOUNTN = 9 THEN PRINT #1, ; " : PATTERN = "; : PRINT #1, USING "####"; CUBEVAL729;
IF CUBECOUNTN = 9 THEN PRINT #1, " : COUNT = "; COUNTN
REM
CLOSE
REM---------------------------------------------------------------------------
FOR DELAYN = 1 TO SLOWSPRINT
NEXT DELAYN
IF COUNTN = MAKECUBEN THEN PRINT : REM SPACE BETWEEN ABOVE!
IF COUNTN = MAKECUBEN THEN PRINT " NOTICE! CUBE NUMBERS HAVE BEEN SAVED TO FERMFILE.TXT TO LOOK AT!"
IF COUNTN = MAKECUBEN THEN GOTO RUNAGAINLB
CUBECOUNTN = CUBECOUNTN + 1
IF CUBECOUNTN = 10 THEN CUBECOUNTN = 0
COUNTN = COUNTN + 1
X1 = COUNTN
XX = X1 * X1 * X1
GOTO CUBESMAKELOOPLB
REM***************************************************************************
RUNAGAINLB:
REM***************************************************************************
IF COUNTN <= 0 THEN PRINT
IF COUNTN <= 0 THEN PRINT
IF COUNTN <= 0 THEN PRINT " NO INPUT? OR WRONG INPUT? TRY AGAIN! "
PRINT
INPUT " PRESS (ENTER) TO RUN AGAIN OR (QU) TO QUIT! "; QUIT
IF QUIT = "QU" THEN END
IF QUIT = "qu" THEN END
RUN
END
REM ***************************************************************************Below is my Infinite/Recurring 0.9 QBASIC Computer program!
To Run the program copy/paste and then save the file as INFREC09.BAS or INFREC09.TXT
then open the program in the QBASIC program's window to Run.
If you dont have a copy of the QBASIC program,it can be download for Free from
http://members.lycos.co.uk/brisray/qbasic/qind.htm
A.R.B
REM ************************************************************************
DIM TIMES AS SINGLE
DIM DECIMALPOINT AS STRING
DIM NINE AS STRING
DIM COUNT AS SINGLE
DIM RUNAGAIN AS STRING
CLS
PRINT
PRINT " INFINITE/RECURRING 0.9 QBASIC PROGRAM,By Anthony.R.Brown 17/05/07 "
PRINT
INPUT " ENTER HOW MANY TIMES TO RUN! THEN PRESS < ENTER > "; TIMES
PRINT : PRINT
DECIMALPOINT = "."
NINE = "9"
PRINT ; DECIMALPOINT;
NINES:
PRINT ; NINE;
COUNT = COUNT + 1
IF COUNT = TIMES THEN GOTO ENDOFRUN
GOTO NINES
ENDOFRUN:
PRINT : PRINT
PRINT " THE PROGRAM WILL RUN AN INFINITE/RECURRING AMOUNT OF TIMES! "
PRINT " IF YOU JUST PRESS < ENTER > FOR HOW MANY TIMES TO RUN! "
PRINT : PRINT
INPUT " PRESS < ENTER > TO RUN AGAIN "; RUNAGAIN
PRINT : PRINT
RUN
END
REM ************************************************************************
To MathsIsFun
Quote " That would print "0.90.90.90.9..." wouldn't it? "
A.R.B
It depends on the version of "BASIC" used!! as is always the way with Computer languages!
some remove the Zero and keep repeating the .9 which is what it should do!
but I dont have a problem with any version printing Infinite/Recurring 0.9 or .9 both have the same Value! the main point is that the Values printed are never ending!! i.e Infinite/Recurring!
The way you have showed it is wrong! "0.90.90.90.9..." with no Breaks! it should be .........
0.9
0.9
0.9
or
.9
.9
.9
Both are the Same!!
As I said before a Better Program would be an Unbiased program that just Calculates! according to the Question put to it! i.e to think in an Unbiased way!
Below is a program wrote in the Basic Computer Language! that does exactly what it is asked! i.e Calculate Infinite/Recurring 0.9 with no end! ever!................
10 N = 0.9
20 INPUT " PRESS ENTER " ; START
30 PRINT ; N
40 GOTO 10
A.R.B
To mathsyperson
Quote: " If they live in the same universe as us, then they have to follow the same fundamental laws as us. Aliens must have mass, no matter how super they are. "
A.R.B
The above Quote of yours! is the Biggest Mistake-Quote you will ever Make!!.............................
Mathematica 6! as far as I know has the same Fault as all the other Versions!
it thinks Infinite/Recurring 0.9 equals 1
A.R.B
To mathsyperson
Quote: "Your 'super aliens' would be immune to gravity only if they had no mass."
A.R.B
But again! mass is only what we know it to be! to alien's it may be nothing!!
To mathsyperson
Quot: " Gravity is a scientifically documented phenomenon. "
A.R.B
Can you prove what Gravity is!?
Because to some Super Aliens! it may not have any effect on them!
What came first! the Question? the Answer? or the Thought?
A.R.B
Does anyone know of any Statistical Data Sources regarding Pi Number frequencies from 0 to 9 a Web site would be good!
A.R.B
What came first! the Question? or the Answer?
A.R.B
To George,Y
Quote: " How about Cobras??? Cats??? Beatles??? "
A.R.B
Now that must have been amazing! it is a shame they could not get the "Rolling Stones" aswell!
then they could of done a Band Duo! and made some neat Music...........................................