Pete's QBASIC Site

CLASS 3D

2009-08-25T11:18:55-05:00

Excellent website and good example.

Thanks, angos47 !!!

Statistics: Posted by lrcvs — Tue Aug 25, 2009 11:18 am

CLASS 3D

2009-08-25T01:55:25-05:00

Have a look at this: http://www.tek-tips.com/faqs.cfm?fid=336

You can sort an array, or only part of it.

Statistics: Posted by angros47 — Tue Aug 25, 2009 1:55 am

I agree with your opinion, is correct, Ok!

2009-08-24T07:54:34-05:00

Ok.

True!

I agree with your opinion, is correct, Ok!

1) The program is only for numbers.

2) I am limited by the program memory.

3)... but ... the best is the new way to do it for me unknown!

4) Not classified directly positions the numbers in his cell and removes the repeated, in the end we get a list of numbers, orderly.

I think it is a good method.

Thanks for your opinion!

Greetings

Statistics: Posted by lrcvs — Mon Aug 24, 2009 7:54 am

CLASS 3D

2009-08-24T06:19:16-05:00

Your program does not sort data, it only stores data in cells with the same number. It also wastes memory, leaving a lot of unused cells.

If you have to sort words of five letters, you'd need 26*26*26*26*26=11881376 cells! And you would never fill them all.

To sort data, you could use a bubble sort algorithm, it's more efficient.

Statistics: Posted by angros47 — Mon Aug 24, 2009 6:19 am

CLASS 3D

2009-08-24T04:28:21-05:00

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

Statistics: Posted by lrcvs — Mon Aug 24, 2009 4:28 am