+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QBasic (http://qbasicnews.com/newforum/forum-4.html)
+--- Forum: QB Discussion & Programming Help (http://qbasicnews.com/newforum/forum-11.html)
+--- Thread: CLASS 3D (/thread-10229.html)
CLASS 3D - lrcvs - 08-24-2009
Program of ordination or classification 3D
Name: "CLASS 3D"
lrcvs 24.08.09
( Is limited, but...power)
CLS
DIM a$(9, 9, 9)
FOR n = 1 TO 1000
RANDOMIZE TIMER
x$ = LTRIM$(STR$(INT(RND * 999)))
IF LEN(x$) < 3 THEN l$ = STRING$(3 - (LEN(x$)), "0"): x$ = l$ + x$
a$(VAL(LEFT$(x$, 1)), VAL(MID$(x$, 2, 1)), VAL(RIGHT$(x$, 1))) = x$
NEXT n
FOR x = 0 TO 9
FOR y = 0 TO 9
FOR z = 0 TO 9
IF a$(x, y, z) <> "" THEN PRINT a$(x, y, z); " ";
NEXT z, y, x
Re: CLASS 3D - Ninkazu - 08-24-2009
I understand what this does, but I don't know why you wrote it. What use is it?
Re: CLASS 3D - Clippy - 08-24-2009
NONE OF COURSE! LOLÂ ;D
Ninkazu: Thanks for your opinion. - lrcvs - 08-25-2009
It is an experiment to test other ways of classifying random numbers.
But the memory of the "DIM" is very limited and I am limited to 1000 numbers.
The result is simple:
Displays the numbers sorted and removes duplicates.
The program does not sort the numbers, just the situation in its proper position.
In listing the "DIM" shows all numbers classified.
Ninkazu: Thanks for your opinion.
Greetings