QBASIC u otro intérprete de BASIC
Mostrar más instrucciones
1
Borrar la pantalla de cualquier otro código al principio del programa , escriba " CLS " como la primera línea . Pulse el botón " Enter" para pasar a la siguiente línea de
2
Escriba el siguiente en QBASIC : .
DEJE DE DATOS = 10
DIM A ( DATA)
Esto creará una variable llamada "DATOS " con 10 artículos y asegúrese de BASIC sabe que quiere usarlo como una matriz.
3
Añada lo siguiente al programa :
PARA NUM = 1 A DATOS
VAMOS A ( NUM) = INT ( RND * 100 ) + 1
SIGUIENTE NUM
En este bloque de código , se establece un bucle donde los números aleatorios entre 1 y 100 se generan y se ponen en una variable " DATA" . En la primera línea , se configura el primer número que desea repetir hasta que termine la serie . Dentro del bucle , " RND " se multiplica por 100 y 1 ha añadido a la misma. Esto se debe a que " RND " siempre devuelve un número entre 0 y 1, y los números enteros , no nulos son más fáciles de entender para los humanos
4
Escriba el siguiente código de abajo: .
< P > PARA EXTERIORES = 1 A DATOS - 1
PRINT EXTERIOR ;
PARA INTERIOR EXTERIOR + = 1 A DATOS
SI A ( EXTERIOR ) < = A ( INTERIOR ) ENTONCES GOTO SIN CAMBIO
SWAP A ( EXTERIOR ), A ( INTERIOR )
SIN CAMBIO :
SIGUIENTE INTERIOR
SIGUIENTE EXTERIOR
código es el código de clasificación actual . "Interno" y "exterior " son dos variables que se utilizan para representar el primer y segundo elementos de la matriz . Si uno es mayor, entonces los swaps programa. Si no, va a ir a la " SIN CAMBIO : " marcador y simplemente trabajar en la próxima etapa del programa
5
Añada el siguiente código: .
PARA NUM = 1 TO Equipo en
PRINT A ( NUM) ,
SIGUIENTE NUM
Esto imprimirá la lista ordenada para que pueda comprobar su trabajo .